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BURROUGHS i3-5/'G0 ESPUL COmPIuER maRK XVt3,00 



MONDAY, 0'*/0/'/i'^> 2«v«3 Pfl. 



OBofcCr /MCP 






r, I 



*SET LIST 

Comment ***** 4/7//5 Tjp *****; 



c 
c 



oooo»o 
0000*0 



SSET TAf'E i)lNGLt LliT 



C 0000 «0 



XB 
X 



5 7 



M C P MARK XV«3»00 
COMMENT) * TITLE» B5500/B5700 MARK XV SYSTEM RELEASE 



02/07/7^ 



FILE id: SYMBUL/mCP JAPE ID: SYMBOL l/F ILCOOO 

THIS MATERIAL IS PROPRIETARY TQ BURrqUghS CORPQRaTIO^ 

AND 15 NOT TO BE REPR UDUCED, USED, OR DISCLOSED 



OOOOIQOO 

ooooaooo 

00002010 



ooooio 

0000»0 
0000*0 



* EXCEPT IN accordance ^iTH PROGRAM LICENSE °^ ^^^1^ 

* WRiTTElN AUTHQRUATIQn OF THE PATENT DIvISION Of 

* aU«f<006HS COHPOfi AT I0N> DETROIT* 



00002011 
00002012 

0O0Q2nl3 



OMIT 
MIXM4X* 



$ SET 
BEGIN 

DEFINE '^IXM\X' 9Mi 
DEFINE JUbNUHaX«'40«J 



* COPYRIGHT (CD 1965, 1971, l972, 

* duRRaUGri3 CORPORATION 

* AA759915 AA320206 AA393180 



MICHIGAN 46232 



* 
* 

* 



1973 



ooooaou 

00002015 
00002016 



OOOO'O 
0000 «0 

OQ OQ» n 



MQT(DEBUGGI^G) 



* 
* 
*j 



00002017 

0000201a 
Q00U2Q19 



OOOO'O 
OOOOiO 
0000*0 



OOOO'O 

U000»0 
OOOO'O 



COMM£N,T< '^.^XM^.^ "^^y NOT 8E LARGER THAN 29^ 



DEriNE MARKLtVEL- 



CUMMtNTJ JUbNUMaX ShUULq BE AB^^UT 
2XMIXMAX+30; 

% MARK Lev ll in 'awpha 



00002100 

00003000 
00004000 



,00005000 
00005001 

ooodsoio 



OOOO'O 
OOOO'O 
QQQO»n 



OCOO'O 
OOOOIO 

oooo'o 



S:^ 



** LOCALE VELi= 



^'vmM 



*:'':'P*l||a:l||:i^i||lP;||:^^ ■ AL.P'MA 



i. LOCAL levIl In 'alpha 



(H>00dO20 
Oi\OC5O30 

ooftosoao 
oob( 



DEFINE 



MCPTYPE 

DCINTYPE 

TSSlNTYgE 



63*» 
62#*' 

6i»; 



■X- 



)0t)05o50 

0/0 050 60 

_,(/0005070 



OOOOIO 
0000«0 
OOOO'O 



T 


OCOO'O 


T 


OOOO'O 


T 


OOOO'O 



COMMENT THE ESPQL COMPILER APPROPRIATELY TYPES THE MCP & 

INTRINSICS FILE HEADERS SO THAT A VALIDITY CheCk MAY BL MaDe 
CORING INITIALIZATION AND AT CI AND CM TIME, HE ADErC 4 .1 . [ 36 ' 6 ] 



,.,-000051 00 T 
OC005120 T 
00005140 T 



Is THE FIELD USEO TO CONTAIN THE TYPE; 

DEFINE ESaO • £1U53«* 

UNUM » £l6t53*# 



00005160 
00005J80 
00005185 



OOOO'O 
OOOO'O 
OOOO'O 



OOOO'O 
OOOO'O 
OOOO'O 



BYbY(6YBY1,BYBY2) = 

BESIN StREAmCa:=SPACE(10)» ); 

BEGIN DIssa; 0S;gBYBY2 LiT BYBYl; END; 



00005190 T 
OOOOSgOO T 
00005510 T 



PUNT(O); 
ENDfl 
DEFINE HEi>£RVEOlSKSIZEK2000#; 

COMMENT TRActsI-i:t IS THE SiZE 



00005220 T 
00005230 T 
00005240 T 



OOOO'O 
OOOO'O 
OOOO'O 



OOOO'O 
OOOO'O 
OOOO'O 



OF THE COWL AREA usED TO STORE t^aCE 

Information BEFORE it is written on disk, 

TRACAREASTART IS THE ABSOLUTE DISK ADDRESS OF THE TRACE 



00005350 
00005260 
00005300 



OOOOIO 
OOOOIO 
0000»0 




^ iWi: „ 

pipiipiiliiftitii^ii^tii^^ the trace 

DEFINE TRACESUE = 3O#,TRACAi^EASTART5lOO00«,Tr<ACAHEASUE»480*; 



00005500 
00005600 
00005700 



OOOO'O 
OOOO'O 
OOOO'O 



00003000 
OOOOHOQ 

oooo»9ao 



oopoio 

OOfiO»0 



00006000 T OOOO'O 



S5 
S6( 

57 



• • 



9 !;• 

10 

11 

12 

13 ■ 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 f. 

" 
28 

29 

30 
31 ~ 
12 -I 
33 
34 
35 
36 
37 ~ 
36 



DEFINE HANG=DO UNTIU FAlSl*/ 



00006100 
000063 50 



$ SET OMiT * NOT(SaVeR£SULTS) 
REAL JUNK»SIX 

OFFINt: PSCUOOMAX » 31 »# 



* Max no qf pseup'Rhhs coHtgin 



00006200 
00007000 
0O0O7O5Q 



0000 
QOOO 



0000 
0000 
QOOQ 



COMMENT To 



PSEUDUMAXl = 'iZ »f 
PSEUDUMAXT s 63 «} 

redefinl max no* of 



* MAX NO QF PSEUD-ROHS 1-UHiaiN 
% « ENTRIES IN TINU TABlE "2 
PSEUDO RDH3,SUE AND I Nl T I ALU AT I Ok 



OF TINUC*T AT OO2V19OO MUST ALSO BE MODIFIED ACCORDINGLY; 
COMMENT I PSEUOOMAX MUST BE iO AND S 31 
PSEUOQMAXI MUST BE £ Q AND £ 32, 



P0007055 

0000/060 
OO007O61 



T 0000 
T 0000 
T 0000 



00007062 
00007065 
0Q0Q7O70 



T 0000 

T 0000 

J. fijQM 



COMMENT 



TO 

Of 



LABC 



PSIUDCMaXT MUST BE i 31 AND < 63>* 
ADJUST THE PRIORITY* CORE ESTIMATE* AND STACK SlZE 
LIBMaIN/QISK* see sequence number H507bH?Q} 



L a0S0S0>NOtMALER«08,f»26uSV#.flMEB,EXTERNAL*IN0utST* 
PR0CSWiT*P2FAKi,Kf:Y8QARDR£fiueST*RETU«N#C0MiNiT#MEM0R 

i ■■■ ■ ■ ■ 



00007075 
00007200 



YPARjTY XWF 



f 

DEFINf! GETuSERUISK(GLTUSERUISKl)*PtTUSERDISK(GETUSEROIbKl*0)#jX 

$ SET OMIl » iMQTCDUMP OR DEBUGGING) 
IKTEGFR RRRM£CH=e20i;^ 



00008000 
00009000 
OOQIQQOO 



T 0000 
T 0000 
T 0000 



T 0000 
T OOOO 
T 0000 



DEFINE SPaCECSPaCEI) «C6ETSPACE CSP acE l*0» ) + 2)*} 
DEFINE MCPsMCn#; XPftlVlLEOfiED USERCODE STORED IN MCU 
DFFINF % KEYIN TAflLE nEFINE: VALUES FOR "RfPLY*^ 



00012001 
00012159 
00 01, 30 00 



T 0000 
T 0000 
T O QOQ 



00013500 
00013600 
0QQ1370Q 



T 0000 
T 0000 
J QOOQ 



VAX = 01#' 
VIL = G2#' 
VUL '031/ 



00013710 
00013720 
00013730 



T 0000 
T 0000 
T QOQO 






00013740 

00013750 
Q0Q1 376 



T 0000 

T 0000 
J. OQQO 



VRM s l2«» 

VOK « 22#* 
VFV » 23«' 



00013770 
00013780 
00013790 



T 0000 
T 0000 
T 0000 



v0F''^:*'§fiiii;:' 
■.,v:CG, -^-rsmm 



00013800 
09013610 
00013620 



T 0000 
T 0000 
T 0000 



VIF » 32«; 
DEFINE 
$ SET OMIT = AUXmEM 



00013830 
00013850 
00013860 



T 0000 
T 0000 
T OoOO 



SPACESTACK5UL » dQii 

$ SET OMIT a NOTCAUXmEM) 
SAVE INTEGER PROCEDURE QETiPACE C SUE* TYPE# SAVtF ) i X 



00013870 
00013680 
OOOl 40Q0 



segment; BASt: 

00015000 
OOOI6OOO 



T 0000 
T 0000 
T 0000 



ADDKESS 
T 0000 
T 0000 



40 

41 
42 

43"^ 



START OH SAVE 



VALUE SUE* rYPE'SAVEF;5' 
INTEGER alZt, TYPe;x 



» OOOOO 







boolean savef' 
Save real procedure waitiociod»mask,u);x 



jmwwoTT 



start of save 



00017000 
00018000 

sEftMENTJ Base 



T QOOO 
T 0000 

address 





" OOOOO 



46 
47 
)8 
*9 
50 
SI 
52 
53 
54 
55 
56 '5 



Value iQD*MAi>K»u; real ioD'MASk'U; forward;* 

SAVE PROCEDURE Dl SKwAI TC CORE* SUE *0 I SK ) ; 

START OF Save 



00019000 
00019100 

SEft^ENT; Base 



T 0000 
T 0000 
ADDRESS 



OOOOO 



V al-ue^^c o.RE»>iltl*ft'i SK ; 



00019200 
00019300 
0QOl9ftO0 



T 0000 
T 0000 
T 0000 



PROCEDURE ERRORFIXEHCTYPE); VALUE TYPe; REAL TYPe; fORWARq; 

star! of REL 

SAVE PROCEDURE snoq^E(Pryr,addre3s*mask); value pryr*address*mask; 



00019500 
SEqMENT; DISK 
00020000 



TfeiEirrriPf 
0908MP 

mmm, 

0002 1600 



T 0000 
ADDRESS 
T 0000 



00002 



Powpf 



• OOOOO 




iliiaiiiiiiiiii 



STARt or Save 



ARRAY PRYORC*] 



' ' iiiMiiiiiiiMii«iliiii;iM»l^t.ifc^ ; 




0tQ 



0000 



n 

2 
3 

4 
5 
6 

■; 

B 



Real pimix*p2mix; i see ooiosoco 

ARRAY SLATEC*]>% 

REAL kSlate#lslate;* 

DEFINE StATtSUt«l6#'3LATtNU«Sl.ATESl2E-l«;XSlZE MUST BE 
REAI. KTl«»16QfNT8»»l6i>NT3»ei62#NT4«f 163#NT5»»l64fNT6*»l65>N 



00021700 
00022QOO 



T 0000 
T OOCC 



ThO POWER 



00023000 
00023100 
00024000 



T 0000 
T 0000 
T 0000 



Comment ntI th^u nt7 are used by t 

ALL PMOcESSEi> THAT UJ)£ THE 

IS luSt* theXr content may 



HE MCP FOR TEMPORARY STORAGE, 
S£ VARlA8i.ES ASSUME ThaT IF cONtRUL 
HAVE BEEN CHANGEU BY THE TIME 



0002401C 
000240 20 

00024030 



J 0000 
T 0000 
T 0000 



THAT 

End COMMENT; 

ARRAY TSKA » 



CONTROL IS REGAINED , 
NT3t*3; 



00024040 
00024050 
00024060 



T 0000 
T 0000 
1 OQOO 



10 

11 

12 
13 
14 
IS 
16 
17 
18 



REAL M 
CoMMEn 



cpbase; 
t mcpuasl c 
Of the mc 



THE HCP 6 
WHEN THE 
OF »N MCP 



OiMTAlNS THE DisK 

p thaT is curhent 

Y TME LOADER RQUT 

ESPBIT ROUTINE 15 

$£6MENT# IT ADDS 



ADDRESS (UCTAL) OF tH 

LY IN USE* This aqdre 

INE AT EACH MALT/LOA^ 
CALCULATING THE DISK 
MCP8ASE TO THE ADDRE; 



E BEGINNING 

ss IS pasSeu to 



t03.Cl8»303. 

ESS 

AT 



00024100 
0002 42 00 
00024210 



0*024220 
00024230 
00024240 



T 0000 
T 0000 
T 0000 



T UM5 
T 0000 
T 0000 



IN M 
AOOR 
S TH 



END CO 
LABEL 



IS C 

mmenT; 

NOTHIN 



qntaIimed in the prt cell for that segment. 

GTQDO, IinIt I ATE* START'S TACK0VERFL0V*»I0BUSY; 



00024250 
00024260 
00024270 



T 0000 
T 0000 
T 0000 



19 

20 : 

21- 

22 

23 

24 

25 

26 

" 
28 
29 

M 

31 " 
32 
33 

34 

3S 

36 

37 '" 

38 

39 

40 

41 

«2 

43" 



S SET OMIT » NOT{AUXMEM OR MONlTO 
DEFINE MCPNAMESEG s CDIRECTQRYTQH- 
CQMMENT MCPNAMESEG CURRENTLY QONTa 



R) 

7)#; 

INS THE FOLLQWINGI 



00024299 
00024910 



T 0000 
t 0000 
T 0000 



WORDC 0J-W0RDC15] - FILE IDS QF TH 
W0R0Cl6]-w0RD[l93 - CONTAIN ThE WO 
W0RD[?0J-WURD[^7] - FILE IDS OF TH 



E AUXDATa FILES FqR MCP & 
RD "AUXMEM " AS A MARKER* 
E WCP"S AT HALT/LOAD* 



InTRInCS, 



00024930 
00024940 
OQO2495O 



T 0000 
T 0000 
T 0000 



WORD[;283 - USED BY DiSKSQUASH FOR CCMM. BETWEEN SHAREOISK SYSTEMS, 
t SET OMIT « NOTtNEWLQGGING) 



00024960 
00024970 

Q6oa 499q 



T 0000 

T 0000 

J! QMfl 



26 1 
27 
28 
29( 
30 
31 
32 { 
33 
34 
35 ( 
36 
37 
38 { 
39 
40 
41 ( 
42 
43 
.44< 
4S 
4« 
47 ( 
48 
49 
50 ( 
51 
52 
53 ( 
54 
55 
5«4 



$ SET UMiT = NEWLObGING 
DEFINE STARTL0G(STAHTLaGl»STARTL0G2)s 

PROcTlWEtSTARTLOGll^C'PCDUPn-CLQcK-PcRTR)** 



00025299 
0OO253O0 



T 0000 
T 0000 

T OQOQ 



STDPLOG<STQPLOGl*STOPLOG2 3e 

PROCTlMECSTOPLOGn *{*P (DuP > J +CLOCK+P (RjR ) #; 

i POP Q MIT 



OOO235OO 
00025600 
0002^601 



T 0000 
T 0000 
T 0000 



SAVE PRUCEDuRE ESPBIT; COMMENT PRESENCE BIT ROUTINE FOR EsP 
BEGIN INTEGER PRTLOC * SYLLABLE^ lUC * SI ZEJ % 



SEGMENTS i% 
START OF SAVE 



00025900 

SEGMENT; BASE 
OQO260OC 



T 0000 
ADDRESS 
T 0000 





s 00000 

<2___ 



UEFIinE MAT8EwORKtOONxt7U3#;X 
ARRAY MYSELF«tSPBlTt*3;» 

REAL hcw»+o*diskread;x 



00027000 
00028000 
00029000 



T 0000 
T 0000 
T 0000 



LABEL MAkEPRESENT/X 
$ SET QMIT = NaT(NElNLQGGING) 
PRTLC3C*(RCW INX )&RC»^C 3o 1 1 0»2 3 ; X 



00030000 
00030099 
0031000 



T 0000 
T 0000 
T OQ OO 



3TREAM(RSLT*[STLLABLEJ#CL*PRTL0C)IX 

BEGIN sucl; susi»2/ di*rslt; 

PRTLQC » IF SYLLABLE TH£N NT4> 



D I ♦01*6; 05«.2 CHR END! 



OOO320OC 
00033000 
0Q034000 



T 0003 
T 0004 
T 0003 



46 
47 
18 



ELSE SYLLABLE, C36J103;* 

If memqrycprtlocd.maybeworkedon thenx 

MAKEPRESeNT? Begin MeMQRYCPRTLQC] .MAYBgWORKEDON»FALSE'^X 



„ , ^fiMiliiiifiilliilJiiiiflii 

t :SE.T^-:OM.lT "^-ilTI^pMi " ^^ 



00035000 
00036000 
00037000 



T 0006 
J 0008 
T 0010 



«9 

so 

51 
52 
53 
S4 

56 f 
56-: 



DlskhlEA(J*CLQC + n&SI2E[8«38Jl0]&i»l4(:21l42 
&t(5l2E+2V) DIV 30)C27!42l63;* 
STREAM(L:sLOC*l#N:*MtPRTLOC3,Cl8;15]+MCPB 



00038000 
OQ039000 
00039099 



T 0013 
T 0015 
T O QU 



163 XE 
ASE,Di»0); 



OOO4OOOO 
00041000 
OOO420OO 



T OOI7 
T 0019 
T 0022 



MEM0RY[L.QC3*MEM0RYtL0C]&0[2»47«n&O[9«42»6];x 



08043000 
00044000 

000<t « Q9y 



T 0026 
T 0027 



0004500C T 0029 



• • 



^n« 



>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 

20 
21 



22 
23 
24 

26 J! 

26 >' 

27 V 
28 
29 
30 
31 1 
32 
33 
34 
35 
36 
37" 
38 
39 
40 
41 
42 
♦3 



45 
46 
♦7 
«8 
49 
50 
61 
52 
S3 
94 
SS 
96 
57 



MEMGHYC'uac + lJ«-PHTL0C&SlZEC18«33! 15J;X 
Wg M GR Y [ P R T LU C J «• wEw Q R Y C P H T LOC 3 & 1 C 7 » q M 1 ] X 



^•■'l«tftiig||ii|s 









00046000 
00047000 



HEQIH ^LEEPC tMEMUKUPRTL0Cn'0&U7M7Jl] J;* 
IF CMEMQKYtPHTLrjC] INX 0)s(MYSELf' iNX 
GO 70 MAKEPRESENTjifc 



00048000 
00048099 
06069000 



T 



0033J1 
0035t3 



0037*3 
0040*0 
0040*0 



U) THENX 



00050000 
00051000 
0005200G 



0040«0 
0043 « 2 
0046»1 



ENOj* 
$ SET OMiT a NOT (NE^^UOGGING ) 
FULlSHCO^ROFfO^XCH»FCX>STS);> 



00053000 
00033099 
00054000 



GO TO polishcmf.mqry[prtlqc]);x 
GO to staRt> X Place Qt5C,|N prt for 

l.m..l.^PB.|.Ti* y......^'.....^;i.I... '.y .; ^...'....'^.^."...^l,...l...... ...• 



MCP TO AUXMEM TRANSFtH 



00055000 
00055100 
00056000 



0046«3 
0046»3 
0046»3 



004e>3 
0050 «0 
0050 I 9 






DEFINE SIZE=[8: 10]«# F ILeB 1^= [ 1 ' l3 #'OWNbIT» [2 « l3 #*X 

OlMEN3lONSaC3«5 3#,l3LKCuTR = L8J10]#,MQMsC18«15]«,CljRBLKCNTR»l6**A 
TSXs22<'# SFlNTXg27#* INtRPTX" 28«^ 



SIZE* OOSj WORDS 
00057100 T 0000*0 
QftOSfloOQ T QQOOIQ 



AlTN0X«6l*P8iT»C2*n#;* 
DEFINE FFxi8«li*'* 



00060000 
00061000 

00061 lOO 



0000»0 

ooonxo 

0000 »0 



00062000 
00063000 
0Q063100 



oooo'o 

0000*0 
0000*0 



CF*33«lS*'* 
CTp*l6J33« 13*'* 
FTFslfl»lR»l5i»^it 



00064000 
00065000 
Q0066n00 



0000*0 
0000*0 
0000*0 



p:C*3'3'*4P:i'ii>*. 



XPB 



0e067000 
00067i00 



0000*0 
0000*0 
0000*0 



INTEGER AVAILS* 

COMMENT AvAjL COMrAjNS THE ADDRESS OF THE ST^PfER* 
FOR AVAILABLE STORAGE LINKS ITS ValUE: IS» 



00069000 
00070000 
00071000 



0000*0 
0000*0 
0000*0 



THE HIQHEST AVAILABLE ADDRESS-jn 
INTEGER Mi)TART;X 

COMMENT MSTARt CONTAINS THE ADDRESS OF THEit 



FiNST AREA OF 
ESP PROGRAMJi 

INTEGER MENpJit 

COMMENT THIS POINTS 



STORAGE AFTER END UfX 



0§072000 
00073000 

oooy4ooo 



0000*0 
0000*0 
0000*0 



ARRAY TARl*]; 



To LAST 

memory;* 

XCSnTaInS T0G1.E SITS SET 



STORAGE LINK INX 
BY EACH JOB ,: 



00075000 
00076000 
00077000 



0000*0 
0000*0 
0000*0 



00078000 

00079000 
00079100 



0000*0 
0000*0 
0000*0 



DEFINE lOCKTOGClDCKTUGDs BEGIN TOGlE: = TOGLE AND NOT LUCKTt3GU 

TARCPlMlX]l=TARtPlMlXl OR LOCKTOGl; END*; 
DEFINE uNLQCKtOG(uNlOCKtQG1)» BEGIN tQGlE |«tQQL £ OR UNLOCkTQGU 
TAfttPlMtXl*»TARCHlMtX3 AND NOT UNLOcKTOqi; |ND#; 



00079200 
00079300 
00079400 



REAL TOGL.EJ 
DEFINE HPaTOg 

*STaTuS8IT 
^ShEETFREE 
,STACKUSe 



» T0GLE*C47tUI* hf2MASK 



s T0GLE.[46»13#, 
' T0glE,C45» 1]*» 
a T0GL£.U4«1]*# 



» T0GLE.t43tUI« 



sTaTusmask 

ShEETMASK 
STACKMASk 
stolen ASK 



gl» 

C>2» 
?10# 



00079500 

00080000 
OOO8O1OO 



0000*0 
0000*0 
0000*0 
0000*0 
0000*0 
0000*0 



OOOROpOO 

00080300 

OOO604O0 



0000*0 
0000*0 
0000*0 



#storedy 

#US£ftOlSKREA0T» T0GLEa42» l3## USEROISKMASK' 
»HOL0PRE£ « TQaLE.t4m3## HOUOHASK 

~ ~ NSECdNDMASK 



» «»20# 
940# 
« *100« 



OfiOgOsOO 
00080600 
00080700 



0000*0 
0000*0 
OQ00»0 



*NSECONDR£ADY 

»AB0RTA8lE 

*BUMPTUTltJE 



- TgGLE.C40U]«* 
» TQGLE.C39jl]«# 
TCGLE,C38tn«> 



ABORTMASK 
BUMPTUMASK 



e200» 
«i400« 
^lOOOO 



,A0T,-i» ..TQ,tiE«tI7tUt# , t^EftlAKDMASK »»2000# 



00080800 
OOO8O9OO 
00080950 



yK'|Y80AH| 

#l!fcOf AC*STiH<t.,;,;.A '» , |^/«y|*C3#il}#*. Jj0«ACKTAlKMASK»*4OOO# 

« V(JGLEVC34J1]#* freemask 



MNTPREE 




0000*0 
0000*0 
0000*0 
0000*0 

0606*6 

00 00*0 



'<?20000# 



00081300 T 0000*0 



# • 



10 

11 

12 
13 
14 
15 
16 
17 
18 



19 

20 

21 

22 

23 

24 

25 'i 

26;,- 

27 



» 

29 



» 
31 
32 
33 
34 
35 
36 
37' 



39 
40 
41 
12 



43 



46 
46 
«7 
•8 



49 
50 



61 ij 
52 
53 
54 



55 ' 
56 



i»SPOEDNULLOG = 



T0GLe..[33»l J# 

T0GLF,C3g». niy 



REMQTELQfiMASK . »yC}OnonM 



*EGGS£LECTSTQPPED • TOfiLE . £ 31 1 1 JK 
#STAftTOG a TOGtE , t 301 Hi 

fNINETEENN0TR£ADIN6»T0aue«C2g»n<j WlNET£ENMASK»glOQOOOO» 

*SMwSrQPPEDaTaULE.C28« l3»' SMwSTOPPEDM ASK»«»2000000» 
>DCWAlTli\GsT0QLE.t27J l3« 
*DCQPT$TOPPEDaT0GLE.C*?6JlJ# 



0008U00 
OflQfllStffl 



00081600 
0Q081610 
00061620 



0000*0 

Qnc)n«o 



ooooio 
ooooio 
ooooio 



»INQUPTST0ePE0»T0QUE,t25ll3# 
#MCPf REC«»TQeiii £24 U 3* # MCPMASKuJKtOOOOOOO* 
% USES TO PROTECT DISK SES^ENT ^ERQ 



00061630 

oooau-io 

0Q0el650 



0000*0 
0000*0 
0000*0 



#SCRATCHDlRECTQHYRtADY s TC'ii,E . [ 23* U*, 

SCRATCHDiRECTORYMAbK ■ PiOOOQOOOO* 
* f^^JP "^^ PROTECT The ScraTCHDIRECTQRy 



000816^0 
0008U?Q 
00091675 



OOOOIO 
0000 to 
0000*0 






0006168 

00061690 
000816V5 



0000*0 

0000*0 
0000*0 



« WILL BE RUN AT QNE TIMg, 

*CpFREE*TQGLt;. £21 *nil(*CDMASKaP4 00000000* 

* SfT TRuf WHf-N CONTRHL nrrK QurUF 



00081700 
00081705 
000 8170 6 



0000«0 
OOOOIO 
OQQQin 



#N0MEM«T0GLE.[15I63# XGETSHACES HANGING 
,BReAKT06«T0GLE.EU*U* XBREAKQUT TOG 
.BRgAKMASKseiOQOOOQQQQnOtf 



IS frfe: 



00081707 
00081710 

QnQfli7t 1 



^SEPTICTANKInG s TOGLE,[U*n# 
'DIRECTORYTqg s TQGL£,£12«1J* 
»dtRf_ctq rymask = e^nnonnnonnnn* 



08081950 
OOO8I96O 
00081070 



0000*0 
0000 I 
0000*0 



0000*0 
0000*0 
0000*0 



00081972 
000ei97i» 
000fll97ft 



0000*0 

oooo«o 

0000*0 



STREAM PROCEDURE MQVECn^^KQHDS FROm^CHERE J^TCt THERE M « 



COMMENT WILL MOVE TO A095 InOROS;X 

BEGIN LOCAL N0IV64/X 



00061999 
0§082o00 

onoeaoon 



0000*0 
0000*0 

ononto 



END mqve;x 
PROCEDURE stoPm(b); VALUE b; 



*I«-LOC N; 0i*L0C N0lV64i Sl*Si+6J Di«.Dl + 7; DS«.l chr; 

SI*HEREI Ol^THEREiX 

N0lV64CC)S»3a WOSi DS»32 WOS?J OS»N wOS^X 



0008^000 J 0000*0 
00085000 T 0000*0 

START OF Save segment; baSl address e 



00051 



oooeeooo 

00087000 
0006800Q 



0€00I0 
0001*1 

000 t»3 



BOOLEAN B; FORV^ARQ; 






START OF REL 



forwards 
array beoc*3; 

COMMENT ENTRIES 



VALUE LOC;» 
REAL lOCJ% 



START GF SAVE 



segment; DISK 
00089200 
00090000 



segment; Base 

00091000 
00092Q0Q 



ADDRESS « 
T 0000*0 
T 0000*0 



90002 



ADDRESS s 
T 0000*0 

T oqoo*o 



00055 



THE 



IN THE BED HAVE- TWO tNQROS«Jt 



% 4MlxMAX*4 



FIRST WORD HAS THE FOLLOWING FORMAT** 
0- 2 « 5X 
3- 7 = M lXl;\^DEXil! 



09093000 
0009^000 
00095000 



mi 






00096000 
00097000 
00098000 



0000*0 
0000*0 
0000*0 



The SECOND WORD IS 
THE SECOND WORD IS 
IS 0N;ik 



A MASK IF BIT 
AN ACCIDENTAL 



IS OFF.X 

ENTRY DESCRIPTOR IF BIT 



O009.^'0li' 

oiiiiiiiii 
00101000 



0000*0 

0000*0 
0000*0 



0000*0 

0000*0 
0000*0 



COMMENT PlMIX*P2M|)f NOW DgCLAREO AT 000)217001 



00102000 
00l03000 
00104000 



0000*0 
0000*0 
0000*0 



COMMENT P4i»l){ I5(TH| i*|X IKDEX ^QR JM JOB BEING CURRENTLY* 
PR QCetWf PlMfy ^ HgANS NO ^QB tS CUHR EnTLY BEInOi 

>HQCfcSSEO. F-aMIX U 



;i THE MIX INDEX FOR THE JOB BEiNq* 



00 105000 T 
00106000 J 

oo>oyooft,.T 



OOOOIO 
OOOOIO 
OOOOIO 



00108000 T 0000*0 



1 

}• 2 I 
3 

4 

s I 

6 

7 

8 { 
9 

10 

'H 

12 

: 13 

'H 

15 
16 

"( 
18 



00089000 T 0003*2 

SI^E= 0004 WORDS 
00089100 T 0000*0 



19 
20 ( 
21 
22 
23 { 
24 
2S 

26 ( 
27 

2e 

29 \ 

30 
31 

32 { 
33 
34 

35 { 
36 
37 
38 i 



42 
43 
44 { 

45 



46 
47 < 
48 
49 
50 ( 
51 
52 
53 ( 
54 



56 ' 



• • 



n 

2 
3 
4 
5 
6 
7 






Currently processeu 



On PRQCESSOH 2, IF PROCESSOR IS IDLE 
Jm ^ g jS NO PROCESSOR 2 Th& N P ZHlX^' j} 



00109000 T 
Q Q I XQOOO , T . 



OOOO'O 
Q ,OOQ: « , Q 



DATE CONTAINS TODAYS 0ATE;X 



OOlllOQO T 
00U2000 T 
OOU3000 T 



000010 
OOOO'O 
0Q00<0 



1 

2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14' 

15 

16 

17 

18 

19 

20 \ 

21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 ' 

30 

31 

32 ' 

33 

34 

35 I 

36 

37 

38 I 

39 

40 

4,* 

42 

43 

44 ' 

46 

46 

47' 

48 

49 

S0< 

61 

52 

53' 

54 

55 

56' 



REAL XCL0CK=Pl7i; 

COMMENT CLOCK COnTAInS THE NUMBER OF TIME 
PRQCESaED SINCE HALT-LOAD IN 9*4i;% 



INTERVAL Interrupts* 



O011'*000 T 
00115000 T 

00 11 <»O0Q T 



OQOO'O 
OOOOJO 

00 QQ» n 



9 

10 

11 



REAL REA0Y5#172I 

COMMENT READY CONTAINS THE CONTENTS OF THE READY REGISTER ONX 
Tug LAST REAHtat 



00121000 T 
OOl22oOO T 
00123000 T 



0000»0 

0000*0 
QOQOln 



12 

13" 

14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 ,\ 



COMMENT STATUSBIT IS FALSE IF T^E STATUS ROUTInE Is RUNNING AND 
TRUE OTHERWISE. THIS PREVENTS TWO COPIES Op STATUS FROM* 
,HU,MN]t,fSa TOQETHER/I 



00125000 T 
00126000 T 
Qfll2700Q T 



0000 «0 
000010 
QOQO»0 



ARRAY PRT£***}#« 

COMMENT PRTCI,*3 CONTAINS A DATA DESCRIPTOR WITH PROPER SIZE* 
FICLO PQ1NTIN6 AT.PRT FOR JOB WITH Mix INDEX » lU 



00128000 T 
00129000 T 

Q01 10 0QO T 



00001 
QOdOtO 
OOQOlO 



ARRAY PRTR0W=PRTC*3i 

COMMENT PRTHOW IS 
ARRAY JAR[*>*];X 



DOPE VECTORS FOR PRt;x 



% MIXmAX+iX 



00131000 T 

ooi32ooa T 

OQ13300Q T 



0000 «0 

ooooro 

QQOQ ».0_ 



t JAR HOLDS InFQ OF JOBS IN PRUCEsSX 
$ SET OMjT « N0T(W0RKS£T) 
ARRAY INtRNSCC*3; REAL INtSIZEJX RE-ENTRANT INTRINSIQS ON uSER OISk 



0013*000 T 

00134100 T 
00135000 T 



0000 10 

OGOO'O 
OOOOtO 



ARRAY INTABlEc***]* INTABLERO^^s jNTASLE [* ] ; X 
$ SET OMlT s NOT(AUXmEM) 
ARRAY ShFET[*3; . 



M- 



00135100 T 
00135199 T 
00136000 T 



0000«0 
0000*0 
OQOO'O- 



ARRAY JARR0W»JARC*3> 
DEFINE TABCNTCtASCnTU 
COMMENT TaBCNT 



« JARROwtTABCNTU.CFFj*; 
IS THE NUMBER Of PROCESSeS 



X MIXmAX*1» 
WHICH HAVE CHECKED 



00138000 T 
00138100 T 

oouauo T 



0000 «0 

0G00«0 
0000*0 



29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 



JAIJROh AND ARE CURHENTLY ACCESSING Mix TABLESt IT ASi»LRES 
THAT THE TABLES OQNT VANISH BENEATH ThOSE PROCESSES; 
C UMM E NT E NTRU S I IN T H£ StATS HAVE J^Q WORDSt EACH ENTRYjt 



DESCRIBES. AN INDEPENDENT ROUTINE HHICh NEEDS TO Be STAHteq 

RUNNING, NOTHING Tq ^Q STARTS THCSrE ROUTINE*.* 

the FIRST WORD OF AN ENTRY IS A PARAMETER TO THE ROUTINE. 



OOl38l2o T 
00138130 T 

oo noooq T 



OOOOIO 
0000»0 
OOQO 'O 



The StCDND WORD OF AN EnTrY IS THE PRT ADORERS uF THE* 

ROUTINE.* 

NSLaTE AND LSLaTE ARE POInTERS TQ THE SLaTE,* 



001410.00 t 
00142000 T 
O OH30 T 



0000*0 
0000*0 
000 * 



STARTED,* 
THE SLATER* 



0O144Q0C T 
00145000 T 
00146000 T 



0000*0 
0000*0 
0000*0 



ooH'ooc T 

00148000 T 
00149000 T 



REAL 



NSLATE 

uslaTe 

jqbnum;» 



POINTS 
POINTS 



AT 
AT 



LAST 
LAST 



ENTRY 
ENTRY 



(HHICH WAS 
PLACED IN 



0000*0 
0000*0 
0000*0 



cUMMeNt jUaNuH points at 

COMMENT STaCkUSE IS TRUE 

OTHERWISE false;* 



Last entry in sEoi* 

IF THE InOEPEDEnT STACK 



0000*0 

0000*0 

0000*0 



40 
41 
42 
43 



IS NOT IN USE, 



00150000 T 
00152000 T 
00153000 T 



0O1540O0 T 
O015SOOO T 
OQ156000 T 



0000*0 
0000*0 
0000*0 



45 

46 
47 
48 
49 
50 
51 
52 
53 
S4 
55 



BOOLEAN NOPROCESaTQGiX ~ — — _ 
COMMENT NOPROCESSTOG Is TRUE IF NORMAL 
ALLqWeO* otherwise IT IS FALSE, IT 



OTHERS TO Prevent confusion;* 
Real softi; % imumber of jobs in mix having software 

REAl wlTCHlNGH0u»^*W0RDaFEA5E; 



STATE PROCESSING I S% 
IS USED BY OVERLAY AND 



00157000 T 
00157100 T 
00157500 T 



INTERRUPTS DECLARED 



0000*0 
0000*0 
0000*0 



COMMENT tHESE USgo TO BE CONSTANTS ' IN THE OUTER BLOcK BUT WeRe 
MOVED MERE 50 EVERYONE COULD USE TH£M, THEY CONTAINt 
WSTCHINQHQUR 5184000 



00157600 T 
00157700 T 
00157000 T 



0000*0 
OgOOlO 
0000*0 



DEFINE NDX*3*; 



WQRDOFEASE ?2525252525252525 

* NUwBER OF ENTRIES PER JQB IN NFO ARRAY 



XMXkMAxKNUX 

ICSCI 

IVAMe oESdf^lP'lUR 



00157900 T 
00158000 T 

ooisaioo T 



0000*0 
0000*0 
0000*0 



W ^ ^ 'W '^'W ^ wit 



M aj. -j/l 



IWIMTiflfiriT 



| i i .,Ht: :M|| | gl jj;;|^|p|^j_j,^ -'',' L. ,.:,.ff :,||/||ii^y: Mj||g ,, ^ft j y , ^S .^ °*^* oescristor 




>r 



10 

11 



17 
IB 



19 
20 



25 

26;* 

27-f 

28 

2S 

JO 

31 " 



34 

35 

36 

37" 

38 

39 

40 

41 

42 

43' 



18 

49 

SO 



S4 



56 ' 



3! NFg[(MlX-l )xNDX + 2] , IFF J = 



LOCATION OF BOTTOM OF STACK (B-wUHDJ 
ESTIMATED CORE REQUIt^EHENTS 



ARRAY 
ARRAY 



NFOtCMlX-UXNDX+gJ.Clll^] ? CUOCK TIME AT 80J 
ISTACKt*3; 
PRQCTlMEt*]; 

COMMENT PROCTIMEtn CONTAINS PROgESSOR TIM^ FOR JOB WITHX 



OOI586OO 
00156700 



OOOO'O 
OCOQiQ 



X 
JL 



128X 
WIXMAX*1X 



OOl58800'T 
00159000 T 
Q161Q 0Q T 



0000*0 
0060*0 
0000*0 



ARRAY 



MIX 
lOTlMEr*]; 



INDEX s li% 



% MIXMAx^q 



COMMENT IQTiMEtn COnTaInS I-Q TImE FOR jOB WITH MIX InDE^ «IJ 
S SET OMIT * NOT(N£WLOGGJNG) 
DEFINE LUIOHOLOEg»OIHECTORYT0P-5»# : 



00162000 
00163000 
016' tO QO 



00165000 
00165009 
00165800' 



OOOO'O 
OOOO'O 

QQOOfn 



oood>o 

0000*0 

0000*0 



£UTAPER»,98#* 

diskavailtabllmax«i3o«; 

•AH'Rlf-'A^^'TliM%»ili'" '-■-vfiW'^,: ^ . ■• ; ' ; ■■ ' .... . 



ahray pEliIOL*] ; 



00 1 65810 
00165320 
00166000 



00166002 
00166009 
00166006 



OOOO'O 
00OQ«O 
QQOQ *0 



0000*0 
0000*0 
0000*0 



$ POP OMIT 

COMMENT NEuPiUF] CONTAINS THE NUMBER OF EljS ON pKAt 

NfcUP.NEUF CONTAINS THF TOTAL NUh^BFR OF EUS QN THE SYSTEM, 



EUIO AND PEUIO CONTAIN THE I-O TIME USED BY A QJVEN iUt 
THIS INFORMATION IS USED bY GETUSeRoISK IN a^ ATTeMPT TO 
MTNTMIZF Eu CONFLICT i 



00166007 

00166010 
00166Q25 



Opl^^O^O 
00166040 
00166050 



0000 «0 

0000 «0 
0000*0 



C3«5]*i* 



0000 10 
0000*0 
0000 to 



_5X- 



DEFINE MIXF = 
ARRAY CHANIOt*]; 

ARRAY ChANNEL[*3; _ 

COMMENT CHANNElCI] CONTAINS LOGICAL ^NlT OF L^ST D£ScRlPTURX 
SENT OUT ON CHANNEL I;X 
ARRAY FINAL0UE[*3; . * 32* 



00168000 
00169000 
00170000 



00171000 
00172000 

4 71 000 



0000*0 
0000*0 

onoo'n 



ARRAY LOCATQUEt*]; * 32X 

COMMENT lD<aUe;#FlNALQUE' aN D LOcaTOUe TOQeTHER V^ITH UNIT i^QRi^X 



THE 1 



TH8EE 



'0 QUEoE* 
WORDS OF 



AN 1-0 
SPACE 



REfiUEST FOR LOGICAL UNIT U RECuIRES 



0017*000 
00175000 
00176000 



0000*0 
0000*0 
OQOQ * 



IN THE l»0 QUEUE, If THE ReQUe5»TX 
OCCUPIES POSITION 5 I^ THE 1-0 flUEUE* THEN lOQUEtS] )% 

1*0 descriptor for this request^ finales) » 1-0 descriptor 

Skeleton to bl used at i-o complete time to rebuild* 

i-Q Descriptor^ locatquels] = location of i-o DESCRI^'T0Rx 

at TIME OF request. L0CATQUE[S3 CONTaINS SqMe ADDITIONAL 
INFORMATION. IN PARTICULAR** 



00177000 
00178000 

0Q lf9 Q00 



0000*0 
0000*0 

Ooooio 



ooieoooo 

00181000 
00182000 



0000*0 

0000*0 
0000*0 



0- 

3- 



2 » 
7 s 
6 * 

9 = 
10 s 



IN 
5X 
MIX 
I/O 



INDEX OF 

iS Read 



requ esterx 

LOCK 



WHICH HAD ERROR 
DLAY 1/Q CIOFINISH PLACES RESUlT 
NO MEM MESSAGE. 



(ShAReDISK). 
ON ERROR). 



00183000 
00164000 
00185000 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0000*0 



00185100 
00185500 

00186000 



0000*0 
0000*0 

0000*0 



ERROR RECOVERY IN PROCESS 
LOGICAL UNIT NUMBER* 
_I_NOEX OF NEXT REQUEST TO BE 
OR 



ON THIS I»0 

DONE ON THIS UnIT 



11 « 
12-17 a 

18 -32 s 

971777 IF NO NEXT REQUESTX 
33-4/ = ORIGINAL LOCATION OF I-O DESCRIPTOR.* 
UNI tCuJ CONTAINS INF ORMATION ABOUT LOG ICAL UNIT U.* 



OOI861OO 
00167000 
00188000 



0000*0 
0000*0 
0000*0 



00189000 
00190000 
00191000 



1- 4 « 
5-12 s 

13 g 

14 5 

15 « 
16-17 5 



TYPE OF 1^0 OEVICEX 
ERROR FIELD OF LAST 
UNIT NOT READY BIT* 



I/O DONE ON THIS UnH* 



00192000 
00193000 
00194000 



0000*0 
0000*0 
0000*0 



ERROR BIT CON IF ERROR)* 

HAIT BIT CON IF UNIT IS WAITING FOR A CHANNEL 

PROCESS BITS CUSUALLY B OTH UN IF UNIT p In* 



00195000 
00196000 
00197000 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0000*0 



, wmmmiiWmXMmi , 



%iTM PRINTERS ThE* 
I AND THE PRJNTeHI 



00198000 
013199000 
00200000 



0000*0 
0000*0 



Jtp 



18-32 s INDEX OF FIRST I-O REQUEST FOR WHiCiN SeHVIcE 



00201000 T 0000*0 



• • 



1 

I 2 
3 
4 
\ 5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
IS 
17 
18 



o 
Q 



<9 
h 20 
21 
22 
I 23 
24 
a I: 

► «^. 

26 

M 
31 " 

33 
34 

36 

37 ~ 
> 36 

39 

40 
I 41 

42 

43~ 
I 44 

45 

46 
i 47 

•8 

49 

50 

51 

52 

» 

54 

5« ;,;; 



3 3-4/ s 



IS NCT 
IM J^X . DF , 
NOT -^SED IN 



COMPLETE* 

J-AST UNSERVICFD 



I-O REQUEST. X 



REAL 



THE SPACES NOT ^SED IN THE t«0 ttUEUE ARE lINKEO TOGlTHERX 
THKOUSM IGQUE, the FIRST AVAltASLE IS IN IQQUEaV All.1* 
lOQUESLnTS^TQQUFAUATLi 



ARRAY iQQUEt*]/ 

DEFlNt RETUBMuSpACECHETURiNluSpACEU ^ 
BEGIN IDQtlESLQTS: = IcmiF.sl flTS-^^; 



END*/ 



IOaUECRETUKNIC5PACEl3««lOaUEAVAiyt 

iq«ueavaili*returniospacei; 



ARRAY UNiTt*]; 

C0HM£NT UN IT 
ARRAV TTMLir*H 



NOW FiLLEu IN initulize; 



COMMCNT TINU NOW FIUeO IN INITIALIZE; 
ARRAY WAlTuUC£*3i 

REAL N£XTWAIT>FIHSTHAIT1> 
COMMENT WAITque IS A 
REfiuEiTS BUT NO 
FIRSTWAIT ARE 



8X 



ARRAY LABELTABlEC*3/ 



QUEUE OF UNITS FOR WHICH THERE ARE* 
CHANNEL Is AVAILABLE. NEXTWAIT ANDi 

- .- POINTERS AT THE WAITqUE. NlXTWaIT tS ThEX 

NEXT AVAILABLE SLUT IN WAITQUE AND FIRSTWAlT POINTS ATX 
NEXT UNIT TO 8E USED WHEN A CHANNEL IS aVaILABUCI* 



32X 



% 
% 



32* 
32% 



ARRAY MULTlTAbLEC*]' 

ARRAY RDCTftBLEC*]; 

ARRAY PRNTABLE[*]Jat 

ARRAY REPLY C*3iX 

COMMENT LA8ELTABLE, MultItABlE, AnU RDCtABlE CONTAIN LABE^ INFORMATION* 

BY LOGICAL UNIT NUMBER AS FqLLQWSU 

LASELTABLECi] CONTAINS THE FILE ID FOR LOGICAL UNIT I.X 
MULTITABLEMJ CONTAINS THE CORRESPONDING MULTl-piLE Ip.X 



RDCTABLEU] CONTAINS THE CaRRESPQND I NG REEL NUMBER 

CREATION DATE (IN C24U?n# AND CYcLE (IN HHi7}U% 
i SET OMIT » NOT(SmAREOISK) 

Real optiqn;x 



(In [la»ioi). 



REAL illmnqct; 
Real pingo; 

REALRE ADQ* RR NC OU NT i 



DEFINE PUTsSeT*; 



) 



$ SET OMIT 5 NOT(DaTACQM 
ARRAY TRANSACTlONt*J; 
DEFINE EtRLNG = ^» i % tENGTH 

SAVE REAL ^-KUCEDUf^E IWOcN)' VALUE n; 



OF 



ENTRY IN FILE 8L0CKX 

INTEGER n; 



32X 



002C2C00 T 
00203000 T 
0020^000 t 
00205000 T 
Qft3n5^on J 



OCOC'O 
O 00Q «0 



OOOOlO 

0000*0 
ooQoin 



00206000 
00206500 

oopozono 



00207500 
00206000 



OOOO'O 
0000*0 
0000*0 



0000*0 

0000*0 
000Q*n 



00209000 
00210000 



00241000 
00278000 
QQgyVftQQ 



OOOOlO 

oooo«o 
onon»o 



00280000 
0028l000 
00282000 
00283000 
0028^000 
00285000 



0000*0 
0000*0 
QQOO*n 



0000*0 
OOOO'O 
0000*0 



00286000 
00287000 
Q02H8QQ0 



0000*0 
0000*0 
0000*0 



00289000 
00290000 
00291000 



0000*0 
0000 '0 

O QOO»0 



00292000 
00293000 
0029^000 



0000*0 
0000*0 
0000*0 



00295000 
00295999 
00297000 



0000*0 
0000*0 
OOOOlP 



00299000 
00301000 
00301100 



0000*0 
0000*0 
oooo*n 



0000*0 
0000*0 
0000*0 



O03cl2O0 
00304000 
00305000 



0000*0 
0000*0 
0000*0 



BEGIN HEAL T=+i; 

SIREAM(N»sNJa47-N»T»sET]); 

BEGIN SKIP N UB> DSJ»SETi tNO; 
END TWOjX 



START UF SAVE 



00306000 

segment; Base 

00307000 



00308000 
00308500 
00309000 



T 0000*0 
ADDRESS » 

T 0000*0 



00055 



0000*0 
0002*1 
0003*1 



Real syllable;* 
set omit g ndt(sharedisk) 

5HARE0ISK 



SYSMAX«U; 



$ SET OMIT a 
DEFINE SYSNOaO** 

A POP OMIT _^ 

ANALYSIS PLACES 
SYLLABLE, THIS 

^ VAJSiouS errors;* 



SIZE* 0004 
OO3]0o0C T 0000*0 
00310099 tOOOOJO 
T OoOfllO 



WORDS 



COMMENT 

IN 



THE SYLLABLE THAT CAUSeD THE InTeKRUpT 
IS USED BY PRESENCE BIT' FLAG BIT' AND 



00310199 
00310200 
OOllOgOl 
00311000 

00312000 
00 313000 

00116000 



0000*0 
0000*0 
0000*0" 

0000*0 
0000*0 

0000*0 



START Of REL SEnMENTI 0|S« /^0§#|«a « 00002 

__-...«_„_ Q0?i#i00 T 0000*0 

START Of REL SE^HeNt; DISK aqqAeSS :: 00002 



i 

i 

i 
i 



9 
10 
11 
12 
13 
14 
15 
16 
17 



19 

20 

21 

22 

23 ' 

24 

25 

26 ' 

27 

28 

29 ( 

30 



• 
• 



31 

32' 

33 



34 

35 I 

36 

37 

38 I 

39 

40 

41 

42 

43 



45 
4fi 



47 
48 
49 
50 I 
SI 



11 



62 
53 I 
54 
5S 
56< 



# # 



>T 



10 



12 



16 
17 



>9 
20 



26 

26 <: 
27 



90 

31 " 

32 

33 

34 

3S 

36 



SET 

ALL 



UMi r = 

OM I T a 



NOT 

ML 



Dt:clUGGlNG 



ARRAY 0AL0CC***3# DALOCRDW»OALOCC * 3i 
» SET OMIT * NQT(8REAK0UT) 

REAL memask;x -" ■■■• • ■■■ -■■■■■'-yv. . : . 

REAL OLAYMASKiX FUR LUCKING OUT GETMOReOLAYD I5K BY MiX INDeX 
PROCEDURE US£RDISkShECIALCASE(Q*H,U,J);VAlUE Q<iJ;REAL <i,RfJi 
S TA RT 



00316999 



0000»0 
QOOQ»n 



00333000 
00333099 
00335n00 



OOOOJO 
OOOOiO 
QQQOln 



ARRAY UC*]/ FORWARD 
DEFINE BASE»30268##» 
CriUNKSlZE*50Q»J» 

COMMENT 



OF K£.L 



00336000 

003 36100 

StcMKNT; DISK 



00336110 
0033B000 
0Q339QQQ 



T OOOOIO 
T 0000 »0 

AnnRFSs » 00002 



G000»0 

oooo<d 

QOQQ*ft 



REAL 
SAVE 



leftoff; 
procedure 



POINTEK TO CYCLE FQH OLAY;x 
DlSKKTNCSEGNOv SI^Ej; 



VALUE 



SEGNO"* 

segno# 



S IZE^ 

size; 



START QF SAV£ 



00341 000 
00363000 



T 0000 «0 
T 0000 «0 
.AQDRESS «» QQ059 



PROCEDURE F0RGETE5PDISkCSEG);VAlU£ 



seg;h£al segjforwaro; 

Save TNTEGER procedure OlSKSPACECNWnROS^PlMIX^AUXWX 



00363100 

00363200 
00163300 



START UF REL 



00364000 

segment; disk 

OQ36 SQ0Q 



OOOQIO 
OOOOIO 



T OOOOIO 
ADDRESS « 00002 
J O QOO ' O 



Value nwqrds»pimix«aux; 

INTEGER NW0RDS»P1mIx;REAL AQXi 



START OF SAVE 



SEr,»ENTl BASE 
00366000 
00367000 



ADDRESS » 
T OOOOIO 
t OOOOIO 



ooos* 



PROCEDURE 



FORWAHU;* 
STATUS;* 



START OF HEL 



00363000 

00369000 

SE fl ME NTJ PTSK 



T 0000 »0 
T OOOO'O 

ADDRESS . nono? 



FORWARD'* 
PROCEDURE INTERRUPT(TYPE3;VALUE 



type;real type; forward; 



START QF REL 



v* I WH ' U 

REAL PROCEDURE F IN00UTPUT( MID^F lU, T yPE*FORMS»KEEL/CDAtE,C YClE,K INO ) ; X 



00370000 

003/0500 

SEftMENT; DISK 



VALUE MID>FID/TYPE*FCRMS*REEL>COATE*CYCLE*KlND*it 



START Of KEL 



WzKt MIO»FlD*TYPE*FUKMS*HEEl.*COAT£#cYa£'«lND' FORWARD; X 
REAL PROCEDURE F InDI NPUTC MlO*F lO/REEL^CDATE^CYCtE^COBOL* Ul^OF,MO0E'FN); 

START QF REL 



003/1000 
SEr,MEMT; DISK 
00372000 



T OOOOIO 
T OOOOIO 
ADDRESS n 00002 



T OOOOIO 
ADDRESS = 00002 
j_ OOOOIO 



T OOOOIO 
T OOOOIO 
ADDRESS ■ 00002 
T OOOOIO 
T OOOOIO 
T OOOO'O 



VALUE Ml U*F1U* REEL' CUATE' CYCLE* COBOL' UL* OF* MODE* F'n;!! 

Real mid,fid,reel'CQate*cycle/cobol#ul*of#mode,fn; foRward; 
Procedure startimingcfn^u); value fn'U; real fn*u; F"ORWARQ;it 



00373000 
00374000 

segment; Disk 

00375000 
00376000 
0037/000 



37 
36 
39 



PROCEDURE FlLEOPEN(x,A); VALUE X^A; INTEGER X»a; FORWARD; 



START OF REL SEr,MENT; DISK ADDRESS s QOOOK 

00379000 T OOOOIO 
START OF REL segment; QISK ADDRESS » 90002 



40 
41 
t2 
43 



45 



SAVE PROCEDURE SAVEOPEN(A); VALUE A/ REAL A; 
BEGIN FILEQPENC2/A) ENDi 



00379100 T OOOOIO 
START OF Save segment; 8aSE address 3 00059 

003792QQ T OOOQIQ 



PROCEDURE MIXPRINTCGJ; VALUE Q' REAL q; FORWARD; 



StZE9 OOOa WORDS 
003/9400 T 0000 1 G 
START OF REL SE>^MENT; OlSH aOoRESS * QO0Q2 



46 
47 
18 



X TYPES <J0B SPEClFItRS> FOR EACH ACTIVE MIX INDEX 
PROCEDURE J0BMES5CMIX,Q,A*B#C'D);VALUE M IX# Q# A* B* C' 0/ 



003/9500 T OOOOIO 
0037960C T OOOdO 
START OF REL SEGMENT; DISK ADDRESS s 00002 



ts 

so 

51 



REAL MlX'(a»A'8»C*DJ FORWARD' 
PROCEDURE SETNOTlNUSt(U#RWUi VALUE U'RWL; REAL U*RWl; FORWARD; 



003/9/00 
00380000 



OOOOIO 
OOOOIO 



START Or REL SEftMENT' OlSK ADDRESS a Q0Q02 



a 

S3 
M 

55 /f 

56':' 



DEFINE SToPTImInGsSTARTIMINGJK; 

PROCEDURE F I LLBuFFERS(CuRREnT*F I NAu,COBOL/nK); 



#i|iiiElipiiiliippS|p ^ 



:«:iiiii|liiill^f ;|ii|:.it,<?OB':Oi ' nr ; 



00382000 T OOOOIO 
00385000 T OOOOIO 
START OF REL SEr,MENT; DISk aODRESS « 00002 



PROCEDURE REALFlLECLbSECA); vXlUE a; REAL A; FORWARD; 



00385500 
00386000 
00387000 



OOOOIO 
0000*0 



00389000 T OOOOIO 



• • 



n" 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 

'*■! 

16 i) 
16 
17 
18 
19 
20 
21 
22 
23 
24 

m| 

27;;! 
28 
29 
30 



SAV £ PK Q Ct ^put^t: , aLj :ctgsyA|; value; a; H£Ai, a; 



START OF fill segment; DISK ADDRESS » 00002 

0389^00 T P , 0<3 Q » 



■j^iiiwiiilliiiiiil«^::A^*':i'^ 



START Of SAVE SEfiMENTi BASE ADDRESS ■ 8006l 

00389200 T 0000 to 
Sl[Z F* .000t WORDS 



Real PRUcEUURE DlSKAD0RE^S(MlQ*F-iQ*fP83*A,HML)J' 
VALUE M^D,FtD»FHB3»A>H^ iq; 



% (ShM) 
START OF 8EL 
X fSHM) 



00390000 

segment; disk 

00390100 



T 0000 »0 
ADDRESS s 

s onon»n 



ooooz 



REAL MlD»FI0'FPe3#A*l0; ARRAY hC*]; 
FQRWARDjX 
PROCEDURE BlASTqCU); VALUE U; REAL u; FORWARD;* 



X (SmM) 



00390200 T 

00391000 T 
00392000 T 



OOOO'O 

0000>0 
0000*0 



Real PROCEDURE FILEHEaDER CM ID* F1U/NRQWS>SUe»BL£N»RLEN»S);* 



START QF HEL SErMENt; DISK ADDRESS s o0002 

0039300C T 0000*0 
START OF HEL sEfiMENTi DISK ADDRESg * 00002 









procedure PURGEITCU); VALUE U; INTEGER U; FORWARD;* 
REAL ESPTAB»ESPCOUNTJ 



START OF REl 



003970C0 

segment; disk 

0039900Q 



T OOOO'O 
ADDRESS a 
T 0000*0 



00002 



REAL DlRDSKaei7ri 

REAL ESPDlS«BOTTOMi * LOWEST AOOHESS OF ESPdISK 

REAL FSPOISKTOP; % HIGHEST ADDRESS QF ESPDISK 



00^00500 T 
00^01000 T 
OQOOllOO T 



0000*0 
0000*0 

ooooto 



REAL messageholdeh;% 

DEFINE USEDRA = UPT I ON . t ^7 J 1 J# * It 
USEDRB = QPTlON,[46t \1»*% 



00402000 T 0000*0 
OO'iOSOOO T 0000*0 
QOUOUCiOO T OOQQ«Q 



80JMESS aOPTiaN*t*5»l3»** 
EOJMESS "OPTION, Caa*l]##* 
OPWMESS .. " OPTIO N. C 43»l3<>* 



00*05000 T 
00406000 T 
QQ ^Q yO OO T 



0000*0 
0000*0 
OQQQ»n 



TERMGO sOPTlON.C42UJ«*J; 

GIVEDATe « OPTION, CAIJU*^* 
GIVETjME c OPTION. U0tl3</X 



SamE8REaKTAPE*0PTJ0N,C39IU#* % NOT CURRENTLY US£D» 3/73 

AUT0PftlNT«0PTl0N.£38»U#* 

CtEARwRSgQPT ION, 1:37* i3»» . 



00408000 T 
00409000 T 
QO^IQOQ C T 



0000*0 
0000*0 
0000*0 



3's 

32: 

33 

34 

3S 

36 

37" 

38 

39. 

40 

41 

42 



004UOOO T 0000*0 
00*12000 T 0000*0 
00413000 T 0000*0 



NOTlFYUPsOPTIQN.Caai 1]#,X 
DISCONDC = OPTION, csetniK/ 

copnmess»opTign.c 35; nut** 



CLOSEWeSS«OPTlON.C34U3#'* 

ERR0R«SG»0PTI0N.ti3«U«» 

RETHSQ«0PTiaN,C32a3»» 



00414000 T 
00414100 T 
00415000 T 



0000*0 
0000*0 
0000*0 



LibMSg=0PT1UN.[31*1J*. 
SChEDMSG*QHTIC]N.C30:i]*, 
SeCMSg-0PTI0N,C29! 1J«# 



00416000 T 
00416050 T 
00416100 T 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0000*0 



00416200 T 
00416300 T 
00416400 T 



DSKTQG»0PTI0N.C28*13<i, 
RELTUG»0PTI0N,C27I13#> 
PBDREL«0PTlUN.C26*n»# 



CHECKLANK = OPT I ON , [ 25 * 1 3 »» 
UISKmSG»0PTiQN,[24J i3#/ 
USEPBD = 0PTIUN.[21 a3#,X 



00416500 T 0000*0 
00416520 T 0000*0 
00416550 T 0005J0 



(6 
47 
«8 



)SLPbUgOPTXUN.LZl>lJtf»» 
iVPBT "OPTION, C20*X3#,X 

tSTOasOPTION, [19113** 

iUTOUNLO«OPT10N,tf8>13#* 



%DS 



00416560 T 0000*0 
00416570 T 0000*0 
00416600 T 0000*0 



«9 
50 
51 



06416610 T 0000*0 
00416620 T 0000*0 
00416630 T 0000*0 



52 
S3 
54 



RNALL = QPTI0N,[17»1J)K* 

C0QEQLAYs0PTI0N,Cl6:n## 

C0REST-QPtlQ(M.i:i5:n)»» 



00416710 T 0000*0 
00416730 T 0000*0 
004^6740 T 0000*0 



5B ,;, 

sell 



'Wmmii 
mPmb 



DATAQLAY-«0PT10N,tl4in», 

iiiil^iiiiiwiiiiiiiii^ 



PUNCHLCK=0PTI0N.[7» l3*^ 



OQ4t6760 ,T 



0000*0 
0000*0 
0000*0 



0041677C T OOOO'O 



2 
3 
4 
5 
6 
7 



CDQNLY5UPTI0N. [6» I J# 






004 
004 



6780 T 0000»0 
679Q T OQQQ'n 



SE»ARATEaDPT10N.Ca»U»* 
MOB31QS»»QPTlON,C2tl3#» 

AUTOMEbS m OPTION . 1 1 1 1 3 a* 



004 

004 

JIM 



6800 T 
6990 T 
6Q92 T 



OOOOlO 
0000*0 
0000*0 



XXXXXX* OPTION, [0J03#;* 
DEFINE BnjBIT = 45 C l8 J ^2 « 6 ]* , 
fc:OJBlT g 44Cl8M2»6]»* 



004 
004 
00 4 



7000 T 
7010 T 

70 go T 



oooo»o 

0000*0 
0000 >Q 



9 
10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 



c 0P:fe^sif iii»i;;i j*iiiii»#' ' 



004 
094 



7030 T 
7040 T 
7050 T 



0000*0 
0000*0 
0000*0 



ERRRBIT a 33[l8S42J6])li> 

L IBB IT = 3lU8|42l63i»# 
SCHEDBITs3o[l6t42«63<l> 



004 

004 

JJM 



7052 T 
7060 T 
^0^0 T 



0000«0 
0000*0 
QOQQ'n 



NEVE«BlT»62[ieug<63l> 



004 
004 
004 



7075 T 
7080 T 
7090 T 



0000*0 
0000*0 
0000*0 



ALyvAYS8IT*63[IB«42:6]#; 
REAL USERDlSKBOTTOMi 

X DISK ADDRESS qF USEr DISk AVAJLABLt TABLE 



004 
004 
004 



7l00 
6000 

8010 



0000*0 
0000*0 

0000*0 



REAL directorytor; 

X DISK ADDRESS 
XBY MCP LOADER 



Of oihectqrytop 

AND STORED IN Kl 



SEGMENT--STORED IN MC13 

CP prtcdirectqrytqp) 



004 
004 



8050 
8060 

MISL 



0000*0 
0000*0 

OQQQ *Q 



REAL DISKBOTTDM; 

X DISK ADDRESS U^' TOP OF 
S SET DM IT 9 NOT(SHAREOISK) 



BYPASS DIRECTORY. USED IN SCRAMBLE. 



004 
004 

004 



8l00 
8200 

8 799 



0000*0 
0000(0 

0000*0 



S SET OMIT » SHiREOlSK 
REAL hOI,DER»NEXTSlOT»8YPA5S; 
S SET UMIT » NOT STATISTICS OR 



OMIT 



004 

004 

MA 



6849 
6850 

afl59 



0000*0 
0000*0 
Q OO O<Q 



29 

30 

31 

92 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



DEFINE HOLUMAX » 30»' 

COMMENT THE HOLDLIST CO 

THAT IS JNAlTlNG 



% MAX 
nTaINS a ON 
TO USE A F 



IMUM NUMBER OF ENTRIES 
E WORD ENTRY FOR EACH 
ILE THAT IS ALREADY IN 



IN HOLDLIST 
PROCESS 
USE, 



004 
004 



8900 
8910 

69^5 



0000*0 
0000*0 

oooQ*n 



HOLOtlSTxi 
WAlTl 



3.tFr3«THE 
N6 PAOCE&S 

3«CCF3«THE 



CORE ADDRESS OF THE WQ 

IS SLEEPING ON. 

DISK ADDRESS OF ThE FI 



RD THAT The 
LE HEADER 



004 

004 

004 



6920 
6925 
8930 



0000*0 
0000 to 
0000*0 



THAT 

holdlistci 

,& MR Y 



IS BEING WA 
3 .[10*83 = Mi 



I TED FOR. 
X INDEX OF 

NLn 



THE PROCESS THAT MADE THE 



004 
004 
004 



8935 
8937 
9938 



0000*0 
0000*0 
O Q00 *Q 



HOLDLlSTtI 

THAT 
HQ L OLUTC l 



3fC2J23*THE 
MADE THE EN 
3*Citl3 IS 



SYSTEM NUMBER (SYSNO) OF THE SYSTEM 
TRY (SHAREDISK ONLY). 
SET BY A SYSTEM TO NOTIFY ANOTHER 



004 
004 

jmi 



6940 
8945 
flOSO 



0000*0 
0000*0 
QQQO«f> 



SYSTEM 
THE NS 

ORDER 

OlRECtORYSEARCH, NSECONU# 
THAT MANIPULATE THE HOLULI 



Tp AWAKEN 

ECQND RQUTI 

TU Ch ECK FCJ 



THE PROCESS THAT MADE 
NE EXAMINES THE HOLDLI 
« THIS CONDITION CSHAR 



THE ENTRY. 

ST IN 

EPISK ONLYj, 



004 

00^ 
004 



8955 
8g6o 

8965 



0000*0 
0000*0 
000 *0 



45 

46 

«7 
48 

♦9 
50 

51 t? 

52 

» 

S4 

K't 
56 I 



AnO ClEANOUT ARE ThE PROCEDURES 
ST, 



004 
004 



8970 
8975 
8960 



0000*0 

0000*0 
0000*0 



ThE WQROS AbSOClATEC ^»ITh DIRECTORY HANDLING AHEl 
HOLDER. tCFJ = DISK ADDRESS UF HOLDLIST, 

.tFF3 s NUMBER OF ENTRIES IN HDLPLlSTf 






004 
004 
004 



8985 T 

8990 T 
8995 T 



0000*0 

0000*0 
0000*0 



TTffT = HIGHEST ADDRESS OF THE MAiN DIRECTORY* 
ON SHaReDISK* hDUdeR' NEXTSLOT aND BYPaSS ARE KtPT IN THE FiRST 
THREE ><0RDS OF tHE DISk SeGmENT LOCAtrD AT DIRECT0RYT0P-»2 . A 



004 

004 

.OM 



9000 T 
9005 T 
9010 T 



0000*0 
0000*0 
0000*0 



iiiii|WlWS«ii«m:5T" 



004 
004 
004 



9015 T 
9020 T 
9 025 T 



OOOOJO 
0000*0 
0000*0 



MR 




iii^Riiiiiiifp 



"S§» 



iPASSLEVEL 




004 
004 

JiM 



90m f 
9035 T 
9040 T 



0000*0 
0000*0 

00 0*0 



jy 



004 



9i00 T 0000*0 



• • 



2 

3 

4 
5 
6 

7 



S SET OMIT = NOT(BRlAKOUT) 
DEFINF: SCRAivtB>-L(SCHAMBLF.lj>SC(^Ay,Bl.E2 )s(-2>< 



((SC 
(S 





CRAivtB(-e.(aCHAMBLEW-'JCHA^ibUE^)sC-2x 

CRAMBUl.t6n83*aCRAMBUEiaa«»24J) «0D MODULUSxmOOUUUS* 
CRAM0Le2.C6U«3 + ScRAMBLEii.£24»243) MOO MQDUuUS) ♦ 
ISKBOTTOM)f» 



00'4l9iO^ 

Q Q . Ai 9 nQ 



004l9i20 
00419130 



0000 
OQQQ 



0000 
0000 
0000 



M0DULUS«13«» DIRMaD=l69i»; 
COMMENT 
THE RELATICNSHlP BtTI^EEN MQpULUS aND DIRMOq I^t 



DIRMOD t« MQOUUUS * MODULUS' WHERE MODUtUS IS A lOw 
000 PRIME, CTHE RECOMMENDED VALUE Of MOqULUS IS l3), 
FOR SYSTEMS WITH ONLY 4 MEMORY M0DS# MODULyS MyST BE 



004l9i50 
00^19210 
00/U9220 



T 0000 
T 0000 
T 0000 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
l» 
20 
21 
22 
Z3 
24 
26 
26 
27 
28 
29 
30 
31 1 

32 : 

33 

34 

35 

36 

37" 

36 

39 

4C 

41 

42 

43"^ 



00419230 
00419240 
00419250 



SET TO A SMALLER VALUE SO THAT D IRECTORYBU ILDER WILL 
NOT GET A NO-MEM, M AK I NG IT I MPQSS I BtE TO HAlT/LOAOi 
TT IS SUGGEbTED THAI MODULUS BE SET TO n* DIRMOD TO 121 



T 0000 
T 0000 
T 0000 



00419260 
00419270 
00419280 



T 0000 
T 0000 

T 0000 



FOR A SYSTCM WITH 4 mIjOS, It MAV 8E NECESSaRY TQ S£T IT 
SMALLER* DEPENDING UPON DISK CONFIGURATION; 
AfTRAY FSe**»3| ARRAY FSR0WwFSt*H ' 



00419290 
00419300 
00419400 



T 0000 

T 0000 
T 0000 



ARRAY USERDISKC*]; 

$ SET OMiT a NOT DEBUGGING AND NOT DUMP 

i SET OMTT ° SHAREDISK 



00419900 
00419999 
00421 099 



T 0000 
T 0000 
J OQOO 



Define lockdirectory « 

BEGIN if not DIRECTOHYTqG THEn S^EEPC CTqGlE JiOIRECTqRYMASk )* 
LOCKTOGfQiRECTORYMASK); 



0042U0C 
00421200 

00421300 



T 0000 
T 0000 

ji OLQJin 



END*' 
UNLOCKOIRECTOHY « 
.BE.GIN. 



00421400 
00421500 
00421600 



T 0000 
T 0000 

j: 0000 



UNLOCKTOG(OIRECTORYMASK); 



END*; 



* POP OMIT 



00*21700 
00421800 
0Q421fl0l 



T 0000 
T 0000 
T OQOO 



$ SET OMiT 3 NOT ShAReciSK 

REAL ldgfree*iomask>^av£woro; 

REAL core; >USED for SELECTION PURPOSES 



00422490 
00425000 
Q04?0nQ0 



T 0000 
T 0000 
T OO QO 



COMMENT 

C0RE.CHM43 » MULTIPROCESSING FACTOR C^lOO) 
CORE. 1161 153 » SLM QF CORE ESTIMATES FOR ALL >iOBS 



00426100 
00426200 
00426300 



T 0000 
T 0000 
T 0000 



NOW ACTIVE IN THE MIX (DIV 64) 
CORE. C3iJ 153 ' AMOUNT Op COR£ MeMQRY INITIaI-LY AVAILABLE FOR 

PROCEbSiNG NORMAL STATE jOBb (PlV 64); 



00*26400 
00426500 
00426600 



T 0000 
T 0000 
j_ 0000 



PRBCEDURE SELECTRUN CF); VALUE Fi ReaL fi FORWaRq; 
DEFINE SELECTION » INQEPENDENTRUNNER (Pc .SELECTRUN )'0' 160)»; 



START OF REl 



00426700 

segment; diSk 

00426800 



T 0000 
ADDRESS 
T 0000 



a 00002 

5 _ 



PROCEDURE controlcarQ(A);value a;real a; fori^ard;% 

REAL PROCEDURE Dl RECTqRYSEARCH C A' b' C ) ; V ALUE A'B>C;* 



START QF REL 



00427000 

segment; disk 

00426000 



T 0000 
ADDRESS 
T 0000 



00002 







45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



START OF REl 



REAL A#B»c; forward;* 

DEFINE HEAOERUNLOCK»Hu»' 



segment; DISK 
00429000 
00430000 



ADDRESS 
T 0000 
± 0000 



* 00002 







HUCHUl^HU2'hU3)» 
P(MKS'HU3»HU1,HU2#5»DIRECT0RYSEARC»DEL)#; 

PiEAL c irec TOR ysearC:»uireC TORY Search; 



00430100 
00430200 

00430225 



T 0000 
T 0000 

T 0000 



00430250 

06430275 
00430300 



T 0000 

T 0000 
T OOQO 



XXHEAOERUNLOCK CAN BE USED TC WRITE IN THE DIRECTORY A CHANGED 
XX HEADER* TURN UFF THE iNTEKtOCK BIT AND DO THE FORGETSPaCE 
XX IT MAY BE CALiEO ONL^ AFTER A DIRECTQRYSE ARCH( A* B' 4 ) 



XX THE PARAMETEiS PASSED MUST BE (A#B'DS); 

»X WHERE A'B ARL THE SaME aS PASSED Tq THE D I REcToHYSE ARCH 

XX AND OS IS THE RESULT OF THAT DIRECTORYSEARCH 



O043O4OO 
O043O5OO 
00430600 



00430900 

004^1000 

S£flM£NTl pij8K 

004 32(500 



T 0000 
T 0000 
T 0000 



^5oM 
OOQO 



'iiiMiiii 



;^?ii|i|||iiililiili|^ N^ forward; x^ ■ 



T 
T 



AeD<^ESS » 

T 0000 « (5 



00002 



IP 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 



20 
21 



22 
23 
24 
25 
2« 
27 



29 

30 

3M 

32 

33 



34 
35 
36 

37" 



38 
39 



40 

41 

42 

43" 

44 

45 

46 

47 

•8 



FORWARD/* 



START OF SAVE 



SEr,MEMT; BftSE 
00433000 



ADDRESS a 
T OQQQ^n 



00062 



ARRAY ME.S5A(iETABLEC*J; 

DEFINE MESSAGETABlEsIZE • 5«J X NUMBER Of MESSA^Efi^BLE ENTRIES 

DEFINE 



0043S000 
00436000 
0043/000 



ooooto 

0000*0 
000 0*0 



OPTiOnSZ = (MEi>SAGETAfaLEtOJ,t8S 10])## 
TERMSGbZ = (MESSAGETABLECIJ ,C8' 10])#* 
KEY MSgSZ ' (MLSSAGETABLEC^J.CfitlOJ)*^ 



CCTABLSZ » CMebSAGETA8lE[3-».t8a03)#; 
S SET OMIT « PACKETS 
DEFINE 



00438000 T OOOO'O 

00439000 T 0000«0 
004^0000 T 0000»0 



SPOUT IT ( SPOUT m* SPOUT iTZJsiiPOlT (SPOUT IT nili# 
SPOUTE«CSP0UTERl#SPOUTER2*S^'OUTER3)«SP0UT(5POUT£Rn«; 
PROCEDURE SPOUTcMESSAGE;/ ____„ 



0044I000 t ooooto 

004«9999 T ooooto 
OQ4SQQ00 T OQOQIQ 






START OF REL 



O045O1OO 
00450200 
00450300 T ooooto 



T 0000»0 
T 0000«0 
OOOQti 



SEftMENT; OISk 
O045O4OO 



ADOf»E»* • 
T 000010 



• 0002 



QQ4S0^0Q T OQOQtQ 



forward; 

DEFINE 
FlLEMESSAGEspMS** 



FMS(FMSljFMS2j»fMS3*FMSi»*F^Si»FMS6#FMS7»FMS8)« 
FILEMESS(FMS1»FMS2#FMS3#FMS4,FMS5*FMS6*FMS7)#J 

PROCEnURE FlLFMESS(UK#M>FfR>n^CJ; 



00450600 T 0000*0 
00450700 T OOOO'O 
004 50 800 T OQQO»n 



06450900 
00451000 



T 0000*0 
T OOOOjO 



VALUE lJ»K#M*F>R*D»c; 



START OF REL 



00 45 1100 T 0000*0 



segment; diSk 

00451200 



ADDRESS s 00002 
T 0000*0 



forward; 

« POP OMIT 

$ SET OMIT » NQTCPACKET5) 



00451300 T 0000*0 



00451400 
00451401 



T 0000*0 
T 0000*0 



Procedure lbmesscfN/Sn* n* i2'E'uNiTN0*X)i 
valuf fn^sn*iwI2»e>umtno^x; 



no45U99 T ooooto 



START OF HEl 



REAL FN#SN#n*I2»E*UNITN0*x; 

forward; 
PROCEDURE terminatecmix); value mix; real mix; forward; 



00454000 
SErHENt; DISK 

00454 100 T 000* 



T 0000*0 
ADDRESS a 

III 



90002 



SAVE PHocEDURE teriiInalmessagecn); valijE n* REAL n; forwaru; 



BOOUEaN procedure SYaTEMFlLECA'Bj;VALUE A»b; REAL A#8; FORWAROi 
PROCEDURE ENTERSYSFIt£(N)> VALUE N; REAL Nj FORWARD; 



start of REL 

start of save 



SEftMENT 
00 

SEGMENT 



00454200 
00454300 
0046 3100 



T 0000*0 
T 0000*0 
T 0000*0 



; DISK 
463?00 

; Base 



ADDRESS « 
T 0000*0 
ADDRESS * 



START OF REL 



PROCEDURE C0M5; FORWARD;* 



START OF REL 
START OF REL 



00463300 T 0000*0 
segment; disk ADDRESS » 
0Q464QQ0 T O OQO *Q 



00002 
Q0062 



00002 



S SET OMIT s NOT(STATISTICS) 



SEpMENT 

00 

SEf,MENT 



; Disk 

469000 

; djSk 



ADDRESS 
T 0000*0 
ADDRESS ■ 



00002 
OOOO2 



PROCEDURE ASr; 



forward;* 



START OF REL 



PROCEDURE COMli; FURWARD/^ 

PROCEDURE COM13; forward;* 



00 

00 

SEfiMENT 



469099 
474000 
; DISK 



T 0000*0 
T 0000*0 
ADORgSS m 



aooo2 



start OF REL 



00 

SEfiMENT 



475000 
; DISK 
477000 



T 0000*0 
ADDRESS « 

t 0000*0 



00002 



49 
so 

SI 
52 

a 

54 
ss 

56 



PROCEDURE communicated; forward; 



PROCEDURE communicatEi; forward; 
prqcedure libraryload; forward; 



START of REU SEqMENt; DISK ADDRESS * 90002 

00476000 T 0«00«0 
START OF REL SEqWENT; 0I$K AOORE^S » 00002 



00478500 T 0000*0 
START OF REL SEqMENT; DiSk aDDRESS ■ 00002 

00479QOO T 0000*0 



PHtJCEDURE HBRA»YZ£«JI FORWARD ; 

PROCEDURE LiBRAiYbuMP; FORWARD; 



START OF REL segment; oxSi;iiiiiiiiiiioooo2 

00* 795ttfi*»iiiiiii*-. 
START OF REU SEftXENTj DlSHAl>ni«iIS« 10002 



00480000 T OOOOIO 



>r 



!^ SET OMIT s NDKDg MP QH DEBUGGING) 



PROCEDURE COMI9; FORHAROn 
PROCFDURE CQM23; fqhwaro;* 



START OF REL SEgMENT; DiSk aODRESS 

on^BOnQQ T Qfion 

00^83000 T 0000 

START OF REL SEeMENT* DISK ADDRESS 

^ Q OAa rOQO T SMfl 



00002 







00002 



li 



4 
E 
6 
7 
8 
9 
10 

11 

12 



proceduhe intrinsictablebuildeRcfh); 



START QF REL sEgMENT^ DISK 

00489QOO 
-START OF REL SEgMENT? DiSk 



AODRESS 
T 0000 
ADDRESS 



* 00002 



m aooQz 



VALUE FH; REAL FHl FORwARDi 
PROCEDURE MESSA6CTABLE8UIL0ER; FURKaRDJ 



00490000 T 0000 

00491000 T 0000 

START OF REl SE^sHFNTJ P T SK AQHRFSJi 





at >0002 



ARRAY PUNTtRC*3; 

DEFINE PUNTSIZE « li 

„. i,„§,.E,T Q,.WI.I..,5, ^,.CT..„.,>'H.AB.E.Dl.§.tS., 



00643000 T 0000 
00643100 T 0000 

OQ643aon T Qi3im 



133 

14 i 



vSti:tiawiirii»iiiiiiiiiiiiiai'v 



OO6437OO T 0000 
00««4000 7 0000 
0064^0 00 T OQO O 



16 
17 
18 



BEGIN 
GC 



TO PCCia3)J 



START OF SAVE segment; Base ADDRESS 

00647000 T 0000 
% TIMER IS A LOOP ON INTERRUPTS 006a6n00 T OQOO 



« 00062 


. 



19 
20 
21 



END/ 

SAVE PROCFOURF PUNT(I)J VALUF li REA L I f 



00649000 T 0000 

SIZE» 000 
0Q 6 5Q0QQ T QOOQ 



1 WORDS 
0- 



22 

23 
24 



BEGIN REAL T=-3; 

REAL [MB* RSLT»RESULT; 



START OF SAVE sEsMENTf BASE ADDRESS 

00650250 T 0000 

00650500 T 0000 



m G0063 







26 
26 
27 
28 
29 
30 



LABEL HA#HS; 

n«iF i»o Then t else punter 

$T8EAM , <QlyP(Q,RQFM l , 



Inx i; 



OO65O750 T 0000 
00651000 T 0000 
Q Q6518Q0 T CLOflJ. 



A«*18' D"I'*f'UNTEh INX 0); 
BEGIN DSl»l3 LIT"-bVS HANG* F""; 

sii«LUc Q f sl{8Si^3; 



00652000 T 0005 

00652a00 T 0007 
QQ65 2 600 T OQ09 



31! 
32 ■■ 
33 



5C0SI»3 RESETI 






fiL S E OS I « R ES ET | S K i p S B J J ; 



63(iF sc^"*-" Then dsischR)' dS'sht"*-"; 

DI«sA; OSJsfl LIT"29290 + jI''; X INI»INI*4.BBW 
SI»»A/ Dii! = «4 WDSi 



00652800 T 0009 
006530O0 T 0010 
00653200 T 0012 



34 

36 
36 
37 ~ 

38 
39 



00653400 T 0013 
00653600 T 0015 
00653800 T 0016 



oiisa; dijs>di*8; 

0S»«4 HT''002C"; 
Ul»»DI+28; 



D6ts32 

end; 
p(hp2); 



% IOBUSY» 
X 0*RTN 

% IOCOMPLETE-LOO R'RTN 



00654000 T 0017 
0065*200 T 0017 
OO6544OO T 0018 



LIT«0 +A+j2(0U+A+J2(0Y+A+t2(oX+A+l2("; 



00654600 T 00l8 
00654800 T 0022 
0o6b5o00 T Oo23 



«0 
41 
42 



TMB>»U60t3l42J63; 

P(CT«BJ*UO>; 

DO- IF CTM8lsp(MKS*hSLT)) 



00655200 T 0023 
00655400 T 0025 
00655600 T 0025 



43 



45 



HA' 
HB» 



BEGIN P(MkS,RSlT»OEl); GO HA END 
UNTIL TmB,[3»6]*6C; 

IF tm8.ccf3<i then go tq hb; 



» THEN X iQ BUSY 



46 

47 
«8 

49 
50 

51 



00655800 T 0027 
00656000 T 0028 
00656200 T 0030 



t SET OMIT 



IF TM8.EFF3;'0 THEN GO TO HA; 

NOT AUTODUMP 

DO UNTIL false; ^ 



00656400 T 0032 
00656500 T 0034 
00657800 T 0034 



52 



end; 

$ SET OMIT » OaTACOM 



00662000 T 0034 

SIZES 00 

00689990 T 0000 



5 WORDS 







S RESET 

iiil 



$^"^'iET"'B'M I'f^ = .^^^.^^^.^ 



septictank 



^ 



mm 



00690000 T 0000 
00699990 T 0000 

oo»»y999 t OQoe 



00999999 T 0000«0 



• • 



Save procedure startiocu); VAiut- u; real u; forward; 



K 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 



START QF SAV E S£r. M EN 



165000 T 0000«0 

; BASE ADDRESS « fl0n9fi 



Save procedure complexsnoozecprwcooE); value pri; heal prI»cooe; ' o 

START OF SAVE SE(iMEN 
BFGIN SnOOZE(P«IM>P(.CQDE»lQD)U lnDt . Q. 



2«0000 T OOOOIQ 
; BASE ADDRESS » 
2^^0100 T OQQQtQ 



60098 



DEFINE C0MPLEXSLEEPCt0MPLEXSLEEPl)»C0MPLEXSNOD2E(PRYORCplMIXJ* 
C OMP L£>S L E £Pn<; 



SIZE* 0002 WORDS 
240200 T OOOOJO 

2^0300 T OOOO'O 



PROCEDURE USASITAPE<AREA#TYPE»FRUM#U/DIR); 



XRH« 



VALUF AiEA,FRQM»U#nlR; ReAl ARyA>TYPE^ FROM* U# DIR; 



START OF REl 




SEqMEN 

a 



BEGIN REAL PTN*y; 

ARRAY ULAI3C*J/ 

LAB EL. P?J *ER^^QR^VQl■^BAD/>^A^fT^P^ETIP^ 



250t00 T 000010 

; DISK ADDRESS » 00002 

2 5 0g^?Q T QJHSmih 



250300 T 
250400 T 
250f?q0 T 



0000»0 

000010 

..QQQO'O 



rtiiiiiiiiii:iiiiiiiiii#; 



END labelspace; 

SUBROUTINE VDLlFiLt; 

REfilN STREAM(AREA^LLAB); 



290600 t OOOOfO 
25OT00 T OOOilO 
250ft00 T ooo<tn 



250900 T 
251000 T 

25UQQ T 



0008 
0008 
Q0Q9 



20 

21 

22 

23 

24 

26 

26 

27 

U 

29 

30 

31" 

32 

33 

34 



BEGIN DSl«8 LIT " LABEL "; DIUOI + 1; SII*aREA; 

SUSI+iiHF SC*" •* THEN DS^/LIT^O" ELSE DS*7CHR; 
0I»0I»37; atWiD 



siisarea; iii5Si+5; DSt=b chr; xphysiCal tape no, 

end; 
END vulifill; 



251200 T 
251300 T 

25 i 3 1Q..T 



00 to 
0012 
0014 



251400 T 
251500 T 
2516 T 



0014 
0015 
0015 



SUBROUTINE HDRICHK; 

BEGIN STR£AM{Yt»OtAR£A*X|»0); 
BEGIN Olt'LOC-Xi 0SU4 LiT '^HPHl"; 



251700 T 0016 
251800 T 0016 
2S190Q T Q017 



siibarea; DiisLOc x; 

IF 4 Sc*DC Then tally»»i; 

y:sTally; 



252000 T 0018 
252100 T 0019 
252200 T 0019 



END 






252300 T 0020 
252350 T 0020 
2S2400 T 0080 



36 

37 "^ 

38 

39 

40 

41 

42 

43 



Subroutine 

BEGIN 



hdrifill; 

stream(ahea#ulab); 

BEGIN si! = are:a; sn»si*4; 



252500 T 0021 
252600 T 0021 
252700 T 0022 



01»=01+17; 

sii*si^i7; 
snasi + ii; 



0S««7 
DSt»3 
0S«a5 



chr; 
chr; 
chr; 



*FID 

XREEL 

JtC'DATC 



2S2800 T 0022 
252900 T 0023 
253Q00 T 0023 



SI j = si-a; 
Si:aSl+7; 
DlJsDI+i; 



D5t=2 chr; 
DS»a5 chr; 
Sijssi+2; 



XCYCLE 
XP-DATE 



253100 T 0024 
253200 T 0024 
253300 T 0025 



46 
46 
47 
«8 
49 
50 
SI 
52 
S3 
J4 
55 't 

56!;^ 



end; 



osi«5 chr; »block count 
DSi«7 chr; »recoro count 



253400 T 002513 
253500 T 002610 
253600 T 0026H 



END hdrifill; 
SUBROUTINE hardfill; 

BEGIN PTN»»PRNTABLE[U3^t30>18]; 



illipliiPWiiliiiiWl 



253700 T 002612 
253800 T 0026<3 
253900 T 0027«0 



25*000 T 0028«2 
254X00 T OOSOtO 
15 0200 T 00 30*2 



DSl»8 LIT " LABEL "; 

end; 

ULA6[l]l«MUL7lTABLttU]; 



254300 T 003l»0 
254600 T 003211 
254650 T 0032 » 2 



'liiiiiiiiiiiMlliiia 
liiilllliiiiiiiiiliiiis 



254700 T 003410 
234800 T 00341 1 
254900 T fifllMlL 



BEGIN VOLIFILL; 



255000 T 0037«3 



P(l(vAI7l0(Pl4 0O00 0O5*P377*U)#DEL); 
P(KA ITIQ(AREA INX g 1 ^0540000000, P377 . U ^ * nri , ) ^ 



IF Y THEN «D«iF|LU ELSE gO TO ERRORJ 
P(WAlTlQ(»34000000S*»S5>b>>P£L)l 



IF 



MM. 



P(WAlTl0(P3400C000b*ei55/U3#DEL); 

GO TQ wait; 






10 



12 
13 



IS 
16 
17 



19 

20 
21 



24 






30 



34 
35 
36 

37" 
38 



42 

43" 

44 

*S 

46 

47 

48 

49 

SO 

51 

52 



s«i 



VOLS 






H(WAIT10(AREA INX P120540000000* P377 »U J/DEl ) ^ 

HQRlCHKj 

IF Y THEN HDHlFfLL JLS E G 



end; 



ilii 



^iiiiiiiliiiiliiiiiii«iifl'; 



IF TYPE«2 THEN 
BEGIN HDRlFlUi,; 
HARDFILLJ 



;:ENtl' 



GO TO exit; 



end; 



If FROM33 UR fRUM = /» THEf^ 

BEGIN IF TyPE=1 THEN 
BEGIN VOLiFILL; 



VCL. 



GO TO 

End; 

IF TYpEag OR TTPE=<I THEN 



begin horifilu; 
mardfill; 
GO TO Exit; 






ELGIN P( WAIT IOC** 3^0000005,^377,0), DEL); 
P C WAIT I U(P 340000005' **377,U), DEL )i 
PC W A IT 1 0( AREA I NX g 120540000000,^377,0), DEL); 



END ELSE 

P(WAlTlU(AREA 

hdrichk; 



INX 9 1 20740000000* ?377»U)#ot.L); 



IF Y THEN HDRIFILL ELSE GO TO ERROR, 

hardfill; 
GO TO wait; 



end; 

if type86 then 

BEGIN HDRIFILL; 



hardfill; 
stream(Ulab); 
BEGIN di;»ulab; 



01 »»0I*39; 



END. 



00 TO exit; 



mtPH^j 



W a I T t 



end; 



PTNlsO; 



:^iiit 






fetMiaa 



wmmmm 

IFCPTNM20)THEN 



gO \Q EXIT ELSE 



^fcOCK); 

If1f1f¥irr 



01255100 
Ql2'?52Q0 



01255300 
0l255/)00 
Ol 25 5 j t 50 



0039»0 
00^Q»2 



0042J2 
0044t0 
00^6*0 



01255500 
01255600 
0l2'^5700 



01255800 
01255900 
Oig'i6nQO 



0047 « 2 
004910 
0053»n 



01256100 
O12562OO 
1 2 5 6 300 , 



0053»0 
0053»3 



01356400 
01256500 
01 2S660Q 



005710 
0059»0 
006010 



01256700 
01256800 
O1 2569O0 



006210 
006312 
0Q 66« 



01257000 
0i257l00 
01257200 



0066«0 

0066»3 
006B» 



O12573OO 
O12574OO 
01257500 



0069*0 
006912 
0069t? 



01257600 
O12577OO 
01257800 



0069»2 
0071 J 1 
0072»9 



01257900 
01258000 
0l258l00 



0074»0 

0074«2 
Q074»3 



01256200 
0l25830tJ 
012S8AQ0 



0076»1 
0078»0 
007910 



01258500 
1258600 

O12587OO 



007912 
0079*2 

OO81I1 



0082»2 
0084«2 

0086*0 



01258800 
01858900 
01259000 



01259100 
01259200 
01259300 



0088*0 
0088*0 
0093*0 



O12594OO 
O12595OO 
01259600 



0094*0 
0096*0 
0097*0 



O12597OO 
01259800 
01259900 



0099*0 
0099*0' 
0099*3 



012600190 
0S260100 
O1260200 



OiOi»0 
0102*0 
0103*0 



01260300 
01260400 
012604 25 
01260*50 



0i03»2 
010410 
0l04*t 



6 12 60 4 65 T 



Ol04*3 
0104*3 



0l05«2 
OliOfll 

0l<^9«g 



iri-Vgiili-WWiifrir-rii-^i-^iTr/. 

011013 



Ti 



A 

5 

6 

7 

8 I 

9 

10 

111 

12 

13 



18 
19 



24 
25 
26 ( 



28 
29 i 

30 



32 ' 
33 

34 

35 I 

36 

37 

3<l 

39 



42 
43 
44 ' 
46 



11 



SO I 



53 I 



56 ' 
5? 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



error: P(WAlTiOC(!'4 20 000 000*i?37 7»U)#DEL); 



01260500 T 
Qi?fi.06Q,Q T 



0112«2 
OlUlO 



BEGIN SI t»LOCT; SII«SI*5; 

OSt»LIT "t"! 0St»3 CHRi 
DS022 LIT ** INVALID USASU 



Rh/L*"i 



01260700 T 
OJ26O800 T 
OlSftQOQQ T 



0U5I2 
011610 
QU 6U 



end; 
spuutculab.ccf]); 
TYPE:*-oi ptn»q; 



LABELTABLECU] J«e3H; 



01261000 T 
0126U00 T 

01 2 611 50 T 



011913 
0l20t0 

0l22»3 



ETlP« IFC(TW0(U) AND 

GO TO BAD ELSE 

PTN*PTN»i; 



P(RHR)) /O) THEN 
SLEEP{cCL0CK3* NOT CLOCK); 



01261160 T 0124*2 
0l26ll?0 T 0l26»l 
0i261ia0 T (^1 29*2 



IF(PTN>120) THEN GO TO BAD ELSE GO TO ETIP; 
EXIT: MQVEdO'ULAB. CCF3* AREA.CCF3 ); 

FoSGETSPACECULAB.tCF]); 



01261200 T 
01261300 T 
0116 MOO I 



Ol29«3 
0l3l»2 
013ftM 






13 
14 
15 



.EN.O::'UiillfAfEi:. 



XtHR 



16 

17 



SAVE PROCEDURE SNDOZE( NEWPR 1 , AODHESS* MASK ) ; 
VALUE NEWPRI/ ADDRESS^ >^ASkj 



02000000 X OOOO'O 
START OF SAVE SEr,MENTi BASE ADDRESS a QOlOO 

02001000 T 0000 10 



19 
20 

21 



REAL NEWPRIi 
NAME AD0RESSJ 
ARRAY MftSK[*3J 



02002000 T 
02002500 T 
0200 300 T 



0000»0 
0000>0 
OQQO^Q 



22 
23 



BEGIN 
S S ET QMTT ° 



KEAL THYhERE=NTi; 
N OT(NE H l QGGING? 



0200^000 T 
0200^500 T 
02Qn^!i99 T 



OOOO'O 

oooa'o 
onontQ 



2S 
26 
27 
28 
29 
30 



LABEL BEDENTER; 
IF (vJObNUMIsJOBNUM-fj) 
PRY0R[P1M1X3«CFF]» NEWPHI» 



GES JObNUHaX 
NEhPRI^U 



THEN PuNTC9)i 



02004900 T 
02005000 T 
02006000 T 



0000<0 
OOOO'O 
Q03 » P 



FOR 



STEP 



IL 



THYhERE^-JOBNUM 

BEGIN 
PRYQRCCBED[TRYHERE]«-BEDETRYHERE 



2 UNTIL 2 DO 

2 3?tt 3»' ^33»i;FFj 



0200/100 T 
02007200 T 
02007 300 T 



0006*0 
0007*0 
0007*0 



31 
32 
33 



S NEIwPRI THEN 60 
BEDtTRYHERE+13 * 

end; 



TO 8E0ENTER; 
8EDCTRYHERE-n; 



O2O074OO T 0009*2 
02007500 T 00ll»2 
03007600 T 0014*0 



34 

35 

36 

37 ~ 

38 

39 



bedenterj 

aEDtTRYHERE3 *■ 
BEDCTRYHERE-t-n 



PC audress 
<■ mask; 



& P1MIX(:3I43:53' RDF); 



O2OO8OOO T 
O2OC81OO T 
0;J008?00 T 



0016*1 
0016*1 
019»0 



ST0PLC6(P1MIX#1); 
GO TO NOTHINGTODO; 
FND SLEIP; 



02008300 T 
02008400 T 
Q?009nQ0 T 



0021*0 
0023*2 
G0?4«n 



40 
41 
«2 



SAVE PROCEDURE INDEPEmDENTRLNNER( ROUTINE ^PARAMETER* SS2 ) ; 



SjZE" 0025 WORDS 
020l2oOO T 0000*0 
START OF SAV E SE ^^^E ^T ; BaSe A DDRFSS = 0Ql25 



43 
44 
45 

46 
47 
•8 



VALUE R0UTINE»PARAMETER»SSZJ 

ARRAY PARAf<ETERC*3; 

REAL ROUTINE. SSZ; 



02013000 T 000010 
02014000 T 0000*0 
QpOiSnOO T QQQQ*Q 



BEGIN LSLATEss LSLATE+2 AND SLATEND;* 
IF NSLATE=LSLATE then PUNTC7); 

SLATECLSLATE3 *■ PARAMETER;* 



O2O16OOO T 
02017000 T 
02016000 T 



0000*0 
0002 * 1 
00 04* 1 



49 
50 

51 
52 
S3 

54 
55 

56 



end;x 



SLATECLSLATE+l3t*RauTiNESSSZtCTF3; 



REAL KEYBOARDCUuNTER; 
REAL PROCEDURE KeYIN(B); VALUE b; BOOLEAN B; FORWaRD;* 



02019000 T 0005*3 
02020000 T 0008*0 
_: StZE» 00 09 WORDS 



« NOT(OCi>PO AND OATACOM ) 

WHJ|rSLEEP(WASK); VALUE 



START OF REL 



02020500 

O2O2IOOO 

s egment; DISK 



T 0000*0 
T 0000*0 
ADDRESS « 00007 



S $ET OMIT 
80IIUEAN PROCEDURE 



mask; real mask; 



LABEL PlPR0CE5S*P2PHt]CE5S;x 



02021099 
FqHmARO;» 02022000 

START OF HEL SE/y«ENT; DrSK 



T 0000*0 
T 0000*0 
ADPftESS m 0000? 



02023000 T 0000*0 



• • 



n 

2 
3 
4 
S 
6 
7 
8 



REAL ONEOHONE - (f 101 » ONEOhTkNO = PlOS/* 

SAVE PROCEDURE RuNCMIx); VALUE Mix; REAL MIXJ% 



0202^000 

o ? 02 ^o o q 



OOOO'O 
OOOQtO 



t SET OMIT » NeWLOGOiNG 



START or SAVE SErMENt; Base AODReSS » 00134 

02026000 T OOOOiO 
020 26999 T SfiMU 



$ POP OMIT 



startlOgcmix^o); 



STAQKUSe <• TRUEiX 



02027000 T 0000»3 

02027001 T 0003«1 
0?0?9000 T 3* 1 . 



>ti;v:fi:'5«^ttiiN'AL;-i'; 



ENOIX 



02029000 T 000510 
02030000 T O0O5»2 
SIZE* 0006 WORDS 



10 

11 

12 

13 
U 
16 ! 
16 

17 
18 
19 

20 

21 

22 

23 

24 

2G ■; 

26.*! 

27 5; 

26 

29 

JO 

31 1 

32 I 

33 v' 
34 
35 
36 
37" 
38 



REAL NUM^SS;* 

SAVE PROCEDURE SaVEMIX ( MIX ) ; VALUE MIX; REAL MlX;x 



START OF SAVE 



02031000 T OOOO'O 
O2O320OO T OOOOJO 

SEr.MENT* Base AQDRESS ■ Q0140 






02033000 T 0000*0 
0S033999 T OOOttl 
02034000 T 0001*1 



$ POP OMIT 

end;* 



0203^001 
20 35000 



T 000313 
T 0003'3 
I 2E~ OOO jL 



WORDS 



SAVE PROCEDURE HALT^X 

BEGIN NOPRCCESSTOG » NQPRQCESSTOG^i;* 



START OF SAVE 



02036000 

SEGMENT; BaSE 

_^_ 0203700,0 



T OOOO'O 
ADDRESS . 

JT QOQQ»Q 



00144 



IF P2i^lX > THEN* 
BEGIN P(HP2);» 
^ SET OMIT « NnTCNEWLOGGING) 



O2O38OOO 
O2O390OO 
0?039099 



T OOOl'l 

T 0002'0 

J. 0Q 2»3 



SNOOZEC-l#l.l); 
IF P2MIX > THENX 
BtTfilh SAVFMlX(P2MIX)iat 



02040000 T 0002* 3 
OgOAlOOO T 0004»1 

QaQtaoOfl f Qoo'iin 



£NU;» 



P2Mix«.o; togLe^togle aNd i^ot hP2^aSk# 



XNOUL 



02043000 
02044000 
Qgogsooo 



T 0006«1 

T 0008 « 2 

J Qn0fl>2 



ENDiX 
SAVE PROCEDURE KILlCA)j VALUE AJ ARRAY AE*3;» 



02046000 

ogoaypoo' 



T 0008*2 
tZ£« 0009 
T 0000*0 



WORDS 



BEGIN P(64#STS);X 
FQ«GETSPACE(A);X 



START OF SAVE 



sErment; base 

02048000 
0;?O49QO0 



address a 
T OOOO'O 
T OQOQM 



00lb3 



GO TO NOTHlNGTOoQi* 



end;* 



O2O5OOOO 
02051000 



T 0001»3 
T 0002*1 

iiZe" 0003 



WORDS 



40 

41 
42 

13" 



REAL PBCOUNT; 

Boolean procedure olAyclDo; value lOc; real loc; forward; 



START OF REt 



PROCEDURE SEEKNAMCA,a,C*U*E#N); VALyE A,B;REAL A,B*C#D#e>N^ KORWARUi 

START OF 8 EL 
PROCEDURE UNH00QUE(mIx);X 



02052200 

02052500 

S£r,MENT; DISk 



T OOOO'O 
T OOOO'O 
ADDRESS « 



00007 



46 

47 
18 
49 
50 
Bl 
52 

a 

54 
55 
56 ;': 



02052600 
SEfiMEKTi DISK 
020^3000 



T 0000*0 
ADDRESS « 

T 0000*0 



00007 



START Of REL 



VALUE Mix;x 
INTEGER MIX;» 



segment; disk 

02054000 
02055000 



adoRess » 

T OOOO'O 
T 0000*0 



00007 



■ RE A t ■ m^um^ *<fMmfymmMi^ % . 



02056000 
02057000 
02057500 



T 0000*0 
t 0000*0 
T OOOOIO 



LABEL DOLP*DELINMt; 

FOR U*0 STEP 1 UNTIL 31 DQX 
BEGINX 



iiaiipiaiiHi^pifi^iffrTHfN"^"^ 

■ ■■■'-^if f^-'-^f '■■'■'■f ^f^^'pi^'AflLOt A tOuE C Sn ] ) ) . 1 1«'5 J ■ =! 



02058000 
02059000 
02060000 



T 0000*0 
T OOOO'O 
T 000310 



mmmmmm, 
' ^ TT 



"ei 



02061000 
02062000 

■fgiliii 
ifltrpotr 



# • 



N 

2 

3 

4 
6 



16 
17 
18 



19 
20 



21 

22 

23 

24 

26 : 

28 

27 

28 

29 

30 



31 



34 
3S 
36 
37" 



39 



«2 
43 



«4 
46 



♦7 
«S 



49 
SO 



53 

S4 



56 



MIX ThENX 
IF L0CATQUECSN3.C1H1 J 



THEN S«-SN ELSE 



02065000 

Q?,06?109 



OOlO'l 
001Q»3 



BEGINX 

LOCATOuECSl^LOCATOuECSUTtnFJ;* 
RETURNIOSPACECSN)! 



020167000 
02 6 9 



0013»2 
001510 

017* 



END 

S4.sn;x 



ELScX 



ENl)* 



02070000 

02071000 

0g072000 



0020»1 
0020«1 
002^ » 2 



END 



i SET OMTT s NOT 



end; 
dfx; 



02072100 
02072200 
0PD72liQD 



002l>2 
0022>0 



DCLP» FOR U*0 STEP 1 UNTIL 31 00% 

aEGINX 
IF (S «- {T«-U MTrU3?,rFFn^P7777r THEN 



02075000 
02076000 
02077000 



0024 M 
0025 ?0 

onp'^in 



BEGINX 

IF L0CAT0UECS3,C3«5]aMiX THEN* 
RFfllKi 



IF CX«-T.C13»5nsO 

GO delinkit; 

IF X»4 THENit 



OR X*I6 THEN 



02078000 
02079000 

oaflaoQQo 



00a7»3 
0028U 

ooaotB 



02081000 
02082000 
Q2087QOO 



003011 
0033*0 
00 33*3 



BEGINX 

IF LOCATOUEtSl.CFFr 

RffilNX : ^_ 



917771 THENX 



OaGgSOOG 
020 89 000 

Qaotooofi 



0034«g 
0035*0 
00 3ftV3 



i«-first>^ait;x 

WHILE WAlTQUECn^UX 
,nQ I «- Itl AND 3181 



02091000 
02092000 
02093000 



0037*1 
0038*0 
003812 



«AITQUEtl3*X 

ttAlTQUEtNEXTWAlT*NEXTWAlTx 
♦ 3t AND M3fX 



DFLINKIT? 



UNIT[UUT&«'77777[13«28«201; 
END ELSE 
. VNIT[U3»»T&L0CaTQ U£[S][FTFJ; 



02094000 
02095000 
02096000 



0043 
0043 



02097000 
02097200 
03097/100 



0046 
00^8 
046 



S SET OMIT « NOT DFX 



END 



RETURNIOSPACECS); 
ELSE 



02097590 
021 00000 
OgiOOaOO 



00S2 
0052 
0055 



END* 



PR0CE«-((U^23 AND U''24) QR 
AND X^25 UR PRQCEi 



X»3) 



O2IOIOOO 
0210U00 
2102QOO 



0055 
0058 
O Q60 



M. 



END 
PR ORE 



ENOX 

tH£)S.i: 



;x 



02103000 
02104000 
02105000 



0060 
0060 
0062 



BEGINX 

SLEtP(i'n;pRccE*o;GO TO oolpx 

end;x 



02106000 

02107000 
02108000 



0063 
0063 
0066 



END UNHQOQUEU 



02109000 T 0066*1 

SlZE« 0067 WORDS 
02110000 T 0000*0 



REAL PROCEDURE GETESPO I SK; FQRh AHU; X 

PROCEDURE CHANGEMCP(KTR)j VALUE KTR; REAL KTR; FORWaRDj 



START OF REl 



Procedure changeintrinsicfilecktrj; value ktr; real ktr; 



START 
forward; 

START 



02111000 
SEr,MENT; DISK 
02111100 



T 0000*0 
ADDRESS » 
T 0000*0 



00010 



S SET OMIT = N0T(DEBUGG1NG3 
REAL PROCEDURE ANALYSISi FORWARD) 



OF REl sErment; disk aporcss « oooio 

02111200 T 000010 
OF REl SEflMENT^ DISK ADDRESS » 00010 



START Op REL 



PROCEDURE 5M0RTC0MMUN|CATE; FORWARD; 
PROCEDURE COf^tTlNUlTYBITJ FORWARDS 



02111299 
O2III4OO 

SEft^ENTJ Disk 



T 0000*0 
T 0000*0 

aodRess ■ 



00010 



start of REL 



021U500 
SEgUCNt; DI3K 
2UU9P 



T OOeoiO 
AOORfSS » 



OOOIO 



start of REL SEqMENT) DISK ADDRESS a OOOlO 



REAL cctblword; 

DEFlNr CCCOUNT 



V, CCTeL W0R p. , [FF3<(. 



02112000 
Q?n2lQQ 



0000»0 
OQOOtQ 



CCTBLAOOR » CCTStWORO. tCF 3#i 
REAL R£AOCRA*RCA&CRe; 
i SET QMTT m NQTfftACKgTSl 



02112200 
02112500 

Q21130 79 



000010 
000010 
QOQ O?n 



4 

s 

6 
7 
8 
9 
10 

11 

12 

13^ 

14 

15 if 

16 

17 

18 



PROCEDURE MESSAGEWRITER'* 

BEGIN REAL KC)<»-*-Q* MSCHg-2; 



02114000 T 0000 «0 
START Of REL SEr,»<ENT; DISK ADDRESS ■ OOOIO 

02 U 50Q0 T OQO Oln 






02116000 T 
02117000 T 
Q91160QQ T 



OOOOIO 

ooooto 

OtfOQ»0 



SET 
SET 



QMIT 
OMIT 



NQTcDCi»PQ 
DCSPO 



A\0 DATACOM ) 



02119009 T OOOOM 

02119019 T OOOOVl 

02119020 T 0.0Q0« 



4^ 



OMIT 



?iiiiiiii»iiiiaiiiiiiii 



lsilll:'iil*ii^3^.ii': 



ojjii9oai T 

02120000 T 
Q?12l0Q0 T 



OOOOll 
OOQOfi 



NUMeSS «■ NUMESS-i;X 

T ♦ M[MESSAGEHQL0EH3.tl8»l5]/ 
FORGET SPACFC MESS AGgHOLDFR 



jN)^ l)f 



02122000 T 
02123000 T 
0?1 2A' ^O0 T 



000211 
000312 

OQ 05<J- 



19 

20 

21 






yi% 



02125000 T 000710 
02126000 T 000713 
02127000 T 000912 



22 
23 
24 



fcND;X 
M ESS AGE HOLDER <• 



o;» 



02128000 T 0010»0 
02129000 T 0010»0 

nznoQOQ T — ooion 



26% 

28:': 

27;- 

28 

29 

30 






02131000 T 00U«2 

S|ZE« 0012 WOROS 
OgiaiQOS T OOOQIQ 



$ SET OMIT » PACKETS 

PROCEDURE SPOUT (Message)' 



Start of rel 



02131999 

02132000 

SEftMENTJ DISK 



T OOOOIO 
T OOOO'O 
ADDRESS M 00011 



33 ' 



REAtl'tiiiiiiii 



02U2100 T 0000*0 
02132200 T 0000«0 
0P132301 T OOOOIO 



34 
35 



36 

37" 

38 



$ SET omit » NOT(PACKETS) 

BEGIN REAL MKSC^<aM£sSAGE-l ; 
INTEGER MIX; 



02132299 T 
O2I330OO T 
02133010 T 



0000»0 
OOOO'O 

oooo«o 



$ SET OMIT 
S SET OMIT 
$. SET OMIT 



« NOTCDATACOM AND OCSPO ) 

= NOT<PaCKETS) 

a NQTCOATACQM AND OCSPO) 



02133011 T OOOOtO 
02133129 T OOOOIO 
02133^99 T OOOOIO 



M 
41 
«2 



MESSAGE ♦ P(,MESSAGE*LOD) ,C33»15]"i;X 
MIX ♦ M[MESSAGE-1 J»[9»6]; 
$ SET OMIT = N0T{DA1AC0M AND OCSPO ) 



02134000 T OOOOIO 

02134005 T OOO2I1 

02134006 T 000413 



0^2iPii9 f 000411 
02134099 T 0004 I 3 
02134906 T 000413 



45 



$ SET OMiT « NOT(PACKETS) 
$ SET OMIT = NOTCDATACOM AND OCSPO ) 
fiEfilN 



0213^000 T 
02136000 T 
02137000 T 



«7 
t8 



IF MESSAGEHOLDER a THEN* 

aEGiN messageholqeR «■ Message;* 

lNDEPENDENTflUNNER(P(tM£SSAGEWRlTER)*0,64); 



000413 
OOO5I2 
OOO6I3 



49 

JO 

51 




fefiiiiiiiiiiiiii 



MESSAGEHOLDER. C18U5] > MESSAGE;* 
tND; 

m[message-i].c9i6] 4- o;* 



02138000 T 
02139000 T 
02140000 T 



oooeio 
oooeio 

00tl*t 



02141000 T O013»3 
02141020 T 001510 
02142000 T 001510 



52 
53 

54 









55 

56 1 



BtGiNTr^orrr 



2145000 T 00 2210 



55 

56< 
57 



# • 



LI 



IF SC i 



thenx 



N 

2 
3 
4 
5 
6 
7 



BE glM I F SC* 



TH E Na^ 



02U6000 
Q.2Hy,00Q. 



T 0022 
-I Q,Q22 



«1 



BBI BEGIN Sl« SI4U 

ir SC*** " THEN GO SBJ 



02146000 
02149000 
021*^0000 



T 0023 
T 0023 



tl 
»2 
i4- 



M 

3 

4 

M 

6 
7 

9 

10 

12 

13 

m( 

15 
16 

'H 

18 
19 
20 ( 
21 
22 
23 ( 
24 
2S 
26 ( 
27 
28 
29 { 
30 
31 

32 ( 
33 
34 
3S ( 
36 
37 
38 ( 
39 
40 
41 ( 
42 
. 43 
44< 
46 
46 
47 ( 
48 
49 
50( 
51 
52 
53 ( 
54 
56 
5«< 



BEGIN 51 ♦ 5l-i;x 

DS 4. chr;x 

ENn ELSE G Q TQ Ll» 



02151000 

02152000 
02154000 



T 0024 
T 0025 
X 0025 



V3 

10 

1_L 



END>% 
IF SC » ?14 THENX 
BEGIN DS » CHRiX 



02155000 
02156000 
Qg 157 OOP 



T 0d2S 

T 0025 
T QQ2A 



13 
»3 



10 

11 

12 

13" 

14 

15 

16 

17 

IS 



01 IF SC • ei4 THEN* 

BEGIN SI ♦ Si+i;« 

G O TQ q;x 



02158000 
021S9000 
QPU IQO Q 



T 0026 
T 0027 
J 0087 



<2 

«0 



iiUjH 



^ \E'Noi.I^^ 

*«l;.T0.'li.x 



OS «• chr;x 

GQ TO l;x 



ENDi* 



03162000 
02163000 
Qgl64QQQ 



T 0027 
T 0027 



»2 



02165000 
02167000 
0?168Q00 



T 0027 
T 0028 

T 0028 



»3 

»0 

Ul 



19 

20 

21 

22 

23 

24 

26 

26; J 

27 y 

28 

29 

30 

31 " 

32. 

33 ' 

34 

35 

36 

37" 

38 



^Xll% 



PS * CHRn 

N > Di; 



02169000 
02171000 
?172000 



T 0028 

T 0026 

_t 0028 



11 
13- 



NITUP>NT1<.(CNT1,[33»15]-(MeSSaqE-H))x8+NTi,[30«33)'<6' 
END ElSE i\T1 «• P X M 
$ SET UWIT s NQT(PACKETS) 



02173000 

02173050 
02173069 



T 0029 
T 00 33 
T 00 35 



«0 
»3 



lOTlMEtPlMiX J * *PCDUP)+NTi;x 
$ SET OMIT B NOT(OCSPO AND DA7AC0M ) 
S SET OMIT s DCSPO 



02174000 
02174005 
? 1 75 2 



T 0035 
T 0037 
J 0037 



»1 
«1 



S POP OMIT 



IF (numess* numess-h)>o Then 

BEGIN ^^^_ 



02175003 
02175004 
0P175010 



T 0037 
T 0039 
T 0039 



M 

«o 

«0 



$ set omit » NOTCDATACOM AnO DCSPO ) 

Sl.EEP(tNUMESS3#*0);X 

end; 



0217!I020 
02176000 
02176100 



T 0039 
T 0039 
T 0041 



«2 
»2 
li. 



end;* 

PROCEDURE END0FDECK(R#TUS1 aO^VaLUE R*TUSTA> REAL R^TUSTA^ FQRV^ARUJ 



02177000 T 0041 

SIZES 00 

02177100 T OCOO 



>1 

42 WORDS 
10 



PROCEDURE pbioca>b); value a; real a*8; forward; 



START OF REL 
START OF REl 



segment; OiSk 

02178900 

segment; diSk 



address 

T 0000 

address 



B 00013 
«0 

M eooi3 



40 
41 
42 
43 



real terminalclqck, stopjob; 

procedure terminateCmix); value mix; real mix;x 



xst 
start of REl 



02179000 

02180000 

sediment; disk 



T 0000 
T 0000 

address 



«0 
«0 



Q0013 



46 

•6 
47 

u 

(9 



BEGIN IF mix LEO THEN BYfiYC^MCP OS-EO*"* 10 )! 

CQMPLEXSLEEPCTERMIX » ei777 OR 
-TEHMIX^CSSUSJ « MIX,[33» 153);X 



02181000 
O2IBI5OO 
0gl62000 



T 0000 
T 0006 
T 0006 



«0 
«2 



ACCIDENTAL ENTRY AT 15 

IF TERMix s 91777 ThEnX 
BEGIN TERMIMALClOCK » CLQCK-t'P( RTR ) ; X 



02183000 T 
0P164000 T 



0013«3 
00 14 » 2 



TERMIX > Mix;* 



XST 



02185000 T 0016»1 
O2I860OO T 0017«0 
021 86100 T OQ. U«0 



52 
53 



end;% 
real procedure placef inder c s» a* p; 



02187000 T 001910 

SIZE" 0020 WORDS 
0?ia7^00 T OQOOIO 



56',' 
56*1 



liiiiiaiiiiis 



START OF REl 



rmWytmMi:::)M^MMs,iS/iiM 



segment; Ol$K 

0218T200 
Q2iay?0Q 



ADDRESS m 00014 
T 0000*0 



jy 



forward; 



02187400 T OOOOJO 



n 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 j 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 

isij 

»'i 

V 
28 
29 
30 
31' 
32 
33 
34 



ARRAY CIDROW[*3*ClOTABLii.sClDROWC*»*]; 
PRQC ED UPF TER^^lN ALMfeSS.A^A.CN); VALUF N; REAL n; 



02187500 
QZlflflOOO 



T 0000» 
JJL QOQO* 



8E01N LASeu FOUNO*OOlT^OWT*TOrT> 
REAL Ai>T>S*ADR;% 



Start qf rel 



SEr,MENTi OjSk 

02189000 

- 0?100nQQ 



ADDRESS 
T 0000 
J QMfl 



9 00014 






ARRAY FIB t*JJ 
REAL BUENtNBUF; 



02191000 
02191500 
0?l9l6QQ 



T 0000 
T 0000 
J 0000 



REAL MlXER'T0piO*LUN*Ln 



INTEGER I«S; LABEL Qli% 



LABEL STT;X 



02192000 
02193000 
Q21940Q0 



T 0000 
T 0000 



SUBRQUTINE SlAPnOFF;* 
IF LUN GEO 32 THEN 
t SET QMIT, « PACKETS. 



02195000 
02199100 
0ai95;99 



T OOOO 
T OOOl 

J onoi 






02195900 
0219S201 
0gl9S300 



T OOOl 
T 0003 
T 0009 



BEGIN SLEEPC[TOGLE]'STaTUSMASK)J 

READY ♦ NOT (I ♦ TWOClUN)) AND READYU 
HRRKiECH *■ NOr I aNU RRRMECH OR I AND SAVEtNOR 



QJJL 



02196000 
021 9^000 
0?198000 



T 0003 
T 0005 

J ooog 



LABELTASLEtLuM 
MULTITA9LECLUN3 



?iu;x 

RDCTAaLEauN] 



o;x 



rNHJi 



02199000 
02200000 
02201000 



T 0010 
T 0012 
T 0014 



LABEL LB#LBli% 
SET OMIT s NOTCNE^nlOGGING) 
NQMEM { = NQmEM"TARCP 11^1X3 « C 20« l3^ 



XIF THIS JOB MAD A nOmEm 



02202000 
02202049 

?2 02lOO 



T 0014 
T 0014 
T 0014 



TARCPlMlX3,C20«lJ»«Oj 

UNt.OCKTOG(TAR[PlMlXJ); 

REPLYtPlMlX]»0;% 



XCQNOlTlON • CLEAR iT 



02202200 
02202500 
02203000 



T 0021 
T 0024 
T 0028 



teijminalglock ♦■ o;» 

TeRMIX,[33Ji53 ♦ PIHIX 
PRYOR[PlMTX]»-t; 



n 



02204000 
02805000 
02205l00 



T 0029 
T 00 30 
T 0031 



IF STOPJOB»flMix THEN 
A «■ IF N < then ABSc 
B ♦ PRTtPlMlXilli* 



ST0PJO8ts*i777^ 

N) ELSE QETSPACE(10,0,0j+2l» 



02205200 
02206000 
02207000 



T 0032 
T 0034 
T 0039 



36 

37" 

38 

39 

40 
41 
42 
♦3 



DO 



IF PCMtL*PRT[PlMlX'8J . 

S<-AOR«-0 ELSE 
BEGIN IF p{MCLl*T0P*Xc 



tCP] J'T0P'XcH*DEL)1HEN 
H#0» INX# . ADR**) THEN* 



XTR 
QVErLaIO RCWTr 



02208000 

02209000 
02210000 



T 0040 
T 0044 
T 0046 



BEGIN IF NOT «tL3 

BEGIN S*-AOR 

T«-0JADR»MCM[L3t 



»C33in THENXNOt type 13 IJiT 

; isegno in Row 
mom3tccf3; % and the mscw 



XTR 



02211000 
02211010 
02212000 



T 00*9 

T 0051 

_1 0052 



END ELSE 
END ELSE % ITS 
BEGIN T«-o; 



s«.-i; 

presenti weve got To work 



While c5»«m 

IF S 6TR T 
S»IF MCT3a 



xTk 

XTR 



O22121OO 
02213000 
02214000 



T 0056 
T 0058 
T 0058 



«5 
46 
»7 
•8 
•9 
50 
51 
52 
S3 
54 
56 

56 I 

57 I 



CT3.tCF3) LSS ADR DO 
THEN TJ«S ELSE PUNTCCP 
3t63«l THEN M[T<.13,CCF 



UNTERt25J3); 
3 ELSE 0> »TR 



02215O00 
02215500 
02216000 



T 0019 
T 0062 
T 0066 



T*T+2; end; 

IF PRT tPl^IX#e3 ,[ 
THEN DO L»M[LJ*HO 



CF3XL OR MtL-l3,MSFF«S 
M UNTIL NOT HCL3fMSFF; 



X T R 

Tack iS marked 
xget last msc>^ 



02216100 
O22162O0 
02216300 



T 0072 
T 0073 
T 0076 



END UNTIL 



l*mcl3,mom;xpoint 

(IF Sj<0 THEN IF 
^ CBtO 



L TO NEXT RCW#JUST IN C^Se, 

s»("U Then el^e 

3<S or not BCSa.PBIT) 



XTR 



62216400 
02216500 

02216S10 



T 0082 
T 0085 
T 0088 



ELSE (P(M[T-2J,t3» l23'DUP)/e700 AND P(XCH );<? I5OO ) )i 
FOUND: AD8 ♦ AQR-TU 
T»>PLACEFINDER(S*ADR*S); 



O22166OO 

02217000 
02217100 



T 0089 

T 0096 
T 0097 






;iw:iii^'? 



W A I T ( - C e INX Qi p T ERM S GSk # M ESS AGET aBL E [ 1 3 



02217200 
02217300 
O2218Q0O 



T 0099 
T 0099 
T OlOO 



,[22»263Ji 



02219000 T O1O3 



# • 



2 
3 
4 
5 
6 
7 
8 



STRFAM(Z;=NXQ*XlsT^Hs6.JtsrJARLPlMTX,0]J* 



02220000 T 
02P .2.J. . Q0 T . . 



7 



PIMIX#INDX«-PRTCP1MIX*83 INX NOT 
OSZE*IF PCMCP(DUP)+1]*T0P) THEN 
TQG»(N»7l« Q*CBCK33» AW 



2 INX 0# 

P ELSE P.C8I103' 



02222000 T 
02222200 T 
02223000 T ft 



11 
13 



XJ- 



BEGIN CI ♦ Cl*Zi 
DS:«LIT "-". 



GO TO LI'* 

si;sq; 



0222^*000 T 
02225000 T 

02226000 T ft 



18 

20. 



IF Se ■ "8" THEN SH»SI41 
BEQIN Al»OU DII»LOC U 



EiSE 



0222?000 T 
02228000 T 
2229000 T ft 



20 
21 
2Z 



10 

11 

12 
13 
'4 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

27a; 

28 
28 
30 

31^ 

32 ;i 

33 

34 

35 

36 

J7" 

38 



End; 
Ds«»T chr; 

IF TOGGLE THEN 



G Q TQ L; 



02230000 T 
02231000 T 
02232 000 T . 



22 

22 
21 



H» 



OS 
SI 
IF 



* LIT 
4- AJX 

SC 31 



" «; GO TO L2;» 



w^« 



THENit 



02234000 T 
02235000 T 
0?g36o0Q T a 



23 

24 



BEGIN SI ♦ Sl + U A * 

GO TQ Li;X 



si;x 



02237000 T 
02238000 T 
0?239q00 T 



25 

25 



t.2.«X, 



01 ♦ An 

SI > Jj SI » SI>1I OS * 7 cmi OS * LIT 



"/";» 



02240000 T 
02241000 T 
02242000 T 



25 

26 
26 



Si * 

;>i«-LOC PI 
Di»Dr2; 



Sl-f 

mix; 

DS^-F 



li ds 

DS«-2DE 

ill; pi 



7 cHR; ds 
c; A«-Di; 
4-a; 



LIT 



02243000 T 
02244000 T 
02244500 T 



27 
28 

29 



sit»x; DS 

TOG( 



»«20 

Oi«-A 

SKI 



chr; a 

; DS«-2 

P sa; 



**oi; 

LIT ' 

IF sa 



THEN 



A«-DIJ 
BgGIN 



3l*lN0X; 
D I»IND X ; 



02245000 T 
02251010 T 
2 851 080 T a 



29 
30 
12 



SKI 

OS* 
A*0 



p db; 

12 LIT 

I; SI* 



DS«.RE 

"EFF 

INDx; 



set; 

INX I 
01* 



oi«-a; 
s -••; 

LOG q; 



tug*tally; 

end; 
Da«-6 DEC; 



02251030 T 
02251040 T 
02251o5o T 



33 

34 



SI* 
T*T 



Loc q; 

TALLY 

ally; 



7{ir 
♦ tall 

0S*8 



SC>' 

Y+i; 

chr; 



0" THEN 
SI*SI+ 

DI»01* 



JUMP OUT; 

d; 0I*A; 
t; 



02251060 T 
02251070 T 
02251080 T 



37 
38 
M 



T(0 

TOG(Sl*L 

Dl* 



i>*LIT " 
LC DSZE 

a; ds* 



"); 

; 01 

5 LIT 



01*0 
*LOC 
" GE 



i-t; a 
q; ds* 
Q «; s 



*Di); 
4 dec; 
i*LOC q; 



02251090 T 
02251100 T 
02251110 T 



40 
42 
44 



TALLY*o; 3CIF SC>''0" THEN JUMP 

tally*tally+i; si*si+i); 
t*tally; 05*4 chr; di*oi-t; 



out; 



02251120 T 
02251130 T 
02251140 T 



45 
47 
47 



40 

41 

42 

43*^ 

44 

♦5 

46 

47 

«8 

49 

50 

51 , 

52 

S4 

55 
S6 



TCDS*LiT " "); di*di-t; A*on; 
Di * a; DS * lit "*'•;* 



end;* 



02251150 T 
02252000 T 
02253000 T 



48 
51 
51 



IF N/0 THEN FORGET 

s*if ■■, 

STREAM(i*S/A*A»GETSPAC£ 



SPACEC0); 



02253050 T 
02254000 T 
02255000 T 



52 
54 
54 



BEGIN 17(DS*a LIT" 
17(8(IF SC^"* 
Lit DS«-2 LIT" 



»"3; si4.b;di*a;di 
" Then ds*chr els 
";% 



*Di+e;DS*ii LiT" "}% 

E JUMP OUT 2 TQ iD) 



02255100 T 
02255200 T 
0P255500 T 



57 
60 
61 



E.N.O'fr ;-:'^;';' 



tHEiH BEGIN HAUJt 



02256000 T 
02256500 T 
O2 2 57 Q00 T 



64 

64 



02182000 



ACCIDENTAL ENTRY AT 



cumplexsleep(-ioo«numessj;x 

NuMEbS 

DO UNTIL KEYIN(Q)xi; 



02258000 T 
02 259100 T 



67 



Zl 



NOP«OC£SST0G 
J4fi£fl^lX#t3 *-JAR 
UWHQ0QU£.CF1M1X)U 



* NOPROCESSTOa-l) 
tPlMlXM3;x 



eNo;x 



02258200 T 
02239000 T 
QaZflOoOQ T k 



74 



±P 



MKER* ?300 + PiMix;x 



02261000 T 0179 



• • 



>r 



IF N=3S THEN 



£QV "PRNPBT ") a 



% Eb-tc 
NQT THEN 



))) » NUT THEN 



IF Cl.»«PRTtPHmXi#253) / TrtEN 

a£QlN IF <LUN»»L«C3Bt53)<l6 THEN SLAPITOFf; 



£nq; 



LUNI=L,[<4385Ji 

slapitopf; 

i prnpbt/disk esfd; 



stt« t*mstakt;x 

WHlLE(l-*T,tCF3)^0 00* 
IF (T»MCL3). [3^123; 



TO CLEAR UNITS. 



^MIXFR AND T>Ol 



'3 

14' 

15 



THEN* 

BEGIN LUN ♦ (TOHIO ♦ NFl.AG( M Cl + 2 3 ) ) . 1 12 » 6 3 j 
IF LUN >32 THEN . 



BEGIN 



16 
17 
18 






end; 

IF UNITCLUNJ, [13:53 = 
THEN BEGINX 



P20 



19 
20 



QZt% 



21 



iUAPlTOFF; 
UNlT[LUN3.[13'53;sg20J» MARK 



IT NQT READY ANYWAYS 



24 

26 
26 :.;; 
27 
28 
29 



furgetspacecl 
GO TO stt;x 

END ELSE 



INX 2);* 



BEGIN T * o; 

FI8 «• MtTOPiO INX NCT 23; 
AD9 » NauF » FIBCl33,i:it9] 



'i; 



» 



IF P(M[T0PlU3 .[3»53#D>JPi«22 OR P(XchJ = 26 ThE^ 
BEGIN FOR S «■ i STEP 1 UnTIL ADR DO 
TOIT? IF NOT MCTQPlO INX S3.[19»l3 ThEN 



33 
M 

3S 



OOITI IF LUNS18 TH£N 

BEGIN MtTOPIO INX S3, £20113 * o; 
MIHCTQPIO INX S3 INX 173 » 



36 

37 s 



& FIBC53 [FTC3; 
FIBC53 «• P(0UP#L0D#0#1*CFX**); 
IF NOT PRTR0WCPlMlX3.ty :13 THEN 



meTqpid H><X S3 



39 



IF Fl8CU3,tCF3»FIBCU3,tFF3 THe>^ 
BEGIN P8I0CT0PI0 INX S#FIBCt43); 

SLEEPCCMCTPPJO INX S33*IQWASK); 



«2 
43 



END ELSE 

dEGlN STREAM(C«-M[T0PI0 InX S3» 

Z«-FIB[143«[FF3); 



..ENOJ- 



BEGIN SI «■ cj Qs ♦ la wDs; end; 

FIBCH3,tFF3 * PtDUP),tFFJ-18; 



♦7 
«8 



END ELSE 
BEGIN IF 



WAlTIOCHtTOPIO 

Then go owt; 



INX S]*P357,LUN),U5:n 



so 



IF 



end; 

AOR<0 



Fl8t63 ♦ 
THEN 



*P(OUP)+i; 



52 

53 



BEGIN 

end; 
«• o; 



IF AOR THEN FIBC173 * BLEN; GO OwT; 



55 
56 



IF FlBtl73 < (8tEN*fl8n83,£3»l53) THEN 
BEaiN If NOT Fl8n33 THEN 

F 18117 3 » *P(0UP)»(FlBC53,C46»23»3?j 



MlTdPlfll * FLA6CFl6tl63); 



02261050 
0?261i00 



02261150 
02261200 
02261100 



0i80»3 



0226U00 
02261500 
0P261750 



018411 
01&7M 



0i94»0 
0195»1 
0l 9 6tQ 



02262000 
02263000 
032A4nOQ 



02265000 
02266000 

o?e66ioo 



019610 
0l96»3 
019 . 9 10 



02266200 
02266300 
0?266/iQ0 



0202»0 
020212 

Qgoe'i 



020710 
020712 
0308M 



O22665OO 

02267000 
02268000 



02269000 
02270000 
O227O5OQ 



0212 
0212 
0213 



02271000 
02272000 
03273000 



0214 

0214 

-0215 



02274000 
02275000 
0227Si00 



0217 
O2I8 
0219 



0219 
0220 
0222 



02275jt50 T 0225 
02275200 T 0228 
02275?50 T 0230 



02275300 
O22753SO 
02275^00 



02275^50 
O22755OO 
0?275550 



0232 
0233 
237 



02275600 
02275650 
0a27570Q 



0240 
0iJ42 
0245 



O227575O 
02275800 
02275H50 



0246 
0249 
0252 



O22759OO 
02275f50 
02276000 



0255 
0255 
0257 



02276030 
O22761OO 
02276i50 



T 

T 



0259 
0259 

026213 



0262»3 

0262«3 
026513 



02276200 
02876250 
02276260 



026710 
026910 
027l»i 



02276270 
02276280 
02276290 
02276300 
02276350 
02276360 
02276370 



0272»0 
027510 
0275»0 
0275»3 

027810 
027911 

0283»0 



^V 



m • 



2 
3 

4 
5 



16 
17 
18 
19 



22 
23 
24 



26,; 

28 
29 



30 
31 
32 
33 



34 
3S 



36 

37" 

38 

39 

40 

41 

42 

43' 



STRE:AM(N«-FIBE173*D«-McTOPl03.tCF] ); 

sEGiK N(DS ♦• a LIT " '^ ? ; cnq; 



GO 



ADR 4- "U GO 

end else aor ♦ -2) 
toit; 



ooit; 



END ELi-E 
OWTJ FOR Ml ♦• STEP 1 UNTIL NBUF DO 

MCTQPIO INX Ntn » *P(DUP) 



OR iomask;* 



IF LUNi22 and LUNi20 0« CLUNS18 AND % LP OR CP BK-UP 
(P(MtT0PlO3.[3l53*0UP)«22 OR PCXCH)»10)) 
THEN 



BEGIN IF LUN S 18 THEN * UnIT IS BACKUP 
BEGIN S«-17;« 

streaM(a»d»l*4); 






M2«-NTi,[FF]; nti«-nti,ccf];% 

IF MCTQPia],C3:b3«22 THEN % NOT CP BK-UP 

IF NT1«NT2-72 then* __^_______ 



BEGIN NTI«-MCNT4 + 53,[FF3;* 
MCNT4+53»CFF3*NT1*1*X 
MCNT2.M7J4- gl540004002000000 



'Tit etc 3 I* 



M[NT^ + 1'»J.I;fF3*NT2-18;% 

END ELSei 

IF M[NT2-»3b1.C27»6]»0 THEN M [ NT2>35 ] . f 28 » 1J «• 1 ; 



.EML 



BEGIN T 
IF„IUN^22 



FlBtl73 * -i; 

mETOPIDJ «• FLAG(FlBCl63&0C20U7t 1 j&Scei38«iO J); 

E .US E % 



CA InX PSaOOOOOOOOOOOOO) i(LUNX22)C32J't7« l3X 

&i7taJ38«iO];x 
Then »if punch fIle* ignohe 



IF HAinot^ftooaoooooo^^ssr^tuNj.tosiij 

T»HAlTlO{T*»35r^LUN);X 

IF T,Cft5tl 3 THEN SQ TO QZiX 



THEN 60 «z; 



end; 
end elsex 

IF LUN = 23 



OH LUN324 ThENX 






$ SET 



L»SI 
OMTT « 



STREAM 
81 +U IF 

Packets 



(A<-"EnD" 

sc - " " 



AOR); BEGIN SI 
THEN GO TO L;X 



«■ adr;x 



POP 
.ML 



OMIT 
OMiT 



01 ♦ uoc a; 01 «- 01+5; ir 3 SQ ^ DC Then taluy * it a ♦x 

NOT(PACKETS) ■ 



TALLY end; If" P THEN BEGiNX 



♦7 
•8 
49 
50 
51 
52 
53 



RETURNIOSPACECS); 
UNIT[LUN3**'7777777777X 



END 
ELSE BESIN HCTOPIOJ»MtTOP1030R*2004000000; 
WCPIT0PI033*'^£ND» '♦&»14t U43 |S3; ENQJX 



T*o;x 



end; 



IF 



T^O THEN* 
BEG INX 



55 i 



m 






iiiiiiiiiiiiiiiiiii^ 



If T. E#gl H THEN 40 TO i.8 ElSEI 



GO TO LBIX 



02276i|00 
02276^50 



T 0285 
J. 0.287 



02276500 
02276550 
03376600 



0289 
0291 
0292 



02276700 
02276750 
02277000 



0293 
0293 
0295 



02278000 
02278100 
0?a7asQQ 



02279000 

02280000 
0?2^t000 



0300 
0302 



02282000 
02283000 

qa 2 a4Q QQ 



T 0306 
T 0307 
T 0309 



T 0310 
T 0|U 



02285000 
02285i00 
0?2fl6n00 



315 
0318 

.9320 



02287000 
02287100 



0322 

0325 
03 28 



02287i20 T 0331 
02287 130 T 0334 
03a87|40 T 0334 



02287200 
02287210 

Qagayaso 



0342 

0343 

JUAZ 



02287240 
02287250 
? 2 97?54 



0228^255 
O2287260 
0?2a7?7Q 



0347 
O349 
35 2 



0352 
0395 
03 57 



02287280 
02290000 
0?291000 



02292000 
02293000 
02 g9»Q 00 



0359 
0359 
0359 



0363 
0365 
OML 



02295000 
02296000 
0P296999 



0370 

0372 

_0171 



02297Q00 
02297001 
02897009 



03/3 
0374 
0a74 



02298000 

02300000 
023 Q 100 Q 



0374 
0375 
03 7 9 



02302000 
02303000 
0230ftQ00 



0379 
0379 
0386 



02305Q00 
02306000 
P 2. I07000 



0389 
0389 

0390 



02308000 
02309000 
02319 000 , 



0391 
01^1 





1 



02311000 T 0395»2 



6 

U 

Q 



12 

13 

M 

IS 

16 

17 

18 

19" 

20 

21 

22 

23 

24 

25;;; 

2« -y 



» 

31V 
I 32'^ 

a 

J4 

I 3S 

16 

37? 
) 38 

39 

40 
I 41 

42 

43^ 
I 44 ' 

45 

46 

47 

48 

49 

50 

51 

a 

S3 
S4 

55 



ENO 



r~g THFN 



END/X 



IF 



End; end; 



FIBC53,£<»2»n 
THEN FORaiTSPACECt INX 2) 
EUSE FiLECLOSEtTQPIO INX 0); 

GO TO STT 

KQHGETSPACEf A);% 



02312000 
08^13000 



02313500 
02913600 
02314000 



0396J2 
03961a 



T*>«START>MlXER*«»«00+PiMlX;S; 
WHH.ECU*T,CCF])X0 DOX 

lFCT»MrLn.r3l l23»MlXER AND T>0 TWFNli 



02315000 
02316000 
02317000 



O397I1 
039610 
0400»0 



IF M[MCU + 4J,[CF]+5],C4H13 
T«.MSTART;K<IXER«-e600+PiMix;X 
WHILECK-T .ECFDXO DflJ 



THEN FILECLOSECL-t.7); 



02318000 
02319000 



0a05»i 

0405«3 



FOi 



lF«T*Mct3)«£3il23««lXER AND T>0'TH£N* 
ir MtL*73,£^lU3 THEN FlUECLOSE(MCU+n InX 3);% 
UN » STEP i UNTIL il OOX 



02321000 
02322000 
0P3?3n0Q 



0«07I0 
0409t0 



T 
T 

JL 



IF 



FNnia: 



RDCTABLECLUN],C8S6] = PlMlX ThENX 

Suapitoff;* 

P^T[PlMTX^a]IgTrgN F0rfPlMTX«1 VxNnX^SlTNX ^; 

MCT3«'!»-FLAG(0);MtT-l 3 » »-FLAG(OS ( PRJ )C6 « 33l9'3 ) J 

P(,caM5); GO TO diffcom; 



02324000 
0232500Q 
0i>3g6o00 



o^Hta 

042l«l 

0^23 «,1 



0«25»2 
O429IO 
oa35to 



02327000 
02328000 
0?3 29i 00 



02328200 
02329000 
0? 330 a 00 



Oi»36lO 
0a37l2 



T 
T 

X. 



044$i3 
0(15112 



SAVE PROCEDURE TERMlNAi,MESSAGE(N); VALUE N/ REAL 



8E6IN NTl *■ n; 
P(0#STF); 
TERMINALMFSSAQAtNTn; 



Sizes 0453 words 

02330^00 T OnOOlO 
JiULfiX_QF SAVE cjE^MFNt; Ry^^F ^ppRPfiS 



end; 



02330200 
02330300 
09330A00 



ooooin 

0000«3 
OOOtIg 



J»- 00136 



S SET O MIT s NOTfDEBuGGlNG QH ChECKLI^Kl 
ARRAY UNITC0DE£*3; 
BOOLEAN PROCEOUfE READEMFROMOISkCH, IB ) ; 



O233O5OO T 0002 J 1 

Size* 0003 words 

02330'i99 T OOOQIQ 



VALUE HM8; ARRAY H[*]#lBt*J; 
$ SET OMIT « NOT(PACKETS) 
REAL PROCEDURE UN IT lN( T jNU^ ^^h aT ) J VaLUE 



forward; 

WHAT; REAL WHAT; 



02347100 T OOOOtO 

023«7i5O T O0O0»0 

START OF REL SE>.MENT l QtSK AQPRrss . 



02347160 
02347199 
02348000 



ARRAY 
BEGIN 



TINUC*]; 

REAL hold; 



START Of REL 



OOOOJO 
000010 

ooooio 



OQ030 



INTEGER i;a! 



STREAM(A«.0IWHAT);X 

BEGIN SI * what;* 

L» IF SC = " " THEN 



SEr,MENT; OJSK 
02348SOO 
09349000 



E N D 



BEGIN 5i 
DI ♦ LOC 

stream;* 



♦■ Si ♦ 1; GO 

a; 01 «■ DI + 



TO 
5; 



l; 

OS 



end;x 
* 3 chr;x 



02350000 
02351000 
03352000 



ADDRESS « 
T OOOOIO 
T 0000*0 



00030 



HOLD *■ polish;* 

$ SET OMiT s NOT(ShAREDISK) 
i, SFT OMT T s SHAREQISK 



02353000 
02353500 
09354f>QQ 



0000»0 
0002'0 
OQQgt t 



FOR 1*0 STfcP 1 UNTIL 64 DO 
$ POP OMIT 

IF T!NU[l],l30»iaJ'»HOLD,C30ll83 THEN 



02355000 
02355999 
0?356/i99 



0002*3 
0003»i 
0QQ4IQ 



BEGIN 



02356500 
02356501 
02357000 



000411 
0004»3 
0004 11 



HaLD«-i; 
1*70; 






02357500 
02357600 
02357700 



000413 
0006*0 
0006*0 

0Q08>0 

0008*2 
0009*1 



mmxmswMM^MjMm^u-^ 






2 
3 

4 

5 

6 

7 

8 I 

9 

10 

iH 

12 

13 

.4( 

15 

16 

17 ( 

18 

19 

20 { 

21 

22 

23 f 

24 

2S 

26 I 

27 

26 

2S I 

30 

31 

32 % 

33 

34 

35 f 

36 

37 

3e % 

39 

40 

4,1 

42 

43 



45 
46 
47 
48 



fi 



49 

50 ' 

51 

52 

53 ( 

54 

55 

5«4 

5^ 



SIZE* 0016 WORDS 



PROCEDURE IDLETIME;* 



2 

3 



START OF HE L 



0?360000 
5£r;Mfc:NT; DiSk 



T OOOO'O 



00031 



BEGIN «EAt C#n;X 
INTtQER TIX 
HAL Til 



02361000 T OOOOlO 
02362000 T 0000*0 
02363Q OO T Q O0 O«Q 



4 

6 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19^^ 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 



C *■ ((P2MIX>G) + l )XCCL0CK*P(RTR));X 
FOR T *■ 1 STEP 1 UNTIL MixMAX DUX 

IF JARrT>*] ^ THF-Nit 



02364000 
02365C00 

02366000 



T OQOlM 

T 000«tO 
J Q005«n 



BEGIN N ♦• N + i;f 

C ♦ -jARtT'33«PROCTIMEtt3*C; 
end;* : r ■-■'..■■-.■■::;.■ ■■. „ 



02361^000 
O236S000 



T 0006*0 
T O007«3 

T < ^ Qi&t a 



9 
10 

'1< 

12 
13 
14 < 
16 
16 

'H 

18 
19 
20^ 
21 
22 
23 { 
24 
25 
26 ( 
27 
28 
29 ( 
30 
31 

32 « 
33 
34 
36 ( 
36 
37 
, 38 ( 
39 
40 
41 ( 
42 
43 



IF N ^ THEN* 

T <■ {C-oldiduetime)/n;x 
qldidletime » c;x 



02370000 
02371Q00 
02372,000 



T 0013*0 

T 0013*3 

J. OOU»Q 



FOR N ♦ 1 STEP 1 UNTIU MIXMaX 00% 
IF JARtN»*3 * THENX 

JARtN>73 » *P(DUP)»Tn 



02373000 
02374000 
02375000 



T OOUI3 

T 0018*0 
J OQH^'O 



end;x 



nqprucesstog ♦■ nopkocesstoG"!;* 



02376000 
02377000 



DEFINE ENtERUSERFIiECCNTERuSERraEi*ENTERUSERFIiE2#ENTERUSERfaE3>» 

pCEUFCEMTERUS£fiFll.£l»ENTERUSERFiU2'ENTERUSERFluE3)#DE|,)#J 
REAt. PROCEDURE EUFCA>B>U)I V^tUE A#8fi.J REAj A«e>t.l FQRwAROf 



T 0024*1 
T 0025*2 
StZE» 0026 WORDS 



02378000 
02378500 

02379Q00 



T 0000*0 
T 0000*0 

J. 0000 * 



INTEGER PR0CEDU8E CALCULATEPlRGE ( PyRGE )i X 



START OF REL 
START Or REt 



S£^,ment; disk 

02380000 
SEfiME NT; D ISK 



ADDRESS « 
T 0000*0 



00032 

Q0032 



VALUE PURGE* REAL PURGED* 
BEGIN REAL YfO;X 
REAL 'ii% 



02381000 
02382000 
Qa3ft30QQ 



T 0000*0 

T 0000*0 

J QfiQQ*n 



REAL c*+i;;x 

ST8EAM(A<-CDAT£]*B*IY]);X 

BEGIN SI»A; SUSI*3; DS «• 2 QCTJ PS » 3 OCT ENniX 



02384000 
02385000 

02386000 



T 0000*0 
T 0001*0 

J oo02*n 



^ ♦ CO* C Y+3) OIV 4xl46X+(¥+3> MOD 4 x 365 ♦O+PURGE'* 

u OIV U6in 

IF (Y «• (D «■ D MOL) 1461) DIV 365) » 4 THEN* 



02387000 
02388000 
02 3 8900 



T 0003*1 
T 0008*0 
T 0010*0 



BEGIN Y *■ 3; U «• 365 END ELSE * D MOD 365;X 
CALCULATEPURGE <■ C4xj+Y-3)xi000 + D + l#X 
STREAMCr»[C3); HEGlN SI»C; PS » 8 DEC END;X 



02390000 
02391000 
02 39 2 000 



T 0012*3 
T 0018*1 
J 0022*0 



39 

4C 
41 
42 
43 
44 
45 
46 
47 
«8 



end;x 

PRaCEnuRE CHANGEDATEtBuFF); VALUE BlFFj REAL BuFF; FORWAROi 



02393000 T 0023*2 

Size* 0024 words 

Q?393iQQ T QilllilliQ 



DEFINE MIDNIGHT s BEGIN XCuQCK :«XClOCK-WI TCHINGHOUR; 

oate» = calculate p m rg E (U/ 



START OF REL 



serment; diSk 

02393200 
2393 225 



ADDRESS * 
T 0000*0 
T . 0000 *0 



00033 



CHAJ*iGEOATEtSPACEUO>); 

. ■:eno#;.- ^. 

REAL PRQCEOuRE TAPElABEL< >^*F#R»CrP) J VALUE MrF»R>C>Pi 



XAI 



02393250 
02393300 
O23934OO 



T 000010 
T 0000*0 
JL 0000*0 



REAL M*F*R»C*P' FQRInAHO; 
$ SET OMIT ' NQT(0EBUGGlNG OR DUMP) 



START Of REL 
XAI 



SEGMENT' DiSK 
O23935OO 
03393999 



ADDRESS • 
T 0000*0 
T OOOQIQ 



00033 



so 

51 



PROCEDURE LOGCQMMENT (Q)i VALUE 8; REAL Q* FORhAROj 
t SET OMIT s NQT(DE8UGGING) 



START Of REL 



02434790 

SEGMENT! DISK 

02434999 



T 0000*0 
ADDRESS » 
T OQOOIO 



00033 



52 
53 

S4 

S5 

56 

6i- 



$ SET OMIT « NQTCOATaCOM AND DCSPQ ) 
PROCEDURE NAMElD(A,KTR);x 



START Of REL 



02522099 

02603000 
SEr.MENTJ DtSK 



T 0000*0 
T 000010 
ADDRESS « 



fl0033 



REAL AtKTRU 
BCQINIX 

STREAM(i»CA3*KTR>n 



02604000 
02609000 



T 0000*0 
T 0000*0 
T O OQ0* Q 



56' 
52 



BEGIN Dl «• a; DS «- 8 LIT "Q 



';x 



02607000 T 0001*1 



• • 



>T 



L« 



DI 
IF 



*■ 01-7} 

sc g " ' 



SI *■ kth;x 

' ThEN% 



IF 



BEGIN SI * Sl*i; GO TO L ENOIX 
SC * """ THE NX 

BEGIN SI «• Sl*i;x 



O26O80OO 



000213 
Q0Q3«t, 



O261O0OO 
02611000 
02612000 



000313 
0Q04»1 
0004*3 



4 

s 

6 
7 
8 
9 
10 
11 
12 



7(IF SC 
OS 



"*•• THEN 

chr;x 



JUMP OUT TO tXlT>X 



IF bC 



THEN JUMP OUT TO LQ*)n 



02613000 T 0005«0 
02614000 T 0006«1 
02615000 T 0QQ6«2 



LQ« 



Si 

GO 



end;* 



«• Sl-fWX 

TO exit;* 



02616000 T 0007«3 
026l7oOD T 000810 
2 619090 T 0Q08M 



IF SC s ALPHA THEN* 

dEGiN 7(i:S 4. chh;x 

IF SC « ALPHA THEN GD TO LA;ai 



02619000 T 
O262O0OO T 
02621000 T 



0008« I 
0008»3 
0009»1 



13 

14 

15 

16 

17 

IB 

19 ~ 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

M 

35 

36 

37 ~ 

38 



JUMP OUT TO exit;* 

LAt };x 

LEi IF SC « ALPHA THEN % 



02632000 
02623000 
0?6 g 3 § Q 



T 0010 
T 0010 
1 00 10 



to 



aEQiN si*si+i; GO TO le; end; % 
GO TO exit;* 



02623501 
0262*000 
02625000 



T 0011 
T 0011 
J 0012 



«1 
«3 



IF SC * "*•♦ THENX 

BEGIN OS «• cmr; si «■ si'i; go TO exit eNq'* 

IF SC a ''s" THENX 



O26260OO 
02627000 
Q262ftono 



T 0012 
T 0012 
4: 0013 



JO 
»2 



tiEGlN 0S<-2 LIT"<.*"; Si*Sl + i; GO TO EXiT END; 

OS «■ chr;:< 
FxiT>A <• si ; i t . „____ 



02629000 
O263O0OO 
02631000 



T 0013 

T ooia 

J 00X5. 



«3 
»3 

IOl 



end;* 

ktr ♦ pcxch);* 



Eh p;* 



02632000 
02633oOQ 
Q?6aartOO 



T 0015 
T 0015 
1 QIXXA 



'1 
12 
12- 



REAL procedure TAP£LAaEL(MULFID'FlD,REELNO*cYCLE»PURGEJ;X 



START OF REt 



02635000 
SE ft H ENT; DISK 



SIZE* 00 
T 0000 



17 WORDS 
»0 
3 00034 



BEGIN 



VALUE MULFlO'FlO»REEt-NO*CYCLE*PURGE;X 

REAL mUufio»fid#reelno,cycle*purge;x 
REAL lbl;x 



02636000 
02637000 

Q ? 6 3enQQ 



T 0000 
T 0000 
T OQOQ 



»0 
10 

10. 



LBL*GETSPACE(10'0»0)+2;X 

stkeamcx 

DATE^ WULFIQ^FIC*HE£LNO^CYCtE^PU<-CALcULATEpURGE(pURGE)>* 



02639000 
02640000 
02641Q00 



T 0000 
T 0002 
T 0003 



JO 
«3 

«0 



35 < 

36 

37 

38 ( 

39 

40 

41 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50 ( 

51 

52 

53 < 

54 

55 

56 < 

5? 



iflL);x 

DS»6 LIT** LABEL 



..flll^ 



02642600 
02643000 
02644600 



T 0005 

I ooos 

T 0005 



<0 
»2 
12_ 



40 
41 
42 
43 



si«-LOc mulfid;x 

DS«'tNDS;;t; 

DS<-I^DS;* 



O26450OO 

02646000 
02647000 



T 0006 
T 0007 
T 0007 



«3 

»0 



45 
«6 
47 
48 
49 
90 
51 
52 
53 
34 
35 
56 



0S*3 OECJX 

f I ♦ LQC date; 
OS * 5 chr;x 



SI * si*3;x 



02648000 
02649000 
0265OQ0O 



T 0007 
T 0007 
T 0008 



,2 

»3 

11. 



si«-LOc cycle;* 

OS*- 2 Dtc; 

si«-LOc pu; si»si43;a> 



02651000 
0265200C 
02653000 



T 0008 
T 0008 
T 0009 



«2 
«3 

»0 



ENo;x 



DS«-5 chr; ds*i lit"o";x 

5(DS*8 LIT"00000000'')X 



02654000 
02655000 
02656000 



T 0009 
T 0010 
T 0012 



12 
'I 

to 



tabelabel^-lbl;* 



end;x 



02657000 
02658000 



REAL PROCEDURE LABELASCRATCHt LBL'* VALUE LSLiREAL LBLi% 
BEGIN* 



T 0012 
T 0013 
SlZE » 00 



«1 

«0 
14 



WORDS 



START OF REL 



02659000 

SEft^ENT* OfSK 

02660000 



T 0000 
AD01*E5S 



>0 
• 00035 
li 



REAL L0N*TM*REEL*T; 



02661000 T 0000«0 



n 

2 
3 



LBL *■ PC. LBL#LOD). [33:151;% 
STREAM CL»LBL4 3»R«-[HEll3); 



BEGIN bUu* 0S*3 OCT END! 

LUN*FIN(30UTPUT(MCLBL + 13*MCLBU + 23»REEI.»0»0^2#0#TMJ; 

XF LUNaO THEN ____^ . 



02662000 
02662100 



000010 
0QQ2»3 



02662200 
02663000 
02663100 



000411 
000$ to 
001012 



begin; 

stkeamca*prntabletlun],t30«18 3*t«-[t]»l«-lbl + 6); 

Begin ui«-dh-5; suloc a; ds4-5Dec; si»si"8; di»t; 



DS*80EC; Di*oi«7; ds«-6fill; 

R0CTABLetUUNl,t8«63«.PiMlx; 
MULTITABLECLUN3«-MCLBL*U; 



02663200 
02664000 



opiiii 

00U»3 
O0I4M 



END; 



026611000 
02665tQ0 
02665150 



0015*2 
001612 

0019*0 



RR8MECH*.TW0(LUN) OR RRRMECH; 

P(Waitioclbl or ei205oooooooo»o*LUN)'DEL j;x 



02665200 
02666000 
02667,000 



0021*2 
0023*1 
002511 



13 

14 

<S 

16 

17 

18 

19 

20 

2V 

22 

23 

24 

25 

26 



^■■:ii*;:Wff-l 









02668000 
02668099 



ooar»o 
ooa8>2 

00^ 8* 2 



$ POP OMIT 



F iLEMtbSAGEc" OU r"4T INU CLUN] [ 6 * 30 J 183 * T» 
_- MCL BL*U'M{|,9L*2 3rR6.&l,>9>Q^OPNMEi>S); 



02668 iPl 
O26685OO 
0?668<S00 



0029*1 
0029*1 
Q2 9*r 



_EM. 



UAttEkAiiCRAtCHfrLUNl 
LABEL ASCRATCH;% 



02668800 
02669000 
Q267Q00Q 



0035*3 
0035*3 
0035*3 



PROCEDURE nsecond;fchward;x 



DEFINE CHECkStACK&PACE 

thEn- begin 
array usercqoeco; 



» IF P(FRTCPlMIX#*3 INX 0)-P(0,R05 )<128 »wF 
P(64*STS); GO TO STACKOVERFLOw; ENOif XwF 



Si2e» 0039 WORDS 
02692000 T OQOOlO 
START Of REL SEr.MFNT; HtSK a HhRfSS « QQQ37 



02693000 
02694000 
0?095nQQ 



0000*0 

0000*0 
0QQ0*0 



28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 



38 



40 



«3 



45 



REAL PROCEDURE S£CURITYCHECK(M»F»U*H); 
VALUE M/F#U; REAL M»F/u^H; FORWARD; 



02696000 T 0000*0 
START OF REL SEr,MENT; DiSk ADDRESS ■ 00037 

02696100 T 0000*0 



PROCEDURE MAKEPRESENTCCJ? VALUE C; REAL C; FORWARD; 0269*200 T 0000*0 

START OF REi SErWENt; DISK ADDRESS w 00037" 

Procedure siGNOFF(v*F»rt);vALUE v*f>w;array vc*3*f[*3;R£aU wjforward; • 02696300 i 0000*0 



SAVE PROCEDURE iQREQUEST (FM 'D ; VALUE FM'L; ARRAY F>Ut*]' 



START OF REL 

Real i; 
start of save 



sEp,ment; disk 

02696500 
seg m ent; Ba se 



address • 00037 
T 0000*0 
ADDRESS a 00l59 



forward; 

boolean procedure 



MTXINCI,U#B); HEAt U*b; INTEGER Ij FORWARD; 



START OF REL 



02696600 

02696700 

segment; DfSK 



$ SET OMIT s NOTCBREAKQUT AND AUXMEM) 
DEFINE CODE ADORE SSC CODE ADDRESSU CODE ADDRESS2)» 

ApTUALOVtRL AY AOnRFSSd* CODE ADDRESSl^ CODE ADDRESS2}»* 



02697299 
O26977IO 
? 6 9772 Q 



T 0000*0 
T 0000*0 
ADDRESS « Q0Q37 



0000*0 
0000*0 
OQ00*0 



DATADORESSCOATADOR£SS1*DATADDRESS2)« 

AcTUALOVERlAyAOORESS(0*oATAD0RESSl#DATA00RESS2)** 

Save tntegeR: prqceQ^re actualq«£Rlayaddress(typ£»mIx#lqc); 



02697730 
02697740 



0000*0 
0000*0 



02697750 T 0000*0 



46 
47 
«8 



VALUE TYPE#MIX/L0C; INTEGER TYpE» MlX# lOC; FORWARD; 
$ SET OMIT g NQTCBREAKOUT) , 



START OF SAVE 



segment; Base 

02697770 
Q?700 nQQ 



ADDRESS » 
T 0000*0 
T QQ QO'O 



00159 



*9 
50 
51 
52 
&3 
S4 



S SET OMIT » NOTcQaTACOM AND OCSPO ) 
SA«E PROCEDURE lNZTlA7£I0<IQOESC#MlX,U );X 



START OF SAVE 



03500099 
O4OOO0OO 

sEflWENT; Base 



T 0000*0 
T 0000*0 
ADDRESS » 00159 



VALUE lODESC^MIXfU;* 

REAL Mix#u;* 
REAL iodesc;x 



O4OOIOOO T 
O4OO20OO T 
0^003000 T 



0000*0 
0000*0 
0000*0 



S5 



iiiiliiiiK 



iiiiWiiPipiipi«iiiEL exit; 

CHANNEL [PC DUP)]«-u; 



04004iil'l 

04O04iii: 
04004 aio 



aiiiito'i 



OitOOSoOO T 0000*1 



57r 



2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 

13 ■■; 

14 ' 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
M ■ 

28 : i 

28 
29 

30 

51 1 

33 
34 

36 

36 

37 ~ 

38 

39 - 

40 

41 

«2 

♦3" 

«4 

45 



p([iooESc]*iio); 

ChANTQ^C]*ClOgK»P(i-iTH); 



$ SET OMIT • NdTCSTATlSTICS AND AUXMEM) 

IF U < 16 THEN 
. 8E6IN , 



O4O060OC 
Q ^ Q Q? O0. Q . 



T 0001»2 
■JL . Q.002.»n 



0^007099 
O4OOft0OO 



T 000313 
T 0003* 3 
J 0004 »g 



IF lQDtSC.C22Ji3 THEN* 

BEGIN TRANSACriQi^CU] ♦ JF lUDESC.ClSU] THEN 0* 

ELSE TRANSACTI0NCU3"i;ilt 



0^009000 
O4OIO0OO 

O^O tlO Q Q 



0005*0 
0005»3 

QOQfl'l 



GO TO exit;x 
end; 

$ set omit g NOT(STATISTICS) 



0401 
0401 
0401 



2000 
3oOO 
3Q 09 



T 0010*1 
T 0010*3 
T 0010 » 3 



END 

ELSE 
IK (U OR 1)«19 THEN 



0401 
O4O1 



3l00 
3200 
3 300 



T 001013 
T 0010«3 
r 60 10 « 3 






0401 

0401 
040t 



4000 
4002 
4Q09 



T 001««2 
T 001310 
T 0014»a 



end; 
$ reset omit 

THANSACTIOnCU] »g P(DUP*LOO)-»i; 



0401 
O4O1 
O4OI 



'»lOO 
4i05 
45OO 



T 0014«3 

T 00H«3 
T 0014»3 



exitxend;% 

SAVE PROCEDURE QuEuEuPIU); VALUE U ; REAL lj;» 



04015q00 T 00l«»3 

SlZE*» 0017 WORDS 
O4O16Q0& T 0000*0 



BEGIN IF US30 THEN 

WAITQUErFlH5TWAlTlsrFlHaT^AlT4.lt) AND M^'^^ ^IrSE 



START OF SAVE 



SErMeNt; BASE 
O4OI61OO 
Q40i6a00 



ADDRESS * 00176 

T OOOO'O 

T 000fl>3 



BEGIN rtAlTQUECNEXTk^AlT] * 11% 

NEXTWAlT *■ NEXTWAIT + I AND 31^* 



04017000 
O4O18OOO 
Q4Q190QQ 



T 0004»0 
T 0005«3 
T 0007*2 



End; 

$ SFT OMIT " NOTCDFX) 



04019100 T 0007J2 

SiZe« 0008 WORDS 
04Q19499 T OQOO'O 



SAVE PROCEDURE START I0(U); VALUE Mi REAL \Ji% 
BFGIN RgAL TgNTt#R»NTP» S»NT3;» 



START OF Save 



04020000 

SEr,MENT; 8aS£ 
0flQ2l00Q 



T OOOOIO 
ADDRESS K 
X OnOfltn 



00184 



$ SET OMIT s NOT(DFX) 

IF (T ♦ UNlT[u3).tl3«53 = THENX 
IF (S * T.U e U53? < ei777 THE N* 



O4O2I099 

O4O220OO 
04023Q00 



T OOOOlO 
T OOOC'O 
T 0002»0 



i SET OMIT a NQTCOFX) 

BEGIN IF PtTlU) X THEN* 
BEGIN INlTlATEI0(IQQU£[S3«t0CAT<auEC$3«t3t5 3 



04023099 
0402«000 
O4O250OO 



T 0004 »1 
T 0004*1 
f 000512 



ENQX 



P(3);x 



04026000 
040270O0 
040280OO 



T 0007*0 
T 0008*1 
T 0006*2 



ELSE BEGIN OUEUeUP(U);x 

P{4);x 



04029000 

04030000 

04031000 



T 0008*2 
T 0009*3 
T 0010*0 



46 
47 
«S 
49 
50 
51 



$ SET OMIT « OFX 



P(TiP(XCH)Cl5»45«3]*CUNITtU]J#«-);ai 



end;% 



04032000 
04032999 

04033000 



0010*0 
0012*0 
0012*0 



$ POP OMiT 

$ SET OMIT » NOT(OFX) 

tnon 



04033001 
04033049 
O4O340OO 



T 0012*0 
T 0012*0 
T 0012*0 



52 

a 



SAVE PROCEDURE PR INTERF IN liHCU J ^ VALUE u; HEAL UU 



START OF SAVE 



04035000 
SEr,MENT; BaSE 



Sizes 0013 words 

T 0000*0 
address ■ 00l97 



mi&mmmm 
iiiifiilplii 
iftiiiiiiiii 



55 : 



mmSmmmM^ 1 1 7 * n * 0; 

STARtllJ{U)ix 




04037000 T 0004*1 



# • 



h 



13 



16 
17 
18 



19 
20 



21 



23 
24 



26 
27 



29 
30 



33 
34 
3S 
36 
37" 



41 
42 



46 
♦7 
18 



49 

50 



S4 

55 

56-; 



ENP>% 



GQ TO fcixTEHNAi;* 



0ft038o00 



0005 



SAVE PRQCEDIJRE I ORE«UEST ( r I NAL* I OOESC* LOCAT I ON ) ; % 



VALUE FINAI.MOL)ESC*LOCATiOn;X 
ARRAY FlNAi,.LOCATiaNC*]U 
REAL lOOESCiX 



START OF SAVE 



04040000 
SEqMENTJ Base 



SIZE* 0006 WORDS 
T 0000 
ADORESS m 00303 



BEGIN REAL U»NT1 * TaNT2#5*NT3>R» + UX 
S SET OMIT « NOTCOFX) 
-^^ IF IQQUFSLQTS LFQ : 



04041000 
04042000 
O4O43OOO 



0000 
0000 
0000 



CU«»1F LOCATION, C9U3 OR PlMlX = 
SLEEP(CI0QUESL0TS]*P77-U)J 
lOQUEAVAlL *- I0QULCS>»IQQUEAVAIL3; 



THEN ELSE 7) THEN 



04044000 
04044099 
Q4Q450QO 



0000 
0000 



$ SET OMiT » NOT(STATISTICS) 

$ SET OMIT » NOTtOrX) 

S SET OMrT « (^flTtOKBNQOFX Uit) NOT pFX) 



04045i00 
04045200 
04046000 



$ SET OMIT 
t P OP OM I T 



OFX 
IF (T 



04047009 
04047099 
QA0fla7Qi 



0000 
0004 
0007 



OOOfl 
0008 
OOQfe 



«• UNITXU «- LOCATION, C12»6|]) ,[13«5J » ThEN 



BEGIN *IF PCTIO) # THEN* 

BEGIN INlTlATEIQCJaOESC>PlMIX»U);x 



04 04 879 9 

04048800 
Q4Q485OI 



0008 
0008 



END ELSE BEGIN 
PC43;X 

ENDfX 



04049000 
O4OSO0OO 
405 100 



0011 
0013 

00 1 4 



QUEUEUP(U);X 



T <. T&PcXCh)Cl5«45l33<iSn8»33tl53>» 
END ELSE* 
IF T.tia«63 " »77 THENX 



O4O520OO 
O4O530OO 
04054000 



Tai8!15] «• S ELSE* 
LQCATQUECP(T,t33»l53'DUP)]*LOCATQuEtR]&a; 

S[16I33I15];X ^^___ 



O4O550OO 
OaOSdoOO 
04057000 



0015 
0016 
0016 



0016 
0018 
Q018 



$ SET OMIT B NQTCOFX) 

IOeUESL0TS»»lOQUESL0TS-U 
LQCATQUECSJ » LOCATIQN&PlMlXC 3 » 43> 5 ] QR P77777000001 » 



040!38000 
O4O590OO 
40 60 



0020 
0022 
02 4 



$ SET OMIT 
S POP OMIT 



DFX 
UNITCU] 



04060099 
O4O6O5OO 
O4O6IOOO 



0025 
0025 
0026 



*• T&Sc33»33tl5];X 



END I* 



lOaUECSj f IQDESCl* 
FIISALQUECS3 > FINALIX 



O4O6I999 
04062000 
04062Q01 



04063000 
04064000 
04065000 



0029 
0029 
0031 



0031 
0032 
0034 



SAVE PROCEDURE F IN IShOFF lO (U ) ; VALUE U; REAL U;% 



BEGIN Real t«nti» fin»nt3* v»nt4* iqo»nt6; 

LAPEL 0N*0FF#C0#C1*C2,C3*C4,C5,C6,C7;x 

Switch csw «> co»ci'C2»C3#c4#c5*C6*c7*x 



START OP SAVE 



size* 00 
0a067000 T 0000 

sErMEnt; Base address 



IF fin > THEN* 
IF FIN.[25U3 THEN* 

atGIN T «■ FINtC3 



04068000 
04069000 
04070000 



0000 
0000 
0000 



5];% 



END 



"col GU TO co;x 

Cl» FIN, 1 8 no ] 
GO TO C2;* 



FIN «• FIN&IODC3>3»5UOC25»25IU;X 
GO TO CSWCT31X 
CUS E GO ON ELSE GO QN;» 



04071000 
04072000 
04073000 



0000 
0000 
0002 



04074000 
O4O750OO 
04076Q00 



«• v;» 



mmfi^mm:mmxww*: inx i 



04077000 
04078000 
04079Q00 



0003 
0006 
0011 



0011 
0012 

,0013 



INX FINjX 



C6t ST8EAMCA«-0»I0D)JX 



Q4O8Q000 
040df000 



0014 
^«16 

ooia 



04083000 T 0018 



WORDS 
00239 



55 



• • 



>r 



10 

n 

12 

13? 

1<g 

•S^ 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 S 

26,4 



27 5 
28 



29 
M 



J1 j 
J2f 



33 
34 

36 

36 



37 
38 



>9 

«0 



•2 

♦a' 

«4 

45 
46 
•7 
48 



49 
50 



51 
52 
53 
M 



56 

58.; 



■^iuMSMifti 



BEGIN DI «• 



LOG A; SI * iod; si 4. si+a; ds^-a oct tNo; 



OFF* FIN,18»103 ♦ 11% 

SO TO C2IX 
C7> $T»EAM(A»QIIODitl! 



0<»06^000 
OftQflSOOQ 



BEGIN 01 «■ 
T ♦ P OIV 8-W» 
FIN *■ (NOT T INX 






LDC a; 51 * iod; 05 «• <l OCT End;x 

1 INx FIN)&TC8»36>10];X 



04086000 
04067000 
QftOflSnOQ 



0019«3 
0Q2t»O 



0022>2 
002411 

QQ2<t<1 



04089000 
0409,0000 
O^Q 9 t nOQ 



c5J Mtiao 
El sex 



PRQCFDURE PROGRAMRELEASEi I 



INX n * MCNUT V INX IQO INX U 



04092000 
04093000 
0fl0Q4n0Q 



002610 
0027 «0 
Q0.26»2. 



003112 
0032IQ 



vx 



04095000 
04096000 
04997000 



0034«0 
0037 » 3 
QQ3910 






BEGIN NAME 
ARI^ A Y 



t; heal fsx=vunk; 
H»"4t*3t;t 



REAU t0D»NTlU 
ARRAY L0CNC*3;» 
ftE4l, Si 



START Of REL SEftMENTl DiSK aOdReSS » 00037 

O4IOO0OO T 0000 JO 
— 04101000 T 00001-0 



ch^ckstackspace;* xwf 

l.CCN*-Mi:S«-(lFClOD*-NFtAG(M[PCr«-|;MCPRT[PlMlX*9]]]»DUp*pRl^)] )) 

.[22>13 THEN 2 ELSE NOT 1) INX lUD3f 



04102000 
04103000 
04103050 



0000 »0 
0000»0 
OOOQIQ 



IF iQo.c3«5J« 6 Then 

begin; STREAMCS»«MlPRTCPlMlXr833 INX P(OUP* 0'XeH»DI A 
016 30^THb 2)^0»g600005yi 



04103100 
04104000 

04^05000 



OOOO'O 

ooos'o 

00Qfl«.2_ 



IOj 



BEGIN SI«-S; 
$ SET OMjT » NOTcSTATlStjCSJ 

IF JUNK, [ 36 J 12 3X4 5 ANO 

OR NcI0Dj,f3l.63 * ANO MjIOOJ 



D5«-2 CHR ENO; 



04105i00 
04l05200 
OAiOSaOO 



0013»3 

ooisio 

0018»2 



IF 



LSS (0IR05K X OSKTOG) THEN 
CUSERCOOEtPlMlXJ EOV MCP) 'f NOT THEN '« 

BE&IN TERMlNATECPlMiX); T£RMINAlm£S5AGE( 30) ENPJ 

IF(FS[PlMlX»(FSX«.p(*CNOT 2 INX LOCN )' 4* COC ) . C 1 3 ' 1 1 3 



04105400 
04105409 
O4IO55OO 



04105510 
04105550 
04105ft00 



0019«3 
0020«2 
002Q»2 



DIV 5).C40J433 
AND TWQ(I0D.[24; 13&FSX[43»44>43 ))X0 THEN 



BEGIN TCC3 I STC03S1 CI 9U7 II 3&0C26 14017 3; 

MC(*C(NCT 2)INX L0CN))INX 5 3 »* Na8S( *P(OU^ ) ); 

60 TO return; 



04105650 
O4I057OO 

04105750 



002l»3 
002713 
0030*3 



END 



end; 

IF NUT iaD,c<J^«n 
DISK business; 



04105800 
04105850 
04105890 



0032*3 
0035*3 
0037*1 



00*0*2 
0043*3 
0047*2 



THEN MCS3,C11«13*1; 



IQSEQUESTCR/I0D'L0CN);X 

Tto3«[i9».ig ♦ 0; 

IF (NT1*PC*(N0T 2 JnX LOCN)' 13/ COC ) . ClO*93- 1 )X0 



O4IO59OO 
04105950 
04105990 



STREAMCNT1*C«-T[0]>T); 

BEGIN Si «. t; Si 
SI «■ LOG c; 



Then* 



04106000 
04107000 
04108000 



0048*0 
0048*0 
0052*1 



0052*1 
0054*0 
0055*3 



* SI +8; OS 

OS «• wDs;x 



*• NTl WoS;X 



04109000 
O4IIO0OO 
O4III0OO 



005913 
0061*2 
0062*2 



GO TO 



end;x 
return;* 



end;x 



04112000 
04113000 
04114000 



0063*0 
0063*1 
0063*3 



SAVE PROCEDURE NEW1U;SK 



a«»iiiiiftilHiliii©ii^ » 



START OF SAVE 



SIZE* 0065 WORDS 
04115000 T 0000*0 
SEGMENT; BaSE ADDRESS « OO28I 



F I RST w A if «• F I f^ s T is A 1 1 + 1 AN bit ; % 



itltli*:'U;) i% 



O4II60OO T 
04117000 T 
041 16000 T 

Oil > I I < I ■ lli rnjj Ihli g ii q WiiliWlJllMlJIM jl ui M 
4119000 T 



0000*0 
0000*0 
0002 12 

0004*3 



57( 



2 

3 

4 
5 
6 



UNlTtUJ,Cl3lb] *■ ii% 



XMJUL 



04120000 T 0006«2 
Q.kXPAQQQ. T Q0Q9«n 



Real mdelta * Pii;* 

RFAl UIQR * PlZJiH 



SIZE" OOlO WOROS 
04121050 T 000010 

QAiPUQfl T fliinfl-iij 



REAL MROW 
REAL LOGSUE 
RFAL LO S HQ LnE R 



» ei3;x 



P 56n 



04121150 T 
04121170 T 
04121200 T 



000010 

ooooto 
onontn 



REAL NUMAINTMESS • P57;x 
REAL LOGENTRY « 963i% 
REAL KXDISK » 97()i% 



04121250 T 0000«0 
04121300 T OOOO'O 
4l 2n 5 Q T 0000 *0 



10 

11 

12 



ARRAY MAINTLOGARRAY s 9771*]}% 
PROCEDURE DlSKaRAUXERRORCR)! VALUE 



r; real r; fqrwarp; 



04121400 T 0000»0 
04121410 T 000010 
START Qf RE l S E fi Mt NTJ D I SK A DDRESS « 



OOC^O 



13 

14 
15 



PROCEDURE ACTUACIOERRCR); VALUE Rj REAL Rj FQRWaRO; 04121425 T OOOOIO 

START OF REL SE(*MENTJ DISK ADDRESS « 00040 
PROGEnURE LINKUPCTYPE/KEY)I VALUE TYPE^KEYJ REAL TYFE^KgY; fORWaRd^X 04121450 T 0000«0 



16 
17 
IS 



PROCEDURE CHECKjOB0RFii,EMESSCMIX#Fie*U);X 



START OF REl SEqMENT; DiSk ADDRESS . 000*0 

04121500 T 0000»0 
START QF rtEL S£r,MENT; DiSk ADDRESS , 0004O 



19 
20 
21 



VALUE MIX»FIB#U> REAL 
PROCEDURE LOQOUTMAiNTCB)! VALUE 



MixrFie*u; 
b; real &i 



FORWAROJX 
forward;! 



START QF REL 



04121550 
04121600 

segment; Disk 



T 0000«0 
T OOOOtO 
ADD R ESS * QQ 4Q 



22 
23 
24 
2S 
26 
• 27 



PROCEDURE MaINTlQGGERCB); VALUE 6; REAL B; FORWARD;* 
DE F IN E 



04121650 T 0000«0 
START OF REL SEfiMENTl DISK ADDRESS » OOoaO 

04121700 T OflOO»n 



ioa v£RsioN»c 



4 



% VERSION NyMBER ON NEXT CARD 
> CURRENT ENTniES ON nExT CaHQ 



04121710 T 0000*0 
04121720 T OOOOIO 
04121730 T 0000«C 



28 
29 

10 



tapebufFersue 



21 
t30«42»63)*' 
» 200*; 



04121740 T 0000*0 
04121750 T 0000*0 
04121950 T 0000*0 



31 

32 

33 

34 

3S 

36 

37" 

38 

39 



ARRAY MAINT8UFF£«t*3l 
SAVE PROCEDURE I0FIMSH(R,C); 



VALUE R*C; REAL R>C; 



staRT of Save 



04121990 

04122000 

SEftHENT; Ba3£ 



T OOOOtO 
T 0000*0 
ADDRESS « 00291 



BEGIN BOOLEAN SlUP; 
COMMENT 

WHEN E^O* STOP TAKES THE FOLLOWING VALUE^t 



OFX SYSTEM^. 
0# 2 OR 3. 



04123000 T 
04123010 T 
04123020 T 



0000*0 
0000*0 
0000*0 



DISK ERROR (OTHER THAN NOT READY ON A 

1 ANY ERROR OTHER THAN THOSE LISTED FOR 

2 LOCKED ADDRESS (SHAREOISK?« 



04123030 T 0000*0 
04123040 T 0000*0 
04123050 T O Q0Q * 



40 
41 
42 



3 ANY ERROR OCCURRING WHEN UNI T t U] . [5 I 83/0 (A RETRY). 

WHEN £'0» STOP TAKES THESE VALUES} 

*2 m FOR WHICH COMPLETE SHOULD NOT BE SET (DATACOM Or 



04123060 T 0000*0 
04123070 T 0000*0 
04123080 T 0000*0 



DISK WRITE BEFORE 
1 PRINTER lO, 
NORMAL 10. 



READ WITH UNIT OR EU SWiTCH), 



04123090 t 0000 lO 
04123100 T 0000*0 
04123110 T 0000*0 



46 
47 
«8 



END comment; 

REAL TiMsSTOP+U U*TIM + 1; 

LABEL TESTfNOWAlT»PRQC*NEW^(aUP*lNCR; 



LABEL ERRQRS*0lSKERR»05*X*SW#LP'TAPE'DK»DX*0XW0C'QK»Li; 
REAL T«NTl».S'»NT2#Sl»NT3>V»NT4,E«NT5#I»NT7;x 
NAME LOCN^^EJ REAL I008NT6^ riK»SlJ 



04123120 T 
04123500 T 
0al24o00 T 



OOOO'O 
0000*0 
O Q0Q«0 



49 

50 
61 



04125000 T 0000*0 
04126000 T 0000*0 
4 1 270 T 0Q Q Q* O 



52 
53 
54 



SWITCH TYPE * ok,lp*tape,ok*dk*ok*ok^ok,ok,ok#dc; 

S SET OMIT » NOT(DFX) 



04128000 T OOOOiO 
04128010 T 0000*0 
04128099 T 0000*0 



55 S 
56'*; 



mmmmMmmmxs^mmmmmhi i iQh ouf >, 3 1 . 1 1 a.ii s 3 i 



* INITIALIZES TIM 



04128799 T 0<)OO*O 
04128900 T Hm^^ 
Qi>129n0a,^T flMAjLL. 



65 
57 



$ SET OMIT » NOT SEPTICTANK 



04129490 T 0003*2 



• • 



ERRORS* 
LL. 



(.Z «■ nfi<ibt-n ) + n * T, (;5» 9 3 ) ^ ThENit 



0al2«900 



0003«2 



BEGIN IFCSI ♦ FINAU0UECS3) < THENX 

IF CE ♦ SI, [25183 AND E) • THEN* 
IF V « THFN 



04131000 
OA1320Q0 

oansoflo 



0006»3 
0008«3 
0011*2 



$ SET OMIT s NOT DFX 



.IF, (,l AND 



GO TQ 



dk; 

f^ 16 



THEN 



04133090 T 0012 « 3 
04133500 T 001213 
0413^000 T — 00U«1 



BEGIN 

RDCTABUeiUJt«C*P(DUP))& 
IF Ug30 THEN 



(C-l)tlU6l23& RC3«3«53; 



04134050 
04134060 
04134^00 



0014(2 
0015»0 



BEGIN 

IF CR,C28«b3 
BEGIN 



AND t'25) X THEN 



O4I344OO 
O4I345OO 
Qji|4600 



0019«3 
0020«l 

Q022I0 



13 

'* 
IS 
16 
17 



**iiPiilii$;ii:2r.i3' 



AND R.taeiii) Then 






END 
ELbt GO TO DC; 
END ELSE GO TO 



x; 



04134950 T 002513 
O4134955 T 0025«3 
04134960 T 002513 



IS 
20 
21 



IF E 



end; 

* THEN* 
B£(ilN 



% RECOVERED MASS STQHAGF % 



04134990 T 0025*3 
04135000 T 0025*3 
04l37n0Q T 0Q2 6*? 



22 

23 
24 



MAInTBUFFER[NXQISk«3NXDISK+4 AND l5] 

i' -0 8. lj£2«46:23 & LOCATQUE [S3 C4 « 3« 53 
CLQ6 £ NTRY»«= L Q G fc,NTRY->iHCTF ] I j; 



04l37i00 T 0027*0 
04137H0 T 0028»3 
04137^20 T 0031 *2 



"'; 
28 

29 

M 

31 f 

32 

33 



RDCTABLEIU3C18III23; 
IF FINALQUECS3 gTR THEN 
BEGIN . 



04137130 T 
04137140 T 
Q41 371 9Q T 



0033*0 
0035*0 
0Q36<n 



MAINTBUFFtRcf^XDlSK3l»(*P(DUP)) & 

C(MCMCS1«=LDCATQUECS3 INX NOT 23 XNX 
.[131113 DIV ETRLNg).>-1)[9«39»93; 



^•3 



0413^160 T 
04137170 T 
041371(80 T 



0036*2 
0037*2 
0040«l 



M[Si3.[7»13 *« i; 
end; 

P(MAlNTBtlFFER[NX0lSK^23*»I0QUE[S3)J 



04l37l90 T 
04137200 T 
04137202 T 



0044*0 
0046*3 
0046*3 



34 

35 



96 
37" 
38 
39 



$ SET OMIT = NQT(AUXMEM) 

PCNFLAG(M[P] )); 
P(P<iVCl:44u3*[MAlNTBUFFER[NXDiSK + l3 3,STD); 



04137203 T 
04137212 T 
04137215 T 



0048*3 
0048*3 
Oo49*3 



M A INT BUFFER [NX DISK + 33 J i 

IF CUOGHULOER INX 0) s 
BEGIN 



• MAlNTBUFFERtU3; 
THEN 



04137220 T 0052*0 
04137230 T 0054*0 
04137240 T 0055*1 



40 
41 
42 



LOGHOlULR,[CF]«s[MAINTBuFFER[NXDISK3 3; 
INDEPEND£NTRUNNER(P(,MAlNTLOGGER)^t)# 100); 
END ELSE MClOGHOLDER,[FF33.[CF3»» 



04137250 T 0055*3 
04137260 T 0057*1 
04137270 T 0058*2 



43 



[MAlNTaUFFER[NXDISK33; 
1.0GHOLDEH,CfF3»«[MAINTBUFFER[NXOISK3 3; 
NUMAlNTMESSia NOMA I NTMESS+l / 



04137275 T 0060*3 
04137260 T 0062*0 
04137290 T 0063*2 



46 
47 
•8 



T,[5S8] «• 
GO TO Sw; 

end;* 



04142000 T 0064»3 
04142500 T 0066*2 
4 1 43000 T , O067«0 



49 
50 
SI 
52 
53 
S4 



IF V ■ THEN* 
» SET UMiT » NOTtSHAREDlSK) 
BESIN X ORIGINAL 



ERROR on" MASS STORAGEt 



04144000 T 
04144099 T 
04145000 ,T 



0067*0 
0067*3 
0067*3 



49 

50 * 

61 

52 

53 < 

54 

55 

56 ' 

3 



TINU[UJ.L18«123 «■ P (DUP ) . [ 18 « 123* i; X 
MAINTBUFFER[UU«R&TW0(C)[18I43«43; 
ROCTABlECU3»«C*PCOUP))&(C''1)[U46«23; 



04146000 T 
O4I461OO T 
04l46p00 T 



0068*1 
0071*3 
0074*? 



'mmBmmmm 



Hii 



V*«129; 



ELSE Ie G 1 N i ^^ E C U R R E N T E f^ *^0R ON MA 5 b S T R A G E X 



04147000 T 
04147399 T 

OAJJLMfiJLJ. 

04149000 T 



0077*2 
0078*1 

0078*1 



rf 

2 
3 
4 
5 
6 
7 
8 
9 
10 



12 
13 
14 
15 
16 
17 
18 



19 
20 
21 
22 
23 
24 

jg:,: 
26 



27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37* 



38 
39 



41 
42 



«S 
46 
47 
•8 
49 
50 
51 
52 

a 

54 

56 I 
56 I 



P(MAIN7BUFFER[UJ«sP(DUP#L0U) 



OR 



OAlSOjOO 
Qfl 1.50,2 QQ 



0078»3 
QQ79 «3 



IF CV * V + U > 137 THEN* 
BEGIN R»»P; 

IF LOCATQUECS3.C9I13 THEN * QLAY T/Q 



041S1000 
04151200 
0a>51g20 



0082ti 
008410 
0065»0 



SET OMjT 9 NQT(AUXMEM) 
DtSKERR« 



MCLOCATOUE[Sn««R OK IQMASk; 



04151230 
04151235 
041 51 100 



0086«0 
008813 

0088 r-^ 



$ SET OMIT » NOT(OFX) 



T.t5H0]l»0; 

GO TQ ox; 



04151399 
04152400 
0fllS2ft0O 



008613 
0068^3 
OQ90I9 



ENDi 
PCOtLM 



end;x 



DSI» 






04152800 

04152900 

04153000 
04i5«000 

041550^0 
04156000 



009110 
009110 

ooyi'i 



T 
T 
T 



0091 1 X 
0093*2 
0093»a 



Xi 



PC[I0QUE[S]3#II0);% 
GU TO EXTERNAL i% 
STOP » (V^0)x24i;at 



04157000 
04158000 
0flt59n00 



009413 
0095 » 2 
0Q96«0 



T. [51133 «• 3cXE + 8;X 

GO TO test; 



end; 



04160000 
O4I6I0OO 
04161^00 



0098»1 

oiono 
oio i 'g 



SW» « 
LP« 



GO TO TYPE[T,C1!4]3;X 

IF STOP »«= (T «« T<tO[l6tl6>n).C17U3 THEN 



Test; 

TAP£» 



IF FIRSTINAIT « 
60 TQ NEW 



NgXTWAIT THEN QO TO 
EtSt GO TO N0INAIT;X 



INCR eUSeX 



04162000 
04163000 
04164000 



IF (R.C2l»53 AND §"23) * P22 THEN 
IF R.ti5J3J X ((8-R.[2i;« 13) AND 7) THEN 
IF M0D3I0S THFN 



BEGIN H,c2etntsi; 

GO TO ERRORS/ 
END ELSE GO TQ OK 



X 
% 

_L 
X TREAT IT AS A pARlTY, 



BINARY READ 
PARTIAL WORD 



04165000 
O4I660OO 



010112 

Ol09»0 
0l09»0 



TRANSFER 
CnNTRQUS 



04167200 
04167 300 
04167400 



011113 
0113«0 

oitafn 



0ll4«0 
Oll5»3 
U9» Q 



04167500 
04167600 
0^167700 



OUOU 
0i22»2 
Q l23«Q 



DK« 



ELSE GO TO OK ELSE GO TU UK* 

IF NOT (I :glOQLEi:S1) .[24il] THEN 



04167800 
04167900 
041,66000 



0l23«0 
0123»0 
123»Q 



IF FINALQU£[S3.C24tl] 
$ SET OMIT « DFX 
. BE6IN 



THEN% 



SET 
SET 



OMIT 
OMiT 



NOT DKBNODFX or OMIT 

dkbnodfx or omit 

M|:lOQuE[S3isUl[24»4/'tl3 3t»*(P(DUP) 



04169000 
04169090 
04lfl9lQQ 



INX P(0»LNG»XCH3 J; 



04169190 
04170750 
04l70fl00 



012413 
012611 
Q126M 



012613 

0126 > 3 
012613 



$ POP OMIT 

GO TO Ds; 
END ELSE GO TO 



OK ELSE GO TO OKJ 



O4I7O9OO 
04171000 
04171300 



0l3l«2 
Ol3l«2 
Ol3g«0 



$ POP OMIT 
$ SET OMIT 5 

DC» 



NOT DFX 



04171250 
04171350 
04174Q00 



Ol32»0 

0i32«0 
0132?0 






04174999 

04176000 
04176696 



0U2«0 
0132»0 
0132»0 



DX8 DX1» 
POP OMIT 
0K« if Flf^STWAiT 



NeXTWAIT THEN 



04176900 
04176901 
04l77q00 



PROC: 



T J= T&Ot 16« 16123 



'■mmmms 
■-oiiiiiiii 



0132«0 
0l32«0 
0132»0 



04182000 T Oi38ll 



• • 



n 

2 
3 
4 
S 
6 
7 



EL3E 
BEG^N:t 



NEW 
OUP» 



NEWIQJX 

IF STOP THEN 60 TO INCRU 

jF LOCATaUECSj.CFF] GTR ^1777 THEN 60 TO PROC; 



0^183000 T 
0^1670 T 



04188000 T 
04109000 T 
0ftl90000 T 



0l39«l 
Ol ^0«? 



OHl'O 
014112 



£nd;% 



auEUEUPcu);* 

T * T&4[i3:43J5];% 



04191000 T 
04192000 T 
04l 93 n0Q T 



Ol44< 3 
Ol45»2 
Q1»7U 



INCRI 



IF (TlM*CU0CK4P<RTR)-TiM) lSS THEN TIM*0; 
T00l»IQau£cS3; 



04194000 T 
04194050 T 
0/tl94tOQ T 



014711 
0S47I1 

Q l5Q*3 



10 

11 

12 

13 ~ 

14 

IS 

16 

17 

18 

<9 
20 



IF CU OR 1 i»\9 THEN 
BEGIN 

IF (JUNKigM[I0p3.i;5t7])>9 THEN 



0^194200 T 
O4I943OO T 
O4I944OO T 



Ol5l«3 
0l53'0 
l.53»g 



gUNKt»N£UP.# 
IF JUNK<NEUP, 



£tr3 + C*^UNK AND #17 n 

tFFJ THEN 

i«P(0gP»t.0D)->C|.0CK»P(RTR)*EUIQEC3^ 



04194500 T 
0^194550 T 
0fll94A00 T 



015610 
01581 3 
Ol60tO 



end; 

I^CSl^LOCATQUECSS) 
S S ET UMIT := NqTcN£WL,Qg giN 



,C3t5j; % FIND MIX INDEX 

QJ 



04194650 T 
0419*700 T 
0al94799 T 



0l63«3 
016313 

0l65«JL 



21 
22 



I0TIMECI3*(*PCDUP) 

IF Pc.si#uao)»cioi 
IF Exn thfn 



)+TIMi 

13 THEN fORGeTSPAqeCIOoJ/ * NO MEM MeSISAQe 



0*195000 T Ol65»3 
04l95i00 T Oi67«3 

04i96gon T oi7oro 



23 

24 

26=? 

2e/ 

27| 

28 

29 

90 

31 1 

Mil 

>3 

34 

3B 

i6 

yi~ 

38 

39 
«0 
41 
«2 
»3 



IF STOP THEN 
PCT) 

elsf gu to I: 



04196400 T Ol70»3 
04196600 T 0l7l»2 
04196800 T 0l72>0 



ELSE BEGIN 



Lt« 



RETUHNID 
PCTAPt.S 



SPACECS); 
l#L0D)CFTF3n 



04197000 T 
04199000 T 
4 201 00Q T 



0l72»l 
017213 
0^76tO 



end; 
p([unitcu]j'sto); 

FIN » FInAlQUE[S3 



AND NUT memory;! 



04202000 T 
04203000 T 
04205000 T 



Ol77»0 
0I77«0 
Q i y7» 3 



IF CU 08 U NEQ 17 

IF IOO.C24U3 THEN 

BEGIN V 4. ABS 



THEN 
% 
(I0Da33»l53«R,C33U53);X 



04205012 T 
O42O60OO T 
4207000 T 



017912 
0180*3 
0lP2«0 



IF lUD.C 

IF lOD.t 

V «• 



fl:iO] < V THFN% 
23»1] THENX 

iOD,t:e»i03;ai 



O42O8OOO T 
0«209000 T 
O421O0OO T 



OiSS'O 
0186«1 
016782 



IF U < 16 THENX 

IF 10D.C2H23 " TheNX 

begin; STREAM(A»OtB»MCSl,l33U5 3»v*13)n 



04211000 T 
04212000 t 
04213000 T 



018911 
019010 
019113 



Begin si * log b;% 

IF so » ••«•'' THEN TALLY *■ 1;X 

A * tally;* 



0*214000 T 
0a2l5000 T 
0*216000 T 



019513 
0i96l0 
l96<3 



•6 

*7 

«8 

«9 

50 

51 ; 

52 

i3 

54 

55 

5e / 

57 1 



* "PtViX 



tmn 



O*2l700O T 
0*218000 T 
04219000 T 



019710 
019711 
0196*2 



IF U ^ 30 THEN % 
FiNlSriOFFlOCU);* 
ENO/X 



iSUT OCA 



04219100 T 
O422O0OO T 
04221000 T 



0198»2 
0l99»l 
020012 



IF E > THENX 
1 SET OMIT » NOT (SHARED J SK) 

BEGIN IF STOP LEO I THEN 



04222000 T 
04222499 j 
04223000 T 



oaoo»2 

020111 
080l»l 



BEGIN 



IND£PENDENTRUNNER( 

PC.OISkORAUX£RROR)*((U And «'774) NEQ 16)» 



O42235OO T 
04224000 T 
04224010 T 



0202»2 
0203*0 
0203*1 









"liiilpiil 

0*22 4750 T 

04225000 T 



0205*0 
0206*3 



iifi|Pig 



5^ 



^ 



^ 



END* 
S SET OMIT = NQT(SHAREDISK) 



0-II226000 



0212«1 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19* 

20 

21 

22 

23 

24 

2S: 

26 
27 
29 
29 

30 

3^T: 

32 '" 

33 

34 

35 

36 

37" 

38 



ELSE BEGINX 

IF FIN < THEN P(R QR lOMASK»tOCATQUECS3**)» 
El 9 E 



04227000 
04228000 



021211 
021213 
Q21 5I 2 



$ SET OMir 5 NOT (OATACQM OR OfX OR OKbNOdFX) 

BEGIN 

lOcn *■ rMriQCATQuFrS]]];* 



0422909<J 
04229200 
Q4?300flfl 



0215«2 
0215«2 
Q2U'n 



lOD *■ IQD.C33»l5jj» 

WHILE L0CNC0},C33tl5] X 100 OQX 

'. LQC N *■ 1 iNx lqcn;* 



04231000 
04232000 
04 233000 



0217»2 
021613 
Q2?0<2 



I.UCNC03 ♦• M UH fin;x 
ENO £nd;x 

IF PIMIX = THEN GO TU NOTHINGTODQ; * 



04234000 
04235000 
Q4236r>on 



0222«1 

0223* 2 
0g23«2 



IF I « PiMjX THEN GO TO RETURN;% 

GO TO initiate;* 

END lOCQMPLETEiJt 



04237000 
04238000 
0iia^9r>QO 



02as<l 
022710 
Q:>g7*? 



SAVE REAL PROCEDURE WA JT IQ ( lOO*MAoK»U ) / X 



ST A RT Qf S aVF 



04240000 
SEftMFNT? BaSP 



ZE« 0228 

oooo'o 

nnrtpss 3 



moro^ 

5 19 



vAtuE mask#u*iod;x 

REAL MASKfU'IOO;* 
B£GIN* 



04241000 
04242000 
0.4243000 



0000»0 
0000»0 

ononio 



REAL t; 
DEFINE OCTADE= 

D^«-R E SET f 



DS*3 RESET;3{IF SB THEN DiJ*SET ELSE 
SK IP S B) # ; ^ 



04243i00 
04243200 

O42433OO 



0000 
0000 

0000 



100 ♦ NFLAGCPC 

MASK ♦ NOT MAS 

IQREQUESTCNA 



,IQ0#L00))4TlNUtun3»3»53;X 

K i X 

BSCIQD)AMASK[2S>40»8 3.InD> 



04244000 

04245000 
O42460OO 



00 OO 

0003 
9Q04 



CI0D3&UH 
lOD •• I00&OC25 
SLEEP(tIQO]#IU 



2»42«6])n 
«25«8]iOCl9»19t 13>X 
MASK)jX 



04247000 
04248000 
O4249Q00 



0006 
0007 
0010 



IF {CwAlTlO«-IOD.C26l/3) anO MASK AND MASK . t l8U53 )>0 THEN 
BEGIN 

T»G£TSPACE(12*0#0?*2; 



04250000 

04251000 
04251100 



0011 
0015 
0015 



STREAMCI0D<-IQD,[26:7],MASK«-<N0T MASK),[4U7], 

Z*[TINULU]],T«-T); 
BEGIN DS4-20 LIT" UNEXP I"0 ERROR ON "fSUZ; 



U5iOS«-3 Chr;0S»8 LITTRESULT*"; 
OC 100ISI*SI + 6;5KIP 3 SbUCQCTAOE); 
LITVWaSK"" JSIMI*6ISKIP 3 SBI 



04251200 

O425I3OO 
04251400 



0017 

0019 
0020 



'Sl.*S 
SI*.L 
P$»6 



04251500 
04251600 

425 1^00 



0023 
0025 
0029 



40 
41 
42 
43 



3(octadej;ds<-2 LIT".*"; 
end; 
IP PiMix 8 Then begin pcT); puntcoj end; 



04251800 

04251900 
04252000 



0030 
0033 
0034 



45 

46 
47 
18 



IF TERMixtCCFi/PiMix Then 

TE«»t|NAT£CPlMlX&l9Cl8»33>iSl?; 



04252100 
04152200 
04252300 



0036 
0037 
0038 



IF JARCPlMlx*9] ,C1U] THEN X "SYSTEM" JOB 
BEGIN 

SPOUTCT); 



O42525OO 
04252600 
04252700 



0039 
0040 
004; 



49 

50 



51 
52 
53 
S4 



end; 



BLAiiTQCU); 
END/ELSE ... '^ .. ,, 
T£RMlNALME|SAG£t'»T); 



04252800 
04252900 
04253000 



0042 
0042 
0042 



EN 8; 



end; 



04253100 
04253200 
O42533OO 



0044 
0044 
0044 



55 

56 



REAL PROCEDURE TAPEPARnYRETRY(R*U*KEY);X 



' ■':"'; «-^:^'f'- 



m^ni OF REL 



VALUE r*u*k£y; REAL r»u*key; forward;x 



0425«000 

se<^menti Disk 



04255000 



ze» 004S horos 

0000*0 
OORESS i> 00040 



0000*0 



5S 



• • 



N 

2 
3 

4 
5 
6 

7 



PROCEDURE DiSKQRAUXERRQrtCR); VALUE R; REAL R; 



START gF .JiLL 



0-(»256000 



BEGIN 
REAL 



MSCW 



\Z£- 



0(1256200 
04256^00 
QA?56<6Q0 



T 0000 
ADDRESS 
T OQOO 
T 0000 



»o 



QOQ^O 



10 
»0 
L0_ 



u 
s 



+ 1* 

f3,/ 



04256800 
0425?'000 
Oft^^ygOO 



T 0000 
T 0000 
X 0000 



»0 
»0 

10- 



T 
MK 

ion 



+4# 

♦ 5* 

♦ 6* 



CELL a MK# 



04257a00 
04257600 
0425780Q T 



T 0000 
T 0000 



to 

»0 
liL 



10 

11 

12 

•3 J 

14 1 

15 f 
16 
17 
18 
19 
20 
21 
22 
23 
24 

IBs; 

M*> 
V 
28 
29 

>0 

31? 

n 

33 

34 
35 
36 

37" 
38 
39 
«0 

41 

^2 

»3~ 

«4 

45 

16 

♦7 

«S 



MIX 
FIN 






PARITY" FIN/ 



O4258OOQ 
04 253200 
04258400 



T 0000 
T 0000 

J aooa 



»o 
to. 



10 

111 

12 

13 

14 ( 

15 

16 

,7( 

18 

19 

20 I 

21 

22 

23 * 

24 

25 

26 I 

27 

28 

29 ' 

30 

31 

32I 

33 

34 

35 ( 

36 

37 

38 \ 

39 

40 

4, < 

42 

43 

44 ' 

45 

46 

47 < 

48 

49 

50l 

51 

52 

53 < 

54 

5S 

56 I 

B7 



KEY2 






04258600 
04258800 
0a259n00 



T 0000 

T 0000 

A OOQQ 



10 
10 
1Q_ 



AREA 
RSLT 
PRTMAX 



+ 13' 

+ 15* 



Ul 

MSG 

Tl 



■ AREA* 
- RSLT* 
s PRTMAX* 



DI5KCELLS 
TERMSET = 
6LAY 1P 



♦ 16* 
+ 17* 
+ 18* 



T2 



» OlSKCELL* 



DSKADBS s +1S); 



NAME 



l ocn 



jtl4i_ 



O42592OO 
O42594OO 



04259000 
04260000 
O426Q2QO 



T 0000 
T 0000 
T O QOO 



T 0000 
T 0000 
X QQQQ 



«0 
«0 
10. 



»0 
10 



0426O400 

04260^00 
042 60QO O 



T 0000 
T 0000 
J O QOO 



«0 
«0 
JLD._ 



LABEL oSiT* START* QUIT* RETRT* KILLL* KILLER; 



04261000 
04261200 

Q426U0n 



T 0000 
T 0000 

X QSiHSL 



»0 
«0 

LOl 



$ SET OMiT * iMOT(AUXMEM) 

surRQutine diskmessage; 



04261600 

04271200 
0427U 00 



T 0000 

T 0000 
T OQOO 



«0 
«0 
1Q_ 



BEGIN 

STREAH(MSa* MK* Al»TlNU£U3* MjX* BtaQSKAORS* 
5««10QU£[S3a27»63, R, KEY 1 » »KEY 1 » cGETSPACEC lO*Of ) + 2 > J 



04271600 
04271800 

04272000 



T 0001 
T OOOl 
T 0002 



10 
»0 
«3 



BEGIN 

Si»«LUc mk; SijaSi+7; d5j=chr; 

Sl:=SI+5; DSt«3CHR; DStsLiT" ", 



04272200 
O42724OO 
04272500 



T 0006 
T 0006 
T 0007 



«2 
«2 
»1 



LOI 



cij'CI+msg; 

GO LO^ GO Lli 
DSJ* 9Ln''N0T 



GO L2I GO 
READY-; 



l3; 

GO 



GO 
TO 



L^^ 
MX; 



GO l5; go l6; go iH 



04272800 
04273(300 
04273200 



04273400 
04273600 
04273800 



T 0008 
T 0008 
T 0010 



T "OoTf 
T 0013 
T 0014 



»1 
13 

»3 



»2 

13 



Ll» DS»» 4LIT''8USY''; 
L2! DS«' SLIT'M/O mem 
L3» dSJs 6lIT"PARITY"; 



L 41 ~WS 
L5» OS 
L6» OS 



«»iaLIT"l^O INV AODR«f 
|» 3Ln''£W »♦;- 
t*'l3LlT'*lNV 01 SK 



GO 
AOOR^'GC 



GG TO Mx; 
GO TQ MX; 



urmr 

TO MXi 



04 274000 
04274200 
04274400 



T 0016 
T 0018 
T 0019 



W 

10 

10 



111 0St*l0LIT''WRlTE LOCK"; 

MXI DSl» 6LIT''* Mixs"; DSt=2DEC; 

MSGJaDi; Di»=Di-2; dsi^fill; 



0SI»5HT"' -- . - 
DS»»7LIT''* iiEQS"''^ 

DSta4Ln"» Rw*'! 



DA""; 03»«eCHR; 

■ 0S»*20EC^ 



di»»msg; 



04274600 

04274900 

04275000 



T 0021 
T 0022 
T 0024 



«1 
13 

JO 



so 

51 
M 
M 
S4 

95 
96 '. 



04275200 
04275400 
04275600 



T 0025 
T 0026 
T 0027 



10 
»1 
»3 



16{DS;»3REsEt; 3(IF SB then DSj^SET ELSE DSI«RESET; SKiP SB)); 

SI»*SI-5; US»*5LIT"* 10»''/ 

IF SB THEN 0Sls2LIT"4*"i SKIP SB; 



:W/'^lliPi5iiiiMiiPiPliitg»i 
'liiWiiiiKiiiiliiiliiii 



04275800 

04276000 
04276?00 



T 0028 
T 0031 
T 0032 



»2 
'I 



DI 



J-DI-lT OiijaLIT"*-"; 



0427i64Q0 

■ iiii p i i 

04277000 



T 



^mm 



ma, 



T 0037J1 



• • 



2 

3 



END STREAM STATEMEI^; 
END SUBROUTINE DISKMESSAG£> 



04277200 T 0038 
QA27.7aQQ T Q03fl 



SUBROUTINE oetaiirecoroentry; 

BEfilN 



0427/600 T 0038 
04277800 T 0038 
Oii27fl0Qfl T 0030 



WEY2 ts GETSPftCEC6,9,0) + 2} 
MCKEY2] «= & RDCTABLE[U3[185 1J23; 
IF MIX NEQ THEN 



0^278200 T 0039 
O42784OG T 0041 
42 78ft OQ T 00^4 



BEGIN 

MCKEY2] «>. (*F(OUP)) & MlXt20U3l53 

(IF FINALOUEtS] LSS THEN ELSE 



& 



CMtMCLOCATQUElS] INX inOT 2J InX 4],tl3«in DIV ETRtNG ) + U C « ^9 « 9 ]; 

end; 
MEKEY2-^n «= transactioneui; 



04278800 
Oa2?9G00 
04279^00 



T 0044 
t 0045 
T 0047 



O42794OO 

04279600 
04279»00 



T 0049 
T 0054 
I 00 55 



IF NOT DISC THEN 
BEGIN 
STREAM(St8lQ0.CFF3» Dl»KEY2»2)J 



04280000 
04280200 
04280a00 



T 0058 

T 0058 
T 0059 



BEGIN 

SIisLUc S; DS:s80EC; 

end; 



O428O600 
4280800 

04 281 000 



T 0061 
T 0061 

J 0061 



19 

20 

21 

22 

23 

24 

2S 

26 >< 

27; 

28 

29 

30 

31"^ 

32f: 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



END 
ELSE MtKEY2*23 »» OSKAORS; 
MtK£Y2-»33 »» iOQMfclSJ; 



MCKEY2 + 4] IS R t HOC TABLE C U 3 1 3 | 3 I 53 ; 

MCKEY2 + 53 »- IF FlNALQUEtS3 t^S TheN ELSe L0cATQUECi*3 iNX nOT 2} 

END DETAILRECORDENTRYJ 



04281200 T OO61 
O428I4OO T 0061 
04281A00 T 0064 



0428la00 T 0066 
04282000 T 0069 
Q42822 Q0 T 00^5 



19 
20 I 
21 



SUBROUTINE finishoetail; 

BEGIN 



04282400 T 0075 
04282600 T 0075 
04 2828 00 T 00 76 



IF Mix NEQ THEN CHECK JQBORF I LEMESS( Ml X#MC KEy2*5 3,U ); 
LINKUP(4+DISC*KEY2); 

end; 



04283000 T 0076 
04283200 T 0079 
04283400 T 0081 



!C0' 0» 0* 0* 0* 0» Of 0* 0* Q» Of Of Of Of Of Of 0» Of 03; 



04283600 T 0081 
04283800 T 0081 
04284000 T 0086 



DISC» = CU«=LQCATQUL[SJ5R,|;3I53J,[12!6]).[46J13; 

MIx«=LOCATQU£CS3.t3J53; 

IF (OLAYIO 1= ((HNALQUELS3 Li>S Q) AND (LP CATQUEf S 3 . [ 9 i 1 3 ) ) ) TmEN 



04284200 T 0086 
04284400 T 0090 
042B4A00 T 0Q91 



BEGIN 

STREAM(S»=0&FlNALQUECS3[CrC3iFlNALQUEtS3[2ll8U23# D »» [DSKAOHSJ ); 
BEGIN 



Sl:»LOC S; DS{«80£C; 51 DISK ADDRESS IN FINALQUE FDR OLAY I/O 

end; 

END ELSE DSKAOHS :s M[I0QUtCS]3; 



04284800 T 0094 
04285000 T 0095 
04265200 T 0098 



04285400 T 0098 
04285600 T 0098 
04285fl00 T 0098 



45 



MKls!"*"; MSGJ«C1); 

R|«R&I00UECS3E3«3»53; » RESTORE HARDWARE UNIT TYPE 

lOD t» I0QUECS3; ^__ 



04266000 T OlOl 
04286200 t 0102 
04286400 T OlOa 



46 
♦7 
48 



IF DISC THEN 
BEGIN 
IF R.E30»13 THEN it DISK NOT READY 



04286600 T 0i05 
04286800 T O1O6 
04287000 T OIO6 



49 

so 

51 



BEGIN 
$ SET OMIT m NOTCOFX) 
UNITCU3*»t*PCDUP)3&g7 7 777CS»20;26 3; 



04287200 T Ol07 
04287400 T 0lO7 

4295400 T oi oy 



52 
53 
54 



mss»«o; mki*"*"; % not headY 

diskmessage; 

detailrecQRDentry; 



04295600 T 0110 
04295a00 T 0111 
042 96 000 T 0U3 



55 

56 



REAOY I* NOT TWOCU) AND REAOV; 

rrrmcch t» NOT TWQ(u) anq rrrmech; 

UNlTCUS.tSUQ] t« 2J 



04296200 T 
042*6400 T 
P 4 S9 » ii aO T 



Oli4IO 
0U6»0 
O ll flfO 



GO TO KlLLLi 



04298800 T 0l20»2 



>r 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

131 

14 

IB; 

16 

17 

IS 

19 

20 

21 

22 

23 



24 

2B-; 



26 

27 



28 

29 



Jli 



32 
33 



34 

35 

36 

37" 

38 

39 



40 

41 

42 

43 ' 

44 

45 



46 

47 
«8 
19 
SO 
B1 ; 



i3 
S4 
55 



end; % IF NOT READY 
LUCATQUE[S3.[FF] ta not 



Jli. 



IF R.C26I73 nEQ I AND NOT OLAYIO THEN X NOT BUSY OR SPECIAL I/Q 
PARITY »* ClOO,C24tn AND CR, £2617 3»16? >; % PAftlTy CONDITION 



0^299000 
<?fl29V2Q0 



IF FINALiJUE|SJ GTR THEN * OBJECT JOB ERROR 
BEGIN 
IF PARITY THEN GO TO START; % RECOVERABLE FRRQR 



04299600 
04299600 
04300000 



0122»0 

, Q l22» n 



T 
T 
T 



012411 

0U6*1 
012613 



DSITI TERMINATE(MIX420UTF3); 
ENB % OBJECT ERROR 

ELSE 



O43OO2OO 
04 300400 
Q43OQ5OO 



BEGIN % MCP I/O 
IF MIX NE<a THEN 

^^.,B.gGlN 



04300600 
04301000 
OaSQlgQO 



0129? 2 
0130>2 
Ol3l<n 



% PONT OS L IHHAIN/DISK ON PARITY ERROR 



end; 



GO TO DSjT; 
end; » NON-ZERO 
X MCP I/O 



Mix 



end; % NOT BUSY OR SPECIAL I/O 



STARTi 



TRANSaCTIQNEUJ la TRAMSaCTIOMU]"!; 

MASK :s IF (FiN tg FINALQUE[S3) LSS Q ThEN FlN,[25»e3 ELSE 9i77i 



IF 



(E <• 

BEGIN 



R»t25«8] 
% FIX UP 



Q U IT* 



ano maSk) 

lOQUE 



* THEN % ERRORS ARE ACCETaBlE 



if msg neq (-u and 
detailrecordentry; 
i SET OMIT » notcauxmem); 



DISC THEN DISKMESSAGE; 



FlNi*<^liiitfeir:.ANO.::fe^ 



IF (TitsFiN) lss Then X mcp i/o 

BEGIN 

IF NOT QLAYIO then » I/Q FInISh PlACES RESULT U£Sc, FpH QlAY 



MCL0CAT0UECS3];=R&Et25M0»8]&I0DC3l3»53 QR^ iQMASKi 
END X IF MCP I/O 
E LSE 



BEGIN 
IF E NEa 
BEGIN 



THEN % ERRORS 



pc,Ti*pRL); 

Tl I- T1&EC25U0I83; 
END 



ELSE P(.Tl,IQR); 

LOCN «=« CMtLaCATQUECS3 33; 

lOD t» IQ0,C33»153; 



iwiiM%PlifWiii»tipii«p. 100 oo 10 cN I. 1 jNx lOcni 



IF 



GO TO KILLL; 

end; 

E then X BUSY 



BEGIN 



U&Mtr;^m% 




MIT « notIAuXmEm) 



ym 



O43OU00 
04 301600 

Q 4 192090, 



013210 
013311 
ai33M 



■/tiiiiiiiii? 

043Q2a00 T 



0133JI 
013313 
0,11,412. 



04 303000 
04303200 
04303a00 



013510 
013612 
013810 



04303600 
04 303800 
04304QQ0 



oi3a«o 

0138' 2 
0136» ? 



T 

T 



04304200 
O43O44OO 
04 304600 



013812 
Ol38»2 
. O l 39 »2 



04304600 
O43OS0OO 
Q43Q52Q0 



Ol38»2 
013812 
Ql40»2 



04 305400 
043C5600 
04305fl00 



O144I2 

014613 
.Q147U 



04309200 
O43094OO 
04309600 



04309800 
04 310000 
04310200 



014711 
0150«0 
01. 91 »o 



0l5l»0 
0134*1 
0l54»l 



0l56«0 
0157J1 
0l57»3 



O43IO4OO 
04310600 
043lQflQQ 



04311000 
04311200 
04311400 



015811 
0l63«0 
Ql63 « n 



04311600 
O48U8OO 
04312000 



0163»0 
0l63«2 
0l64t 1 



04312200 
04312400 
04312600 



O164I3 
0l65»2 
016711 



04312800 
04113000 
04113200 

04313600 
04313800 
04314000 



O167I1 
O168II 
0l69t3 



017110 
017412 

017512 
0l?5t2 
0i76«0 
017610 



043^i«Piy/T'''' 017.6 if. 
■94 314790 T fli>7l2 



ri 



2 1 
3 

4 
5 \ 

6 
7 

8 < 
9 

10 



11 

12 

13 

14 ( 

IS 

16 

17 i 

18 

19 

20 ' 

21 

22 

23 ' 

24 

25 

26 ' 



27 
28 



29 I 
30 



31 

32 I 

33 

34 

35 I 

36 

37 

38 { 

39 

40 

4, < 

42 

43 



45 
46 



47 ' 
48 



49 

50 ' 

51 

52 

53! 

54 

55 

56 < 



# • 



>r 



12 
13 
14 
15 



16 
17 
IS 
19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

36 

39 

40 

41 

42 

43 

44 

45 

«6 

47 

«8 

49 

50 

51 

52 

53 

M 



56 r 

57 {; 



DiSKMESSAGt/ 
DETAILRtCOHOENTRY; 



S SET OMIT « NQTCAUXMEM) 
T1»*<IF DISC THEN 
RETURNI9SPACE($); 



I0QUECSU6C3t43t53 ELSE lOQUECSJ)) 



PIMIXJ' 
IF NOT 



iMix; 
QLAYIO 



THEN % RETRIES ARE OK 



lOREeuESTCFlNALOUECSi* M, 

(IF DISC THEN L0CAT0UEC5UP22C 12»42»63 EtSE 
l.0CAT0UECS3))i 

PlMIXJsO; 

GO TO KlLLEHi 

end; % IF BUSY 






E«9*l537; 

GO TO quit; 
ENp; 



IF E, [41113 
BEGIN 

MSG;«ft; 



Then * invalio address 



e:«P1537; 

GO TO quit; 
FNn; 



$ set omit 8 NQT(SHAREDISK) 

IF NOT E.[43U3 THEN % NOT PaRITY*CHECK DISK aODHeSS 
BEfilN. 



STREAM^UA«=MASK^■DSKA0RS I EU » =MASK , [6 I 6 3 * A««0» 

EUA«stMULTlTABtEC16*2xMASK,C5«n33j; 

BEGIN 

Sitvuoc Da; 



IF 
IF 



■sc 



GTR 
LSS 



• ( fi 



THEN 
THEN 



GQ 
GO 



SET OMIT « SHAREOISK 

7( 

POP OMIT 

NOT(SHAR£OISK) 



TO 



bad; 
bad; 



S SET OMIT 



S SET 



IF SC US!* 
IF SC 6Tft 

SHAREDISK 



«9« 



THEN UUMP OUT TO BAO; SI»sSI+i; 

Then jump out to bad); 



OMIT s 

SI j*si-5; 

S POP OMIT 



$ SET OMIT » NOT(SHAREDISK) 

oifr»LOc oa; osia2 OCT; 
sii»guA; siigsi-H4; aKip eu sb; 



DI»«LOC a; 0n»DI + 7; SKjP 2 db; 

IF s^ then skip db; 
sitaLoc oa; sngsi-»6; 



IF SC NCa "0" THEN QO To BAo; sii«si*i; 

4ClF SB THEN OSl«SET ELSE OSt«RESET; SKIP SB); 

SIULQC a; SIt«$U7; IF sc QTR **<t" THEN GO BAPJ 



8A0I 



IF SC LSS "0" THEN GQ BAO; 

sijseua; sn=«si+Eu; SKIP sb; skip a sb; 

IF SB THEN GO TO QK; 



. (MASkVsP) OR E.C«2«ij THEN % BAD A 



§■■; "ii.: ■ '¥'' ■- 
DRESS 



tM 



OR Eu NOT REa^IY 



04314820 
0^31^000 



0l77«2 
O l 79 »0 



04ll5l90 
04313400 
04 ll5ftQ0 



0/!l3l5800 
04316000 
043l6/>00 



0160<0 

oieoio 

Q163M 



018710 
0l87«0 
0l87»3 



04316600 
04316800 
04317000 



04317200 
04317400 
Q4I 17 6Q0 



018811 
0l69«3 
019 8 « 2 



04317600 
04316000 
0a3^a?Q0 



0l93«l 
0l94«0 
0l94lP 



O43184OO 
O43186OO 
043 1 88 



0i94t2 
019511 
Ot»S*^ 



0196J2 
0l97«l 
Ol97» 3 



04319000 
04319200 
04 3194QQ 



019713 
019812 
0l 99>ft 



04319600 
0431980C 
04320000 



019913 
0200«2 
02OH0 



0432020C 
04325400 

04325600 



04325800 
O43260OO 
Q43262QQ 



T 
T 



O20UO 
O2O1IO 

Q2Q2*n 



04326400 
04326600 
04326fl00 



O2O2V2 
0204< 3 
02Q7«0 



02Q7»0 
020711 

020e«o 



04327000 T 
04327200 T 
043?7a00 T 



04327600 
04328200 
04328400 



o2oei3 

0208 J3 
020910 



T 
T 
T 



04328600 
04328800 
04329Q00 



020910 
020910 

02 1 *1 



0211»2 
0211«2 
Q2U »3 



04 329200 
04 829800 
04 33QQQO 



O433O2OO 
O433O4OO 
04330600 



0211 «3 
021113 



04330S00 
04331000 
04331g00 



0213»l 
0214«0 
Q 2I4« 3 



04331400 
04331600 
04 331800 



0215«l 
021611 

Q8ve>i 



0219«2 
0220 «1 
022113 




022212 



223*1 



15 
16 

iH 

18 

19 

20 ( 

21 

22 

23 ( 

24 



• • 



n 

2 
3 

4 
6 
6 
7 



BEGIN 



» ^?EU NQT RtAPY^ 6.^INVA L I ptSIS ADDRE SS 



IF 
IF 



NOT MASK 
(MIX NEQ 
BEGIN 



THEN MKI«'*#"; 

0) OR olayio then 



04332800 
Q4333oQn 



0224 
0225 



»3 



04333200 
04333400 
04333A00 



T 

T 

X. 



0226 
0226 
022^ 



12 
12_ 



E»=Pl537; 
END' 



GO TO QUIT; 



04333800 
04334000 
0433^ 200 



T 0230 
T 0231 
T 0231 



»0 

»1 

«4. 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 

19 
20 
21 
22 
23 
24 

2B^;* 

27;;' 

28 

29 

» 

Si' 

32 

33 

34 



OeTAlLRECORDENTRYi 
GO TO killer; * LET 

jm 



IT HANG 



04334400 
04334600 
04334^00 



T 0232 

T 0233 



»o 
»o 

12- 



EL5E 

BEGIN X MUSI BE L.C4'*;!]* MEM, PAR. 
MSr,I«g; E>:ifl537; fiQ TO QUn^ 



04335000 
04 3 35200 
04335400 



T 023 3 

T 0233 

J 0234 



»2 
12 

iXL 



lE. 



tHOf 
tmi % IF NOT PARITY 
TnQUFCS3.Ca4tl1 THrm 



t dtSk parttY n^ RFAn 



0433s 6 00 
0433Se00 
Q43^6nQQ 



T 0236 
T 0236 
J Q2M 



10 

»0 



BEGIN 

mSg«s3; 

E»«g20; 



X FAR IT Y 



go to quit; 
end; 

MSfit»71 % WRITE LOCK 



04 336200 
O43364OO 
04336600 



T 0237 
T 0237 

J o?3a 



»0 
«2 



04336S00 
04337000 
O4 3372Q O 



T 0239 
T 0239 
J Q?39 



»0 
12 
L2- 



E««P1537; 

GO TO quit; 
ENn; % IF D I SK 



04337400 

O4337600 
04317800 



T 0240 
T 0241 
S Q?41 



»1 

»0 
12- 



.■;'t:;:jtE,T ;0M'|,T-'«.:.,:WgmiAUXMrM3. 



L0CATQUE[S3.Uin^s = 0; 
IF KE Yi NEQ Q THEN SPpuTERCKE M*PSE U DO>^I )tC»^lX3/35?; 



04338000 T 024l«2 
04338a00 T 024ll2 

04151600 T Q24H2 



04 351800 

04352000 
04 3 52 200 



T 0241 
T 0244 
T 0244 



«2 

«0 



IF KEY2 NEQ THEN FINISHOETAlLi 

IF TERMSeT Then TERHlNATE(MlX<i.20[CTF]H 

KiiLCtMScwn; 



04352400 
04352600 
04352800 



T 0246 
T 0248 
1 0250 



to 

10 



38 

37^ 

38 



END PROCEDURE D ISKORAUXERROR; 
PROCEDURE ACTUAlIOEHRcR); vALuE hi REAL Rt 



04353000 T 0250«3 

Sizes 025i 

04353200 T OOOQtC 



WORDS 



8ECIN 
REftl 



STarT of REl 



MSCW 



•2# 



segment; 01 Sk 

04353400 

043S3600 



ADDRESS 
T 0000 
T 0000 



00049 



to 
10 



«0 
41 
42 
43 ~ 



E 

T 
5 



r +1, 

= +2/ 

a +3* 



04353800 
04354000 
04354g00 



T 0000 
T 0000 
± 0000 



80 
«0 
10 



«5 
«« 
47 
•8 
49 
SO 
51 
52 
53 
54 
5S 
56 



F 

U 






04354400 
04354600 
04354800 



T 0000 
T 0000 
T 0000 



10 
»0 
«0 



Tii 
T3 
KEY 



= +7* 

= ♦9* 



04355000 
O43552OO 
O43554OO 



T 0000 
T 0000 
T 0000 



«0 
»0 

to 



FIN 
lOD 
MASK 



* NT3# 
s NT6# 
m ♦10* 



04355600 
04355800 
04356000 



O43562OO 
O43564OO 
04156600 



T 0000 
T 0000 
T 0000 



»0 

10 
10 



T "0000 
T 0000 
T 0000 



DISC 
TYPE 



♦ 11* 

+ 12; 



LOCN « T3; 



T 0000 
T OOOQ 

T 00 do 



JO 
10 
«0 



To" 
»0 
♦ 



^•N*ife 



iililiBiiiiliiiiiiiliiM 



04356800 
04357000 
04^57200 

04357400 



0000«0 



# • 



2 
3 
4 
B 
6 
7 
8 



REWINDING* NOC0DL> CLEAH, KILLU' KILLER; 
LABEL READEHy PHINTER* TAPE* UKUM* DISK/ SPO» PUNCH* 



04357600 T 0000 
Q4 357aQQ T OQOQ 



PAfERPUNCH/ PAPER* PATACaMI 
SWTTCH W l« REA§ER>PRlNTER#TftP£*DRUM#bISK*SPOf PUNCH* NQCQDE* 



04358000 T 0000 
04158200 T 0000 
04358400 T 0000 



RAPEHPUNCH, PAPER* U AT ACOM; 



SURROUTINE MAKEMEt>S; 



04358600 T 0000 
04358800 T 0000 
04359000 T QO O Q 



BEG 
STR 



IN 

EAMCSl 
MX 



l^F.CtS'SJ* S2»ef. t38«53, Al»TlNtl|U3* 
l»LOCATQUE[S3.[3t53* KEY t»KEY l»Q£TSFACE { lO* 0»0)*2) j 



04359200 T 0001 
04 35 9 400 T 000 I 
04 359600 T OOO l 



10 

11 

12 
13 

14 
15 



BEGIN 



c a; siissi+s; 
T"*"f D s»g 3 chr ; 



US:sLlT" 



1m. 



04359800 T 0006 
04360000 T 0006 
Qa3ft92Q0 T 00 Q 7 



cn»ci*su GO TU uu; 

gO Lt; 60 L2; qO l3; go L4; qD L5; go 

nSl«l9 LTT^BIANK TAPF QN WRITE"; (k£L 



L6; qU ll; 

TQ MXXi 



QO UL; 



04360400 T OOOa 
04360600 T 0009 
04 360800 T 00 U 



16 
17 
18 
19 



Hi 
L 3« 



dSJ* 4 
DS»» 8 
ni>'° 6 



LIT" 
LIT" 
LI T" 



BUSY"; 

I/D MEM "; 
PARjTY"; 



GO TQ MXX; 

fiU TQ Mxx; 



04361000 T 0014 
04361200 T 0015 
Q41I61/|00 T 0016 



20 

21 

22 

23 

24 

2S 

26 

27 V 

28 

29 

30 

31 " 

32 

33 

34 

3S 

36 

37 ~ 

38 



L4f DS«*ia LlT«iyo INV ADDR"i 

LSI DSi» 9 LIT"l/0 ERROR"> 

L 6 1 n$ t«f\ Q L IT "WRITE LflCK^' f 



60 TO MxXi 

GO TQ Mxx; 
GO TO M X X I 



04361600 T 0017 
04361800 T 0019 
Qa3ft?00n T 0021 



LLt GO TO PS; 

Mxxj GO TO mixit; 

PS> Dl;sDl^5; QS>=LIT"»"J Qlt^Dl*'*} 



04362200 T 0023 
04362400 T 0023 
Q436 2600 T 023 



NRt 
LLOt 



CII»CI 
OSl« 9 
DS«g 5 , 



+ S2; 
LIT" 
UI.T" 



GO TO LLO; GU 
NOT READY"; 
PRINT"; 



TO LLi; 



GO TO LL2; 

60 TO mixit; 
GO TO cuk; 



04362800 T 0024 
0436300Q T 0026 
Q 43632Q Q T Q Q27 



LLU 
LL2t 
CHKt 



DS;x 4 
DSia b 
pSls 5 



LIT" 
LIT" 
LIT" 



HE'AD"; 

PUNCH"; 

CHECK'S 



GO TO chk; 



04363400 T 0029 
04363600 T 0030 
04363fl00 T 0031 



MIXIT! 



OSt» 6 
On»DI' 

end; 



LIT" 
•3; u 



# Mixs"; DSt«2 dec; OSiaLIT"*"; 
s»«fill; 



04364000 T 0032 
0436^200 T 0033 
04364400 t 0034 



END OF MAKEMESS; 
SUBROUTINE PET AILREcURDENTRY; 



04364600 T 0034 
04364800 T 0034 
04365000 T 0034 



BEGIN 

KEY »» GeTSPACE(ABS(T2)*9*0)+<; 

MCKEY3 «« CABSCT2) OIV 5 -1) & RPCT ABLEtU 3 C18 t 1 t 23; 



04365g00 T 0035 
04365400 T 0035 
04365600 T 0037 



40 
41 
«2 
♦3" 



IF (NTlt=L0CATaufctS3 .C3:5J) NtU THEN 
BEGIN 
MCKEY3 »= C*P(DUP)) i NT1C<J0»43:5] & 



04365800 T 0041 
04366000 T 0043 
O43662OO T 0044 



ts 

46 
47 
48 
49 
50 
51 
52 
53 
M 
55 
56 



(IF FINALQUECS3 LSS THEN eLSE ^ 

(MCMClOCAT«uE:CS3 INx NUT 2J INX 43.Cl3ai3 DIV ETRLN6 )♦! ) C 9 1 391 93; 
CHECK J0BQRFILEMES5( NT 1* 



04366400 T 0046 
04366600 T 004a 
04366800 T 0Q53 



(IF FINALQUECS3 LSS THEN U ELSE L0CATQUEtS3 INX NOT 2)* 

u); 

ENo; 



04367000 T 0055 
04367200 T 0058 
04367400 T 0059 



MCKEY+13 l» TRANSACTIONCUJ; 

Mi:KEt+23l»IF TYPE»2 TMen RQCTABLECU] & UC3I43I53 ELSE O; 

MCKEY»33 «* lOQUECSa; 



04367600 T 0059 
04 367600 T 006 t 
04368000 T Q066 



MCkEY+43 la r & RUCTABLECU3C3J3t53; 
IF TYPE«2 THEN 

BEGIN - 



04368200 T 0068 
04368400 T 0072 
04368600 T 0072 



MCKEY*53 l« MuLTITAaLECU3; 



04366800 T 0073 
04169000 \T 0075 
0< t3 «9 2<?Q T 0077 



MtKEY+8] i* 0; 



04369400 T 008010 



• • 



n 

2 
3 

4 
5 
6 

7 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S ;. 

M '.- ■ 

27 

28 

29 

30 

ji7! 

32 

33 

34 

3S 

36 

37" 

38 

39 

40 

41 

42 

43" 

44 

4S 

46 

47 

•8 

19 

50 

51 

52 

53 

54 

55 

56 



MtKEY+9] js 16/ 

end ; 



IF T2 QTR THEN LINKUPC TYPE + l ,K£Y ); 

END oetailrecOROentry; 



0436V600 T 
Q/f3<S9p0n T 



0082 



O437OOOC T 
04370300 T 
0£tl704fln T 



0084 
0066 
flOft7 



DEFINE MAKEMlOG(MAkemLOGI) = 
BEGIN 
T?t«MAKFMLOGi; PET A ILRECQRUENtH Y J 



04370600 T 0087 
04370800 T 0087 
0437100.0 T 0087 



ENOtJ 

pffl» o> Q» o# 0/ Of Of 0, 0* o> o» on 



04371200 T 0087 
O437U00 T 0087 
0^371600 T QMl 



$ SET OMiT s OATACQM 
* THIS CODE WAS PLACED HERE FRQM OuTER BLOCK TO AVOID CAySiNG 



04371800 T 0090 
0437lg00 T 0090 
04371910 T 0090 



IF R»0 % OVERfLSW OF INTERRgPT STApK 

THEN BEGIN 8T8eAMtfi»»Tt«GETi>PACEClO#0,0)+2); 
0Sl«4gt.lT**«0ATAC0M/ INQUIRY INTERRUPT IGNORED BY McP »"J 



SPOUT(T); 

GO killer; 



END. 



$ ffOP 

ut« 

STABTt 



OMIT 
L0CATQUEi:S»sR,C3»5n.tl2«6Jj 



04374920 T 0090 
04371930 T 0090 
04371940 T 0094 



04371950 T 0099 
04371955 T OlOO 
04371960 T OlOl 



0437t970 T 
04372000 T 
04 372200 T 



01 
01 
01 



T»xUNiT[U]&0ci3» 13»2]; 
TRANSACTIQNtU3 «= TRANSAC T lOiN t U 3-1 ; 
TYPE »= T.[184]; 



04372400 T 
04372600 T 

04372fl00 T 



03 
05 

Ql 



MASk»«IF (T2J»FlNALQt 
IF (Et«T,t5«83 AND MA 

QLMR 



Etsn LSi* Then T2,c25«6] else P3771 

SK) s THEN X ACCEPTBLE 



04373000 T 
04373200 T 
04373400 T a 



08 
12 
15. 



FJ*!* 

6Q TO 

e n d ; 



% RETAIN 

Fix; 



ERROR FIELD 



04373600 T 

04373800 T 
04374Q00 T 



15 
16 

u 



IF 



E THEN 
BEGIN 



X BUSY 

cu«30Ua3M7ii3; % busy/incomplete Mask 



04374200 T 
O43744OO T 
04374600 T 



16 
17 
11 



IF U LSS 
BEGIN 
P(0); % dqnT SP 



16 AND TRAnSaCTICjNCU] LEO THEN 
OUT MESSAGE 



04374800 J 
04375000 T 
04375200 T 



19 
21 
22 



GO TO rewinding; 
■end;'.-. 

if x) mm m thin x not spq 



O43754OO T 
04375600 T 
04375800 T 



22 
23 
23 



BEGIN 

F»si; X BUSY 

MAKEMLSS; 



spquterckey*pse 
ENo; 

MAKEWLQGCIF TyPE«2 



UOO>^1 X £ LOCA tQUE C S3 #X 3 * 5 3 3*35); 
/■■'THEN .1G:/,£LS|'^5 )>.:,/■ 



04376000 T 
04376200 T 
O43764OO T 



04376600 T ^ 
04376800 T 
04377000 T 



23 
24 

25 



56 
26 
26 



Lll 



DO BEGIN 

SLEEPCCClOCK]*N 

UNlTtUJ»=(*P(DU 



OT CLOCK); 
P))&P(T^XCH)[CTC3; 



04377200 T 
O43774OO T 
04377600 T 



31 
31 
32 



startiocu); 

sleep(cunitc'u3j 

transacti0ncu3 



**ioQooooooooo); 

im TRANSACTl0Ntu3*lJ 



04377800 T 
04378000 T 
04378200 T 



35 
35 
37 



END UNTIL (UNIT 
TRANSACTIQNtU] «=» 
IF CUNlT[i.j3,[5»8] 



cu3.c5«83 and t3) - o; 

transactiqncu3+i; 

and mask) » then go tq clear; 



O43784OO T 
04378600 T 
04378800 T 



39 

42 
44 






start; 



X NOT READY 



04379000 T 
04379200 T 
0it|y94p0 T 



46 
48 
M 



IF E.C45:13 THEN 



04379600 T 0l48»0 



BEGIN 

IF F.C43M3 THEN 



04379800 T 0l48«3 
QflSflOnOQ T C1 H9 M 



BEGIN 

IF TYPE»0 THEN GC TO READERS % 

IF TYPE»1 THEN GQ TQ PRtNTFRi it 



READ CHECK 
PRINT CHECK 



04380200 T OlSOlO 
04380400 T 0lS0t2 
Q43fl0ftQQ T OlSlM 



5 
6 

7 
8 
9 
10 
11 
12 



JX. 



IF TYPE* 

end; 

U NE O 25 



6 THEN CiQ TQ PUi^CH; 
THEN % NOT SPU. 



* PUNCH CHECK 



04380800 T 0153«0 
04381000 T 0154»1 
QflieizQQ T 0l54<l 



BEGIN 

notreadymessi 



» N Q T R EADY 



0438U00 T 
04381600 T 
QitlfiiflQQ T 



015510 
015SI2 
0l55i2 



MAKEMUOGCIF 
MAKEMESS; 
U l UJf SPOUT 



type=2 then 10 else 5)^ 
>^e:ssaqe 



04382000 T 0l56»l 
04382200 T 160 10 

0ft|itl4Q0 I 9,161*0 



13 

14 



NTRQYl 



•,ii^SiiitiiP:iii|ipi; 



16 
17 
18 



RRRMECHtsNOT TWQCU) AND RRRMECHi 

IF P THEN SP0UTER(KEY»Pi>E:UDCIHlX[L0CAT0UEtS],[3l53]»35)i 

iNp ; 



04383200 T 
04 38 3400 T 

043 83 600 . T 



0163U 
0l65«l 
Ol66«? 



20 

21 



23 



26 



28 
29 



30 

3U 

MJ 

33 

M 

3S 

16 

37 "^ 



38 



«0 
41 
42 

♦a" 



•5 

»7 
«8 



«9 
50 



54 



55 I 

56 ;; 



UNlTEU3,X5ii03 
GO TO KIiLt.1 



i* 2; 



D17J 
IF 



E*[46in 

BEGIN 



THEN 



% I/O MEMORY PARITY 



FJ»2? X I/O MtM PARITY 
J»2« MAKEMESS ; 

SPOUTE«CK£Y>PS£U00MlxtL0CATQUEtS].C3i53 3^35); 



makemlogcif 

PC P 1537) I » 
GO TO Six; 



TYPe=2 
ACCEPT 



THEN 10 ELSE 

EOF/EOT/EQP 



5) 



022J 



ENOJ 
IF E»C4lin AND TYPE NEO 2 ThEN 
BEGIN % UH13 FOR TAPE s BACKWORD DRIVE 



X I/O INVALID AOORESS 



Fi*4; 

GO TO 

end; 



X I/Q 

L2/ 



lisVALlO ADDRESS 



eO TO WtTYPESJ 



0l9t E l» 1023; GO TO 017, 
SP0» _„^^_ 



IF 
GO 



E,C43I13 
TO D19; 



THEN GO TO Hi % ERRQR BUTTON 



PRINTER* 

IF E.[42il3 
BEGIN 



THEN X END OF PAGE 



IF IOOUEU3#C27t63»0 THEN GO FlX; X NOT SPACING 

COMMENT ia**ORt EQP IF NO SPACE 0« SKIP; 

I00UEISr»CtBUi»3 »« »4000U % INHIBIT DATA xFERf SKIP TO CHANNEL 



XL 



GO TO clear; 
end; 
e;[43:i3 then 



iiiiPiiiiiiiiiiWiiii' 



04383800 
04365400 
4J89600 



0l66»2 
016910 
0l &9»? 



04185800 
04386000 
04 3 66?0Q 



D4386400 
04366600 
04166800 



04387000 
04 38? 2 OD 
04387400 



0l69«2 
0l69«2 
01 70M 
017013 
&l7ll2 



Ol73»3 
0l78«C 
178*1 



04387600 
04 3876.00 
04 36600)3 



0'l78l3 
Ol76»3 
0l80«g 



04388200 
04366400 
04388600 



04368600 
04389000 
OA389»00 



Ol8l«0 
018113 

01 eg 11 



04389400 
04369600 
043 fl9fl,00 



0l82«l 
0l82»t 
018813 



0l88«3 
0190«0 
0^9010 



04390000 
O439O2OO 
04390400 



0l90t0 
019112 
0192>0 



04390600 
04390600 
04391000 



04391200 
0439U0O 
04391400 



0l92»0 
0192»0 
01 92 « 3 



04391800 
04 392000 
04 3i|ggjg9 



019311 
0195*1 
0195*1 



'riff; 



0197 «1 
0199»0 

., o , m».o , 






-^ 



SPOUTER(KEY,PSEUDaMIXtLOCATQUECS3.[3j53 3#35); 



04393000 T 0202«0 



• • 



n 

2 
3 

4 
5 
6 
7 



IF EfC45«l] 
MAKF.m.QGtir 



THEN GO TO NOTHEAOYMESS J 
TYP F = ^ TH ^N 1 LUfiE 5) ; 



X PRINTER NUT READY 



PCO)l * CLEAR ERROR f'lEiO 
TlNUtu3,Cl8U23 «» P£OUP) . C 181 123 + i; 
60 TO SIXJ [ 



0/»393200 T 
Qaa93a00 T 



Oa393«00 T 
04393800 T 
Ofl3QOQQQ T 



020213 

QgoaU 



0208(0 
020611 
QgllM 



end; 
so TO Di9; * Parity 



0435^200 T 
0A39«400 T 
Q^394fiOQ T 



021211 
0212 «1 

o.2i?.n 



■■'-■■■ /WiimmMm^ 



tilN » READ CHECK 



04394800 T 
04395000 T 
Q43 9 g ?0 Q T 



0212(3 
021213 
02 U>? 



10 

11 

12 
13 

14 j 

15 i 
16 
17 
18 
19 
20 
21 
22 
23 
24 

261; 

26 
27 
28 

29 
30 

31 S 

wf 

33 
34 
3S 

36 

37" 

38 

39 

40 

41 

42 

«3~ 

44 

45 

46 

47 

«8 

•9 

50 

SI 

52 

53 

54 

55 J 

58,;; 

P'i: 



TINU[U],[18U2J »s P(aUp),tl8J12]*li 
FIS32; % READ CHECK 



O43954OO T 
04395600 T 
04395fl00 T 



0214»0 
02U»2 
0218' 1 



.vMiiiiiifiis 



04196000 T 
04396200 T 
04396400 T 



oaaoto 

022110 

Qt2ni 



IF 



end; 

Ef [42»l] 
BEGIN 



THEN X EOF CARD REAOER-THEAT AS NOT READY 



04396600 T 0221 
04396800 J O221 

04397000 T 022 2 



UNITCU3,C5»8] » 
R.C25J83 »« 4; 
TRAnSaCTIQKCU] 



s 4; * ERROR FlEUOsNOT READY 
* RESUT.DESC.-NOT READY 
»:» TRANSACTIQNfUl^i; 



04397200 T 0223 
O43974OO T 022S 
4397600 T 0227 



GO TO start; 
end; 

COMMENT MUST BE Dig - USUALLY INVALID CHARACtQR; 



04397800 T 0229 
04398000 T 0229 

n^39fl?nn t 02^9 



STREAM 

BEG 

Hi- 



CA««0 

IN 

t» a; si »g 



B««IOQUECS] ); 



b; 1 »» Q i+Bi 



O43984OO T 0229 
04398600 T 0231 
04398800 T 0231 



IF SC a *14 THE 
2t40(DIs»DI+8; 
IF SC « ^14 THE 



N A S' Di; 

si»* Si+i; 

N JUMP OUT 2 To D; 



04399000 T 0232 
04399200 T 0232 
04399400 T 0g33 



Lt 



DI 
01 

A t 



IS DI"8j' 

t« a; 

s Di; 



SI Is Si»i; j; 



04 399600 t 0235 
04399800 T 0236 
04400000 T 0236 



END. 
IF CTl 
IF Tl 



la P) = THEN GO TO Dig* % NOT INVALID CHARACTER 
NeQ 1 THEN % NOT IN COLUMN I 



O44OO2OO T 0236 
04*00400 T 0236 
04400600 T 0238 



BEG 
STR 



IN 
EAM(a«*TiNuCU3#Ti>KEYI«KeY|«QETSPaCE(10*O*0)>2)* 

BEGIN 



04400800 t 0239 
04401000 T 0239 
O»40l20t T 0243 



OS IS LIT "» 

ds i» 3 chr; 

QS |g 16 LIT 



"; Sj :b lOC a; Si :» S1+5; 

" INV chr IN COL "; 



2 . Die ; , OS !« LIT '»*'^| 

ESS age 



04401400 T 0243 
04401600 T 0244 
04401800 T 0244 



±11 



DS «a 

ENDI 

)f X SPOUT 



04402000 T 0246 
04402200 T 0247 
04402400 T 0247 



GO 
END 
IS 9 



TO ntrdy; 

; 

40; 



04402600 T 0247 
04402800 T 0248 
Q4403Q00 T 0248 



F J* » 

GO TO 



3IQOOO1; 

leave; 



04403200 T 0249 
04403400 T 0249 
04403600 T 0252 



PUNCHI 

IF E.C43I1] 
BEGIN 



THEN 



04403800 T 0252 
04404000 T 0252 
04404200 T 0252 



% NEW PUNCH DOES NOT GO NOT-ReADY ON PUNCH CHECK 



04404400 T 02^3 
04404600 T 02S4 
04404800 T 0855 



04405000 T 0255«3 



h 



IF £.[45JlJ THtN GO TO NQTHEAOYMESS; 
WAK F :ML r,(5)i 



* NOT READY 



04405200 T 0255«3 
04^05ftQ0 T , 0257U 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 



TINUCu3.Cl?}U2JisP(DUP),Cl8U2 3*l; 

F«»oi X Zero ehror FHio V 
GO TO clear; " : : 



04405600 T 
04405800 T 



025910 
0262»2 
Q2 03 H 



GO 



end; 

TO 019; 



* PA(?ITY 



paperpunchi 

IF R.C27a] 
BEGIN 



THEN % EOR 



04406200 T 
04406400 T 
0a<tQ66QQ T 



04406000 T 
04407000 T 
04407?0Q T 



0263<3 
0263«3 
Q?64M 



026411 
0264(1 
Q26 5»0 



P(P40); 
GO TO Six; 
end; 



04407400 T 
04407600 T 
04^07600 T 



0265 tZ 
0265 J 3 
02^6M. 



Paper 1 



0440aoOO T 0266fl 
04408200 T 026613 
04406400 T 0fi66tl 



20 
21 



23 



26 
27 i 



IF 
IF 



R»t27:2] 

E,c44i n 

BEGIN 



NEQ THEN GO 
THEN X PARITY 



TO tOF; % BUT/EOT 



PtPzo^; 

GO TO Six; 

end; 



GO TO nocode; 



dataccm> 



04408600 
04408800 
O440 9 000 



04409200 
04409400 
04409600 
04409800 
04410000 
O441020Q 



P266»3 

0268 » 2 
0269 M 



0269»3 
0270«0 
g7Q»2 



0270*2 
027 HO 
q27l«0 



28 
29 
«) 

Jl5 
32* 
33 



IF<T3«.UEt43«43sn)sP21 
N0C0DE« 
ff »a 5; X I/Q ERROR 



THEN GO TO Li; 



GO TO L2; 

drum: % drum now HAiMDlED IN DISKURAuXERROR 



04410400 
04410600 
04 »1 08 00 



otrno 

027 313 
027311 



04411000 T 0274*2 
04411200 T 027510 
Q44Ua00 T QZIMSi. 



34 

35 
36 

37' 
38 



40 
41 
42 



46 
46 



•8 



49 
50 



B1; 
52 



56 'i 



OISKI % DISK NOW HANDLED IN DISKORAUXERROR 

00 UNTIL false; 



TAPEJ 

TRANSACTIONCU] J= TRANSACT lON tU 1 + i; 
IF E,C44;i3 THFN 



IF R,C2I13 THEN % MOD III DESCRIPTOR 

BEGIN % COULD BE MEM ,PAK,, BLANK TAPE>B0T#E0T 
TF R.tlH13 THEN GO TO 0l9; X MEMORY PARITY 



OPTIONJ*OPTION OR m; * MEANS M003I0S»»TRUE 
IF R,C24:n THEN % READING 

Bra IN 



IF R,tl3«n THEN R.t27Ji3l«i; % BOT* SET EOF 

IF «,ti4»i3 Then % eot 

IF <E AND g3673*0 THEN % PARITY 



IF R,C27t l3«0 

GO To fix; 



END 



THEN % NOT EOF 

» finish I/O 






BEGIN 

F«s9; X BLANK 

makeness; 



X BLANK TAPE 0N;„>»R1TE„ 



TAPE ON WRITE 



:i^ii«tti|itSEUOUMlxCWOcATOUEtS3,£^l53 3#35); 

iiiMiiililiii 



GO TG six; 



04411600 
04411800 
0441P0QQ 



04412200 
04412400 
04412600 



01^75 »0 

027510 
Q27 5U 



04412800 
04413000 
Q44t3?QQ 



0275«3 
02 75 « 3 
Q 277n 



04413400 
04413600 
04413800 



0278»2 
027913 
QgflQ»i 



0441400O 
04414200 
04414400 



0281»3 
0283»0 
Q2a3«3 



04414600 
04414800 
O44 15 00Q 



028411 
028711 
0268 »0 



04415200 
04415400 
04415600 



0289«3 
029H2 
0292 «Q 



04415800 
04416000 
044l6g00 



0292>0 
029210 
02»2*2 



O44164OO 
0441r660p 

ff44i6a oo 



029311 
02^3 » 3 
02 ?^ .. »2 . 



0296 1 
029613 



04417000 T 0299»1 



IF 



end; 



THEN R,L«^yil]ial ELSE GO Fix; % EOT. SET EnF BIT 






029913 
0299 t3 



EISE 



ENO; 
GO TO 0l9; 



in DESCRIPTOR 
% PARITY 



0(t4l7600 
044l?800 
0a4l8000 



030213 
0302*3 
0102*3 



IF R»[2'»»n THEN 
BEGIN 
IF E.[41»l3 THEN GO TQ 022/ it INVALID ADDRESS 



O44182OO T 
04418400 T 
04418600 T 



0302' 3 
30 3' 2 
0304»0 



IF R, [27113 THEN X EOT 
EOF* IF MaSK,E42«13 THEN % EOF OK 
BEGIN 



04418800 T 
04419000 T 
Q44 192Q Q T 



030S*2 
0306*1 

03 07*2 



9 
10 
til 
12 

13 

W< 
15 
" 16 
,7( 
18 
19 
20 I 
21 
22 
23( 
24 
2S 
26 i 
27 
28 
29 I 
30 
31 

32 ( 
33 
34 
36 I 
36 
37 
38 { 
39 
40 
41 < 
42 
43 
44 
4S 
46 
47 
48 
49 
50< 
51 
52 
53 < 
54 
55 
56< 
57 



ID 

11 
12 

13 1 
14 ■! 

ISf 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

Mi; 

27t; 

za 

29 

30 

31 1 

32 Jr 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 T 

«4 
45 
46 
47 
•8 
49 
50 
51 
52 
S3 
54 

56 :; 



REALECF* F««1&(IF R.[24!l] THEN P3l E^Se 0)CCTF]; 

T.[5»0] »a l!»40; 

60 tu fix; ■ 



O44194OO T 
04419600 T 
0441 960 T 



0308*0 
03U»1 
03t3'0 






04420000 T 
04420200 T 
Oa49Q4QQ T 



03(3*2 
0113* 2 
Q313t? 



PCS' 40); 

GO TO Six; 

E NPf 



04420600 T 
04420800 T 
044 2100 T 



0314*0 
0314*1 
Q314I 3 



Taperetryi 

makemlog(«»tapebuffersize); 

Tf (Tt»TAPFPARlTYRFTRYfR>U.KFY3),[S»fi]iH3g ^^0 



04421200 T 
04421400 T 
04421600 T 



0314*3 
031413 
Q317tn 



LOCATQUECS3.C3*53 NEQ THEN GQ TO REALEOF; 

PCT.CSJBJ); 

GO TO SIX; . . 



04421800 T 
04422000 T 
04422200 T 



0319*3 
0322*1 
32 3*0 



end; 
if e. [41*13 then * write ring 

IF . £ tU3*l 3 THEN Ji PARITY^^WRlTJ i RI NQ 



04422400 T 
04A22600 T 
Q4422RQQ T 



0323*2 
0323*2 
0324* 1 



BEGIN 

F*«6; % WRITE lOCK 

r. Q TO Uf .. 



04423000 T 
04423200 T 
Q442 34 QQ T 



0325*2 
032610 
032^*3 



ENO 
ELSE GO TO 022' * INVAtID ADDRESS 
IF E«[43»n THEN Go TO TAPERETRV; % PARITY. WRITE RING ONLY 



04423600 T 
04423800 T 
04424000 T 



0327*1 
0327*1 
0327*1 



P(«40); 
Six; 

T «s T&PCXCH)[5»40ta3; 



04*24200 T 
04424400 T 
04424600 T 



0328*3 
0329*0 
03 29*0 



F »* 1; 

■■F'IXT' ■ '^ ■ ■ 
'■■■•■■■£.'■" .•*»■!, C5'*&3'-xri:: 



04424800 T 
04425000 T 
04425200 t 



0330*3 
0331*2 
0331 *2 



FlK «= s; 

IDd Js I0QUE[53; 

Seven: 



04425400 T 
04425600 T 
04425600 T 



033311 
0334*0 
0335*0 



RETURNlOSPACECS); 

T, [FF ] t «S < «UOC ATtlUE[S 3, [FF 3 J 



04426000 T 
04426200 T 
04426600 T 



0335*0 
0338*1 
0338*1 



IF F » 93100001 THEN 

IF S NEQ ?77777 THEN GD TO SEvEn; 
S»aFIN; ^^^^ 



04426800 T 
04427000 T 
0442^200 T 



0341*0 
0341* 3 

0343*2 



IF FALSE THEN 
UEAVEl 

ICD_»* I0QUEtS3; 



FIN «* FINAUQUECSJ AND NOT MEWQRy; 
IF I00,t24»13 THEN 
BEGIN 



04427400 T 
04427600 T 
04427800 T 



0344*1 

0344*2 
034510 






04428000 T 
O44282OO T 
O44284OO T 



04-<H»f00mi 
04 429 200 T 



0346*0 

0347*3 
0348*2 



0349*0 

mmmmi 

354*0 

354*0 



TPTTfiCTFll^^ 



# • 



2 
3 
4 
5 
6 



PCR&EC25J4018J&IUDC3J3J5 J 
ELSE 



OR IOMaSK*lOCA1QuE[S]*«-) 



0^^n^9^oo j 
Qa<t?y600 T 



0355*1 

3^ 9» 1 



BEGIN 
IF E NEQ 
BEGIN 



THEN 



0443^9800 T 

04 43<J000 T 
0fla309QQ T 



035911 
0362*0 



PC .T1*H8L)> 

Tl «= TUE[25I40:8]; 

.END 



04430400 T 
O443O6OO T 

Q4^3Q8Q0 T 



0363*1 
0364*0 
0365*:^ 



10 
11 
12 



ELSE P(. TIMOR); 

LOCN *« EMCLaCATQuECSjn; 

lOD »- iaD«C33M5}J 



04431000 T 0365*3 
O443I2OO T 0366*3 
04431400 T 0368*1 



WHILE L0CN[0].t33!15] NEQ IGD 00 LOCN 
LOCNX0 3 J- P(.Tl,LUD); 

EN p; 



*s 1 iNx lucn; 



O443I6OO T 

04431800 T 
044 3200 T 



369*2 

373«O 

..0 3y4...».O 



16 
17 



UJ*lTtU3 

Clear* 

UNTTtU] 



»« T; 

*s (*g(0uP))&FC5l20*l33; 



04432200 
04432400 
Q4432/iQQ 



03?4»0 
0375* I 
037«i*1 



startio(U); 
killl: 

LOrATQUEfS] 



[ nMJ»=Q^ 



4432600 
O44330OO 
04433200 



0377*3 
3/8*2 
378*2 



19 

20 
21 



KILLER* 

KILLCCMSCW]); 

FNpi 



O44334OO T 
04433600 T 
Qzta-^3ftQn T 



0381*0 
0381*0 
0381*3 



22 
23 
24 



$ 5ET UMIT = NOT DEBUGGING 
RFAL PRQCFOilRE TAPEP AR I T YRl T R Y ( R^ U> KEY ) ; ili 



SIZE* 0382 
O4544999 T 0000*0 

/ |5 <|6 0Q0 T OQQOtQ 



wORDi 



25 
26;, 

27 V 
28 
29 
30 






STarT of REL SE,,MENTJ disk address » 00062 

04549000 T 0000 «0 „ 
, L 04'i5Q0On. T 0000*0 ^ 



Bf:GlN REAL Tl#T2*T3; INTEGER 1= TU* 

REAL rt£.SULT* IOD'O lOD* SP ACEM aSK, SP aCE IUq*M/ ivi* W^MOpE' * 
REAL Jt^n 



REAL j*k;% 

REAL erasEioo^spacemask;* 
REAL z>y»mix»bsue; 

LABEL XlO^GiVELPj 



04551000 T 0000:0 
O4552OOC T 0000*0 

Q4')'^:^oQr T ooon'n 



31 ; 

32 f 
33 



0455400C T 
04554100 T 
O45542OO T 



0000*0 
0000*0 
0000*0 



34 
35 
36 
37" 

38 



LABEL RPj-LX^ 

REAL oU£* ra»Li.*iiT; 

WEAL PTa*bUFFEH*BLFF£R5IZE.>% 



r'ArTERN^PATT£''^M#PATTERN2»PATTEr<iM'i^0RDii DON"T CHA,nGE iQRDER 
BOOLEAN TE5TlNQ*SPACINGi* 
LABEL XXIT^EXUJX 



O45543OO T 
O45545OC T 
0455460C T 



0000*0 

0000*0 
0000*0 



0455470C T 0000*0 
04554800 T 0000*0 
04555000 T 0000*0 



39 



40 
41 
42 



SUBROUTINE 
BEGINS 

IF PTR-KEY 



hecokuretry;* 
= tapebuffersue-l then* 



04555050 T 
04555100 T 
04555150 T 



0000*0 
0001*0 

ooono 



«s 

46 
«7 
•8 



BEGIN* 

TA** GETSPACECTAPEBuFFEfiiJUE*9*0)*2;« 
M0VE(l0»K£Y#T4}j» 



04555200 T 
04555250 T 
04555300 T 



0002*3 
0003*1 
0005*2 



MEM0RY[K£Y+83»« 
MeMQRY[KEY+9J*» 
LINKUP(3*KEY );> 



TAPEBUFFERSIZE' 
1023;X 



io;x 



04555350 T 
O45554OO T 
04555450 T 



0007*0 
0009*2 
0011*2 



»9 
50 



■••■ ■ Kft i*.:'mmmm:mmm''*^i% 



O45555OO T 
04555550 T 
04555600 T 



0012*2 
a014*2 
0014*2 



a 

54 



^£-„QPY[-prf,,^pT^^^j j,^ RESULT & RDCTABLECUU19»lJ2]i» 
END RECORDRETRYi* 
SUBROUTINE DOlONOWii 



04555650 T 0017*0 
04555700 T 0020*3 
04556000 T 0021*0 










_ .BKpflt'M^llSliil-£S-' 

ILE T4>CL0CK+P(RTR) DO SLEEP (l/l)i 



04556100 
04557000 

ml 



0081*0 



04557200 T 0023*1 



• • 



T4«.CL0CK + P(RTH) + 4; 



SMI. 



If lOfiUESLOTSsO THtN SLEEPC C IOQUEStOTS3*63); 
Z0«yESU0TSt«l00UE5U0TS-i; 
■lDtuEAVAlL»»IDQUECrn»IQQuEA\/AIL3; 



O45573OO 



0027«0 
Q02flt3 



04558000 
04558500 
045Sqonn 



0028^3 
003112 
O 03gt3 



IOQUE[Tl]> lODn 

lOC'ATauEni3«-LOCATauE[T2 ♦( T3«'UNI Tt U3 ) . US : 1 5 ] ] &[ REsOUT ]X 



04560000 T 
04561000 X 

Q456? n O Q T 



0034 «1 
0035»2 

Q0 3a<3 



UNITCUJ «• T3&TUl8»33M5]&64[5t35ll3];X 

STARTlQ(U>iX 

FTNALQUFfTn » MABSfTr.n^Jt Q T95iilQt8'i nR 



TQMA^Klit 



04563000 T 0040*0 
0456^000 T 004213 
04565nt?Q T QQ4 3»2 



10 
11 
12 



RESULT ^ on 

SlEEPC[UNIT[U3 3#P1QOOOOOOOOOO)J* 

IF, R£§MLT,jtlOfn THEN % NOT REAUY 



04566000 T 0046 « 2 
04567000 T 0047ll 
0'45670l0 T 0Q49<0 



13 i 

14 ; 

15 fi 






04567020 T 
04567o30 T 
04567040 T 



0049»3 
0050«1 
OOSltl 



16 
17 
18 



EHDi 

IF RESULT. C29:i] ANq RESULT, [gJl] THEN 
g F (i I N 



04567050 T 
04567i00 T 
0456 71 50 T 



0053«0 
0053»0 
0Q54» X 



IS 

20 



22 
23 
24 



2B 1 

26^; 

28 
29 



IF RESULT. M2» 13 THEN X BLANK 
IF 100, £24113 THEN % READ 
TRANSACT ION CU3»TRANSACT ION CU 3 



TAPE 

l&I00Cllg2tt3 ELSE 



04567200 
04567250 
04567^00 



0055<1 
0056«0 
QQ57» 



begin; * WRITE 

STREAM(A*TlNU[U3*T«-T2*-GETSPACE(3*o*0) + 2); 
BEGIN Sl»LOr a; Si«.si^5; dS«.3 chr; 



04567310 T 
0^5^7320 T 
04567400 T 



i. 



0059«l 
0061 tl 
0064»P 



DS«-2l 
END/ 
SPDuTtT2Ji 



LIT" BLANK TAPE ON WRITE*"; 



04567500 
04567550 
04 567 6 Q 



006511 
0068* 1 
O Q^ flt ? 



30 



GO TO xxit;x 
end; 

IF RESULT.CllUJ THEN 



MEM PARITY 



04567700 T 
04567750 T 
O4 5 67770 T 



0069«1 

0069«3 
O 69».l 



31 i- 

32 • 
33 



begin; 

STR£AMCA«-TInUCU3*T*-T2«-G£TSPaCE( 3*0»0) + 2); 
BEGIN SI«-L0C Aj Sl«-Sl4-5i DS4.3 CHR; 



04567780 T 
04567790 T 
04567800 T 



0070 '.2 
007l»0 
0074*1 



34 

35 
36 

37' 



DS*-13 

end; 

SPOuTCTi:?; 



LIT" 1/0 MEM PAR*-"; 



04567810 T 
04567820 T 
04567830 j 



O075JO 
0G77'0 
0077'i. 



39 



XX IT! 



mode'.-j'S'^ 16; 

IF TESTING THEN GO XIO; 

recordret-hy; 



04567840 
04567845 
04567850 



0078*0 
00 78* 3 

00 r 91 3 



41 
t2 



45 
46 



18 
«9 
SO 
61 



52 
53 



SS 
56 



^nrTcTExTn 

£Nd; 

IF Rfc.SLLr,[l3*23>0 THEN Y«.18; 



— ENi^.ELS£,.Gm''TO XlQf 

end;x 

.RESULT, i:.g7.i.l.:3>i;.-'MQDE:»'32; 



04567855 
04567860 
04567870 



008i:o 
0081 J 2 
008l»2 



XlDJ IF NOT SPACING ThE'^ H ECOR D" ETR y; 
FND DOiaNUw;% 
SlBROUTlNE SPaCEBACk; 



04567900 
04568000 
04568100 



04568200 
04568;?50 
O45683OO 



0084*0 
0084*0 
0086»1 



0088 « 3 
0091*0 
009H1 



BEGIN 



IF TRANSACTlONCU3=l 
BEGIN 



THEN 



I00!=fe»42 0C000000&0l0DC3J3:53; 

DoioNow; 



04568310 
04568320 
04568330 



0092*0 
0092*0 
0093*0 



02258000 



ACCIDENTAL ENTRY AT KTR 



RRRM£CMI»RRRM£CH 0« U % MASK OUT STATUS WHILE 

T2*«»€tOCK*PCRTl^y'*600i X wE WAIT FOR REwlNO, 

COHtPLIXSLECPCtPcRRH? ANQ I)KO QR T2<CL0CK->P(RTR ) ); 



04568340 
04568350 
O456836O 



0093«2 
0095* 1 
0096*0 



o-A5mm» 




009711 



54 
55 

56 I 
57 



h 



16 

17 



22 



24 

2S 



27 
28 
29 
30 



31 
32 
33 

34 
35 
36 
37" 



39 



42 
43 
44 
4S 



•7 



49 
50 



52 



56 

56 .■■,, 



RRRMECHjsRRRMECH AND NOT H 
IF (P(KRR) AND I)=0 THLN 



BEGIN M0DE»»«16; 

go to exit) 

end; 



% TIME OUT s> NOT READY 



END EUSE 
BEGIN 

M;aw; 



lODlsSPACEIOO; 
SPACIMGI» TRIJf;! 



00 BEGIN 

OQlONQw; 
TRANSACTlQNruJl»f*PfnUP))4i; 



END UNTa C(M|«RESWi.T,£CF3*SPACElOO,CCFl+M) LS5 
0» RESULT. C27ti3i j^nd J GTR i; 

IF NOT TESTING THEN SPACINGja FALSE; 

TrAnSACTI0N[U]«»(*P(0UP))-2; 

IODl«SPAC£lOD<iO[22Uy:n; 



DOJONOw;' 

IF N*0 THEN 8Sl2E»*ftESULT.tCF3«tOD»tCF3 
IF BSlZ£J<R£SULT.Ccr3'»lOD.tCF3 THEN 



ELSE 



BEGIN 



STReAMcA:sTINU[U3/D'»T2«-GETSPAceCIO^0#O}+2>; 
BEGIN SUsLQC A;SI{;;SI*5;DSI«3 ChR; 



Dsisja 
end; 

SP0UTCT2); 



LIT" ERASE 



ERROR*"; 



ENDj 



gu giveup; 



end; 



end; X OF spaceback 

TlNUcu3.tie»l23 * P(DUP),[l8Jl2J+i;X 

OIOO » NrLAGClOQUECUNlTLU].[l8«l53]3;x 

PTR's key+9; 

IF R.[24:i3 THEN* 

BEGIN COMMENT READ RETRY/S; 



SPACEMaSk ♦ OICD,C21»23xPun EOV NOT 90%23i% 
SPACEIQO *■ 0I0U&1[8»38> 103&U23U7»13;X 
FOR M «• 1 STEP i UNTIL i DO* 



BEGIN SPACEIOD «• SPACEl 0D&SPACEMASKC21 U6 j2 ] ; * 

FUR N 4- 1 STEP I UNTIL 5 DOX 
BEGIN lOD » SPACEI0D;X 



IF N^l OR M^l THEN OOIONOW 

IF NCT(R,t29IUAN0 R,C2»13 
THEN DOlONQW; 



ELSE 

ANO R.C12;l]} 



IF RESUlT,C28»U THENX 
BEGIN MODE *■ Oi% 

lOD » oiod;x 



ENDS 
EUSE BEGIN MODE 
100 * 



end;x 

doiunom;x 

IF NOT RESULT.C26U3 



♦ 8;x 

0I0D&SPACEMASKt2lU3i2 3;K 



Then go to fxtT jx 



&OIOD[ 1»22U3)C33«33!15]; 



ifSiooaiGS Then if oioofCasm then 

SffiN Z*X0D*OI0045PACEMA5K[2iM0I23 

l(QIQD.C33ll5J4CQI0D.tei 10 3*11 



04568368 
0^568370 



04S68372 
0(0568 37 4 
OflSiSfit7A 



0107«3 



04568380 
04368390 
O4 5ft8 a Q0 



01 lot 2 
011210 
011^ t» 



0U4»0 
OlH»0 
1 H « 2 



04568410 
045681120 



04568430 
04568440 
0456945Q 



0tl5«l 
0U6«0 
Q|t6f3 



04568460 
04S66«70 
04568480 



0117«2 
011712 
QU9«Q 



T 
T 
1. 



Ol2ilO 
012211 
0125*0 



04568485 
04568490 
04566'-.00 



04568510 

04568520 
04568530 



0l28«0 
0J29«3 



Ol33»2 
013510 
i 36« 2 



04568540 
04568550 
45685 6 



04568570 
04568380 
04568S9Q 



0l4lti 

0l4l«3 
Ol 4 5» Q 



04568600 
04568610 
04568620 



0l45«3 
0l47«3 
014810 



04566630 
04569000 
O457O0OO 



0148«3 
0149M 

01491] 



O457O1OO 
04571000 
04572Q00 



OH^f 1 
014912 
016111 



04573000 
04574000 
04575000 



0l63«2 
0l64t3 
0165»? 



04576000 
04577000 
04578000 



0l66»0 
0l68*2 
0l7l>i 



04579000 
04579100 
04579300 



0172»0 
1 7 3 « 3 
0l75>0 



0l75«3 
017910 



04580000 
04581000 
04582000 



04583000 
04584000 
0456500 Q 



0184«0 
O184I3 
0l86»0 



04586000 
04587000 
4588000 



oiedta 

0I86I3 



09586010 
04586020 
04586030 



018913 
0l89«3 

l9l» Q 



oi9aii 

0i^4tt 



04588040 T O197I3 



n^ 



8 I 

9 

10 



• • 



10 



12 



13 ^ 



IB 



20 



21 



23 



24 
2S 



27 
28 



29 

» 



31 



34 
35 



36 

37* 



38 
39 



40 



42 
43' 



M 
45 
46 
«7 
«8 



49 
JO 



53 



SS 
56 



DOIONOW; MUOE*0; 

IF RESULT, [2 9*13 THLN 



BEGIN lOOoOIQO; OOIONOWJ 

IF NOT RESULT, C28» 13 ThEN 
60 TO EXITJ 



04588050 



iaD«.Z&SPACEMA5KC2H46t23; 

DQIONOW; MODE^e; 

IF RES(jLTf [2s» n THEN 



0*586070 
04586080 
O/ t5 88 Qy0 



0200*2 
0SQ?»3 



RPI 



BEGIN 10D*01004SPACEMASK 
C21U3I2]; 

DOlQNOWi 

RESULT,C28tn THEN 



0#588i0q 
04588U0 
QqSflBlZO 



0203*2 
020610 



IF 
GO 



04588130 
04588140 



liwr 



GO 



TO Lx; 



04568160 
04588170 
04588^80 



T 

T 

JL 



02071 1 
0209 »0 
0.210 '3 



02H«2 
021211 



end; 



■|%iftiiiilif;33.MS2.*ftl tUtl ,1 331 ll.j-) J' 



IF lOD,[2n23«0 THEN 

2«-Z-(RESULT,Cl5l3]soJ' 
TF I0D.CS»103<Z THFN 

BEGIN IQ0«-0I00; mQDE*0; go TO RP EnO^ 
IF l00,C22in THEN 
STREAMf2*Y»Z DTV 64> 



04i88l90 
04588200 
045a8pl0 



T 

T 

JL 



4588220 
045 88230 
045a8?4G 



0215»0 
021513 
216* 2 

oairto 

0217*0 

ogty«o 



S«.RESULT,t33«l5Ul* 
Sk*(RESULT,C15J3] + U,C45»3 3, 
GM«.(IF I0D.C2lt l3 THEN 



04588250 
04588260 
04588370 



0219*2 
0220*3 
0223'a. 



D«'OIOD»t33»l53); 
BEGIN SI»SJ Sl»Si^SKj 



ELSE «♦•'>» 



04588280 
04188290 
04588^00 



T 
T 



Y( 16(05*32 CHR)); 

Z(ds«-8 chR;; 



04588310 
04588320 
04588330 



022413 
0227*1 

228*0 
0229*3 
023i«0 

0232'3 



■■CNO...:£.Li^: 






STREAMCZ,Y«.2 QIV 64* 

S<-RESULT.[33«l53-l* 
SK»(RESULT.C15»33»7).[45*33f 



045883'*0 
04588350 
04g 66360 
04588370 
04568380 
04588^90 



0233 
0235 
0236 



FL*CIF I0DiC2lllJ THEN 

ELSE «>U)» 
FK*(8*REJyLT . C 15 * 33 ) . C45 I 3 3 , 



O45884OO 
04586410 
04588420 



D«-Ol00.t33*l5]); 

BEGIN si<-s; si«-si + sk; Dl«-Dl + 7; 

Y(16C32CDS»CHRJ SI«-Sl*2J 



04588430 
04588440 
0456845Q 



T 
T 
T 



0236 

0238 
0239 
0240 
0241 
241 



0242 
0243 
0245 



0I*DI-2)J)J 
Z(8C0S*CHR; Sl*Sl-2i 0l«-0I*2))i 
SI*LQC Fl; Sl«-Sl»7j 



fkcds*chr; susi-i; dudi-2); 

end; 

lOD»el40000005&OiOO[22;22*l] 



LXI 



ENQJ 



oqionow; go 



&OiODC3«3»53; 

TO Exit; 



04588460 

04588470 
04588480 
04586490 
04588500 

04566510 

04588520 

04588530 
04586540 



0246 
0247 
0249 



0250 
0251 

252 



N 



ENDiX 

IF TRANSACTIONCU] < 15 THEN* 
TRANSACTIONCU] ELSE I5j» 



04568550 
04588560 
04568570 



lii 

iiiiiiiii 
liiiili 



04589000 
O459O0OO 
04591000 



0254 
0255 
0287 
0257 
0259 
0259 
0260 
0262 
0265 



m 
,.„.. .„ iiilaiiiiiiii«iiwi 

BrGlN"QOIQNCiWjl ^ 



04592000 
04592100 
04593000 

b4594000 



0265 
0267 
0268 



T 
T 
T 



0270 
0272 

0273 

0-27 4 



_!? 



# • 



>r 



INJU*. 



IF HtSuLT. [27113 THEN H*Qn 



100 ♦ $PAC£I004S|»ACEMASKC21I37«23IX 

FOR N ♦ I STEP I UNT 14 W 00 OOlONOWn 

loa ^ qiod;« ^ „__ 



MODE *■ o;x 
spacing:* false; 

DOlONOt^;x 



04595000 



0275«0 
0277«0 



04S97000 
04998000 
0a599Q00 



0279*1 
028110 

oaesii 



04600000 
04600i00 

Q/j^ oinoo 



0286«0 
028613 

Qg 97«? 



16 
17 
18 



19 
20 



23 
24 

25 



27 
28 
29 
30 



34 

35 
36 

37" 

38 

39 

40 
41 
42 
43 



47 
«8 



49 

SO 



52 



MODE 



IF 
EN0;X 
* 16n 



NOT RESUL.T»[28«13 THEN 60 TO EXITiX 



END ELSE BEGIN COMMENT WRJTE REtKY;» 
LIMIT«-P100000i 
MlXtaLQCATQUEEUNnCU3«CFF]3«C3l53; 



ERaSeIOO ♦ CSPACEIOO * 0100«0Cei38U0347C22U5l33&CT23X 

C33l33«i53}&»U2U8Mn73n 
W » R#C33U53'*0|00.C33U53*2IX 



WHILE T9UE 
BEGIN 



00 



SPACEBrtCK/ 



IF CN«»N*H+128) 6TR LIMIT OR 

CMIXxO AND TeRMlX,tCF3»MIX) THEN GO GlVEUPj 
lOQ * ERASEIQD&Nr9l39l93J» . 



SPACINGJ- TRUt;X 
FOR J «■ STEP 5l2 UNTIL N 
B EGIN THAnSaCTTONLUJ ' 



00% 

■ . T RANSACT lO N[ U 3"i;% 



JUL 



ooioNO^;x 

lOO <" ERASEl00&U8t47ll3;X 
RFStlLT«r27i;3 THFN 



BEGIN 



IF NOT Rft27«13 
R ,t27« l 3» l J 



THEN LIMIT*-J + 3000; 



end; 

eno;x 

SPACING}^ false;* 



IQ0J« 100 & NtCTC3;X 
RtC0RDR£TRY;X 

lOD ♦ oiqd;x 



D0lQNQw;3t 

IF RESULT, l27Ji3 THEN R. [27113 

IF NOT RESULT. [2at 13 THENX 



JiX 



btGIN 



SiZE*RESULT 
spaceback; 



[CF3-OlUD,[CF3; 



I00«-SPAC£I0D&0C22I47I13; 

DOIONOW; 

IF N0T(R£SULTfC2e«U OR COlOD.t2Un 



ANO 



BEGIN 



C RESULT. CCF3'SP ACE lOO.[CFiXSlZE))) ThEN 

I 

M00E*0&RC42»27»13; _____„^„_____ 



ENOI 



GO TO exit; 



:f,mi 



GiVEUpJ 



end;x 

T2 ♦ GETSPACE(3#0/0)+2J* 






end;x 



04602000 
04603000 
04604000 



028910 
02901 1 
2? 2«2 



04605000 
O46O55OO 
0^605600 



046060QO 
04607000 

046oaooo 



0293 «1 
0293' 3 
02?^«2 



aji97io 

0299 t 2 

oaotta 



04609000 
04610000 

o^>6 i io no 



0304J2 
305M 
0305M 



04627000 
04627100 

04628000 



0306*0 
0308»1 

03U«2 



O46281OO 
04629000 
04630000 



0313«1 
0314»0 
Q316«0 



046 31 000 
O46320OO 
04633000 



031810 
Oil9lO 
0320*3 



04633100 
04633200 



0321*2 
0322*0 



04633400 
04634000 
04634^00 



0326 » 2 
0326*2 
32 8 *3 



04634200 
O46343OO 
04635Q00 



0329*2 
0330*3 
0332*0 



04636000 
04637000 
04638000 



0332*3 
0334*0 
0337*0 



04638i00 
O46382OO 
04636300 



0338*0 
0338*2 
340*3 



04638650 
04638700 
0463fla0& 



0342*0 
0343*3 
034H0 



O46389OO 
04639000 
04639^00 



04639200 
04640000 
04641000 



346*2 

0349*2 
0350*0 



04642000 
04642900 
04643000 

■04-644-ili* 
'O4;64..S0:i»==: 
0.#6#6:|ii 



0351*3 
0354*0 
035410 



mi 



0354*0 
0354*2 
0354*2 

0356*3 
0358*0 

o ?>e*3 



04647000 T 0360*2 



9 
10 
111 
12 

13 
14 ( 



• • 



10 

12 
13 t 

I -! 

IB ; 
16 

18 

19 ~ 
k 20 
21 
22 

24 

28 
) 29 

90 

31/^ 

33 
34 

36 

) 38 

39 

40 
I 41 

42 

43'^ 
I 44 

45 

•6 

47 

18 

•9 

SO 

51 

S2 

54 

55 
56 



SP0UT(T2);x 

...H.ga..e;,....*- i..».f.i,.. 






MEMORY [KEV*9]»»ABS(MQ0£); 
MEMORY[K|Y] »= PCOUP^LOO) * ( (PTR-KEY ) QIV 5)c39»39j9]; 
IF (MQDEXI63 OR (R.[2^U]) THFN LINKUPf 3,KEY ) ELSe 



seaiN 

BurFERtu 0100 INX o; 
RllFFERSTZriB nTnO.fannli 

IF NOT oiaD.tain] 

BEGIN 

§T..R.fAH.(,.irf,.Q.>. 



THEN % ALPHA WRITE - CHECK Q-mARKS 






BEGIN 

shsbuffend; 

DIlgBuFFENP; 



Sn»eUFF5TART; 
IF SC > 9 THEN 
BFGIN 



Di»«LOC temp; dsi* 

DStsLlT"""; DI»»DT' 



chr; 

1; DSlgRESETJ 



*Q^LMARK 



Lit SIJb5I+1; 

end; 

t2» ST»«SI'^i; 



IF SC>9 THEN GO Ll; 
IF SC<9 THEN fin I.?; 



svsjissi; 

SjiaLOC i»vSli bii8Si*5; 
DTlaLnC flUFFEMni nTfDT-^>^l 



IF 3 3C^0C THEN TALLY5»i; 
On-BUFFENO; Slj»LQC temp; DSli 
T»*TALIY.; ^__ 



chr; 



end; 
I»»polish; 

MrMClRYtKEYt31i» 



end; 
if stoptest 

BEGTN 



P(DiJp>LQD) & lElitt7tn{ 



THEN LlNKUPC3#KEY) ELSE. 



MEM0RYCKEY3 » 
LINKUP{3#KEY); 

testingi^ SPACINGIb 

buffersuej* buffersIze-i; 

0I00«= OIOD & 1[18«42«63; 

PTRjs KEl+a; 



• nabS(P(oop*loD)); 



true; n»«o; 



STREAM (MM02IUS I sN0UM0D3iaS» 62)# D*" C^ ATTeRNJ ?; 
BEGIN 
J3SU13 LIT"0l248-»x»<(.6S"; 



M0D2l0S(DI»=DI-6; 
DS«» LIT"""; DSi* 
DS»«3 LIT"3S(«*; 



OS'sLIT"""; 
LIT' 



• ft « 11 • 



DI»«DI*5); 



End; 

SLEEPCUEMURTc KEY] 3**1000000000000000); 
MEMQRYtgtR]** 01 HOVE< )9l #PTR#PTR-»l >; 

FOR Ki=o sTEt* 1 Until 



1 UNTIL 15 
BEGIN 

STREAM(A»»CPATtERN3» 



DO 



BEGIN 



KI«K*(K»15J, Ml»4*4x(K<H)# NI«X*CK>13), 
SI2EDIV64l«BUFFeRSriE,C36«6]# BUFFERS IZE» 



04646000 
04649000 



O4650QO0 
04651000 



0360«3 
Q36.1«? 



0465U00 
O465I2OO 
04651300 



0id2li 
036211 
Q365«0 



0465X400 
04651500 
04651600 



36810 
0370ri 
0374»0 



04651700 
04 651800 
04651900 



0377»J 
037713 
O379IO 



04632000 
04652100 
04652^00 



380«1 
038111 
0381«3 



04652300 
04652400 

Q46'i?50Q 



033211 
0383)0 
0383lt 



04652600 
04652700 
Q46'i?aQ0 



0384 1 1 
0384»1 

Q3e5»XL 



04652900 
04653000 
04653x00 



0386»1 
0386*2 
0lB7»n 



04653200 
&46S3300 
04651400 



0387 10 
0386 10 

Q3Bfl»n-, 



04 653500 
04653600 
04653700 



0389»0 
0389*1 
03fl9t3 



04653600 
04653900 
04684000 



0390«l 
039110 
39 , 1 M 



04654100 
04654200 

00654100 



039210 
0392*1 
039at3 



04654400 
046B«S00 
04654600 



396»0 
0396*0 

0398*1 



O46547OO 
04654800 
04654900 



0398*3 

0400*3 
0401*3 



04655000 
046S5100 
04655200 



0403*3 
0405*0 
0406*3 



04655300 
O46554OO 
04655S00 



04655600 
04655700 
04655600 



"UffpO" 
0410*1 
0410*1 
^412*1 
0414*0 
0415*0 



04655900 

04656000 
04656100 



0415*3 
0416*0 
O4I8JO 



O46562OO 
O46563OO 

64656500 



0421*2 

0424*0 
0424*0 



0424*2 
0428*3 
042 9*3 



2 
3 

4 
s 
« 

7 
8 
9 

10 

11 I 

12 

13 

14 < 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 I 

27 

28 

29 i 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 f 

39 

40 

41 4 

42 

43 

44 % 

45 

46 

"I 

48 
49 
50 m 



T 0430*1 



51 

52 

53* 

54 

55 

5a< 

57 



w 



2 

3 
4 
5 
6 
7 
8 
9 

to 

11 
12 
13 
14 



15 
16 
17 
18 



19 
20 



21 

n 



23 
24 

26:': 
26 



27 
28 



29 



31 
32 
33 
34 
35 
36 



37 
38 
39 
40 
41 
42 
*3~ 



45 
46 
47 
•8 
49 
50 
51 
52 
53 
S4 

55.; 

56^ 

57 '■■>; 



sh=a; su»si+k; 
M(Ds»8N chr; sn^si-Njj 



SllBpUFFERJ 

SIZe01V64(oS»»32 W0S> 0SI«32 W0S>) 



OSl«BUFrERSlZE WdSI 



end; 

DQIONQW; 



OIOD & (CK<7) OR (K>13))C21»A7»1]; 



MEM0RYCPTR3s» result & R0CTABI.ECUU19I1I23; 
SPACEBACK i 
STRFAH($lZfcOlV64taftUFF£RSTZF.r36<63^HUrFirRSTZr^ 



BUFFER); 

BEGIN 

QSI.B LIT** ''f 9j»:»buffi;r; 



SlZEDlV6«(0St«32 WOS; 0SI*32 WDS); DSI»BUFFERSIZE WOS; 

end; 



DOiONOw; 

MEM0RY[PTR+1]|« RESULT & RDCTABLECU] C19 U ; 23 ; 
STRFAMCAlaCPATTFRi^] TNiX ^. 



CHRERRiBO* WROEHR|«0# WROCNT«*0* 

LOOPjaO* FORSEVENIsi, UEAPfROG»»0» 

WOSL£FT«»lt»(Jt»IF (SlZE>aABS(BtJFFFR"CWESULT IMX ))^ 



LEQ buffeRsize Then sjze else buffeRsize+u mqq 63» 

V«»IF J<64 THEN J ELSE 63* 

N»aIF J<64 Then 1 ELSE J DIV 63> 



RECYCLE'* IF 4<64 THEN euSe IF I»0 THEN ELSE 1* 

TEMPl«0* SVDH»0# 

BnLQCN<gPTR->3> WRDLQCN»spTR»S# ■ 



BUFFER); 

begin; 

LEAPFR0G»« Cl; tALLYI*Q; X USED ONLY FpR LEAPFROG REtUWN 
IF 8 SCXDC THEN 



N(V(5II8A; 
BEGIN ~ 

sh^whderr; 



si'gsi^e; wrderr<«si; 



forsevencsvuiicDi; oi:»bitlqcn; L0QP(0IJ=DI+2); 

siULOC wrdcnt; spssi+d; ds»s2 chr; 
oi<8|nrdlocn; LOOPcDHsPue); 



si»«svDi; sii»J*i-8^ Ds«» wos; 

TALLYl'-LOOP; TALLY«»TALLY + J; LOOPiaTALLY; 

5i<«LOC uoop; sijasi-t'?; 



IF SC""?" THEN 

BEGIN tally;»o; 

OltgSVDl); 



fqrsevenisstally; end; 



si»«a; on«?oi»8; tally'so; 

e<iF sG^oc then tally»»tally+i)* 

tempi»tally; 



Sll 

end; 
sij*wrocnt; 



chrerr; tempcsi j=si+8); chrerr»»si; 
sijssi+e; wrdcntissi; 



so; ^ 



GO 



tauly« 
jump out 

to frog; 



recycleutally; 

to TADPOueJ^ 



taopolei 

^ ■ '^llfefe 



^^mmMS^mwmmMi*5i ^M^^^i .chr,i 

SlIsLOC WrdeRR; SIJ«J>i*6; 0St»2 CHR; 



04656600 
0ii6S67QQ 



04656600 
046S6900 
04657000 



043011 
Q43l»0 



043213 
043310 



04657100 
04657200 

0465730Q 



04657400 

04057500 
0fl6«s7A0Q 



043512 
0435»3 
0439»2 



044}i0 
0443t3 
Qfl45»n 



04657700 
04657600 
046^)7900 



044611 
044613 
Q446»3 



0^^58000 

046$aioo 

04ftS8a00 



04 658 30 
04658400 
046^8500 



0448 »1 

0450(0 
O45OI1 



04658600 
04658700 
465 880 



045210 
0453* 
QqSMl 



04658900 
0/t659000 
0465 9100 



045711 
0458(0 
0458*3 



0465*200 
04659 300 
04 65g 4 6 



0460>0 

0464«3 
046710 



0469(3 
0474(0 

Q474|g 



O46595OO 
O46596OO 
0^659700 



0476(0 

0476(2 
047612 



046S9800 
O46599OO 
O466OOOO 



O466O1OO 
O466O2OO 
04660 300 



047710 
0478*3 
047613 



O466O4OO 
O466O5OO 
04660600 



0479«2 
048112 
0462(1 



O466O7OO 
04660800 

0<4 660900 



0483»2 
0484(1 
048512 



0486(0 
048612 
04e7«0 



04661000 
O466I1OO 
O466I2OO 



O466I3OO 
O466I4OO 
O466I5OO 



0487«2 
0468(1 
0489i2 



048913 
0491H 
0491tl 



04661600 
04661700 
04661800 



04661900 
04662000 
04662100 



049210 
0492*2 
049 3<g 



0494(2 
0495(0 
0495(3 



04:f«iiiii«#iiHii?; 



04662500 T 049712 



45 

46 

47 < 

48 

49 

50 { 

51 

52 

53 i 

54 

SB 

5«4 

57 



• • 



end; 

IF ^^LM0RY[PTR].[27^1] THEN SPACEBACK; 



04662600 



0498>1 
049 , 6 '? 



PTR»«PTR+12; 

end; 

MEMBRYCK£Y3<» PCDuP^LaO) 



& QL\t}tyl & 3gC:^9l39l03J 



04662600 
04662900 
04663000 



050210 
0S03tl 



4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 



MEMORVCKEY+aJss 
LINKUP(20,KEY); 

EN P/ENP ; 



P(DUPfLQU) & QPTI0Nt2J2ll]; 



04663100 T 050911 

04663200 T 051212 

, 046 63 3 00 T Q513«2 



END TAPePARITYaEtRYJ* 



04666000 T 0S13I2 

Size* o514 words 
q 67q qqqq t qqqq»q 



START Of REU 



VALUE s# a; 

R E AL 3» Af W ; 



sE^^MENTi Disk 

04701000 
04702000 



ADDRESS 
T 0000 
4! QXLOOl 



00080 



BEGIN iNiTEGEIt li ARRAY BC*3I 
REAL T# W* £# J# AA; 
LA6EL NULL* FQUND# EXIT* 



04703000 T 0000 
04704000 T 0000 
Q/>7050Q0 T QiKm 



LABEL SANDA; REAL SS; 
M *■ " 1 j 

B «• CMCT *■ GETSPAC£(30. 



0* Q?^2JJ&3 , o , t , a»39 , » i 03; 



0<*7o5500 T 0000 
04706000 T 0000 
04707000 T 0003 



IS 

20 
21 



NUL L? 



SS»»s; 

IF S«0 
BEGIN 



THEN 
STREAMfP; 



QS>«^0 LIT 



Jli. 



GO EXTTJ end; 



04707500 T 0007 
0470S000 T 0008 
Q47090Q0 T SLQJiSL 



Z2 
23 
24 

25.'? 

26 

27 



sanda? 



DlSKWAlT(-TO0* JARCPIMIX* ion; 

IF CjARtPlMlX* 103«0) a« (AA«-B[03.CFF])a0 THEN 

BEGI N STREAM(S»»SS*A^K '''M i;pRT[ p lM l V8]3, [ lQt23*T)j 



04710000 T 0013 
04711000 T 0016 
04712000 T 002 Q 



BEGIN 0S*5 LIT 'S 5 s«; 

SI*LOC S; 05«"4 OEC; 
0S«-5 LIT *** A 9»i 



04713000 T 0024 
04714000 T 0025 
0471 5Q Q Q T O025 



28 

29 
» 
11 
32 
33 



US«.4 DEC* 

DSJsLiT "«"; si««si+7; os««chr; 
oi»t; 0T»Di45; ds»3 ftll; 



04716000 T 0026 
04716100 T 0026 
04717000 T 0027 



Dl*-Tj 

END stream; 
GO TO exit; 



oi«-Di*i«; os«-3 fill; 



04 718000 t OOti 
04719000 T 0029 
047P0O0Q t 0029 



34 

35 
36 

37" 

38 

39 



end; 

DlSKWAlTC'T'30M«=JARCplMIX*AA 
AA MOD JARtPlMlX»8J+3 DIV 



OIV JaRCP1MIX*8J+103+ 

30); 



04721000 T 0030 
04^22000 T 0030 

04723000 T 0033 



IF Ca*SCS MOD 303 )<0 THEN 0° TO NULt ; 
AA * I * JAHtPlMlXiU.CCFJ OIV JAR£P1MIX»83+10 j* 
■J«tCF3 WOP aAR|PlWlX*e3; 



04725000 T 00 37 
04 726000 t 00 J9 
04727000 T 0043 



40 
41 
42 



i«-e; j*j.[Ff3; 

DO BEGIN S4.(l+J),C36:nJ; 

IF wx(W»sS DIV 30) Then 



IF (E t 9CS*Wx30J«l38M03)«A 
If E<A THEN I*S ELi^E J*S; 
UNTli. a*n»ii 



diSkwaiT(-t,3o*aa+W); 



THEN Gi TO found; 



04728000 T 0046 
04/29000 T 0048 
04731000 T 0050 



45 
46 
47 
•8 



END 



04 732000 
047 3300G 
047 34000 



T 0054 
T 0057 
T 0061 



FOUND* L *-'-fltS MOD 3o3,ClO»283; 
IF L«0 THEN GO TO SANDa; 



04/35000 
04/36000 
O47365OO 



T 0062 
T 00*3 
T 0066 



047 3^000 
04738000 
047 39000 



T 0067 
T 0068 
T 0070 



49 

50 
51 
52 
53 
54 
55 
56, 



STREAM{L«-ABS(L)*T); 
BEGIN 08?»n tiT 'WNeAR 

s,i*LOc l; os*8 dec; 



LINE •♦; 



DSlaLiT •• "; 

END stream; 

PLACEFINDER 4. t; 



Dn»oi-9; DSi«7 Fill; 



EXITi 



04740000 
04741000 
04742000 



T 0070 
T 0071 
T 0072 



END placefinoer; 

S $ET OMIT « NOKOATACOH ) 



04743000 
O4999999 



T 00/213 
il2E» 0074 WORDS 
T 0000*0 



PROCEDURE LQGOUTCa); VALUE Af REAL a; FDR^vARD; 



0560/000 T OOOOIO 



N 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 



PROCEnURE LQGSPACE(^<*L); % THIS MAY ZIP 



START OF REL SE<;MENt; DISK ADDRESS « 00083 

Q')7Q,UnQQ T QOtfQin 



VALUE W*L; NAME IKr INTEQER If * FIRST WORO»«ORD COUNT 
COMMENT THIS Will. CLQBBCR WQRQS ARQuND THOSE L06GE0i 



START OF HEt 



segment; Oisk 

05701000 
05701010 



ADDRESS 

t ooqoIo 

T OOOOIO 



00083 



BEGIN integer B#I*J'»^'N; ARRAY At*]i LAbEL OK; DEFINE Z = LOGFReE#' 
N«.L DIV 5; UNO REMAINDER ALLOWED 
A>g[M[B»gGETSPACE(30>0^0).).23 J&30E8»36» 103J 



05702000 T OOOO'O 
05702500 T OOOO'O 
05703000 T 0Q0?«^ 



IF Z>0 THEN Sl.£EP(CZ3#-'0); Z*"!} 
SET OMIT s NOT (SHARED I SK 3 

0lSKWAlTI-8>30fZ|| , : :./■;:. 



OS703500 T 
05703699 T 
Q57Q<tQ Q t 



000? »0 
001 1 »0 



If (UACOJJ + d + NiCj^AtU) THEN BEGIN I*0; K*l END XwRAP ARUUNO 
ELSE IF I+N+100 GEO J THEN 

BFGIN INDEPENDENTRUNN£R(P( . LUGOuT ) # 1 # 128 ) ; 



05705000 T 
05706000 T 

05706](00 T 



00l2»2 

0017«3 

...0 .08.0. .1.0 



END 
ELSE TF 



Kt42; 

KJ DiV 2 AND J OIV 2<I*N THEN K»3 X H A LF FULL 



05706200 T 002il3 
0S706300 T 002212 
Q57Q7nQQ T QQ??^P. 



ELSE GO TQ aK; 

STREAM(K» = K-U J » » J »*SPaCE ( 3> ) > 
BEGIN CI»' CI * k ; Gq TU LZiG Q TO 



Lli 



05708000 T 
05709000 T 
Q571Q0Q0 T 



OQ27«0 
00271 2 
003l»n 



19 
20 
21 



D5»»14 LIT^fLOG HALF FULL»J 60 TO L3; 
Lit DSl"t9 LIT" LOG FULL * AUTO LN"i qO TO 
L3t nSt»l7 LTT"**LnG WRAP AROiJMD"i ^ 



L3; 



05710500 T 003210 
05711000 T 00t4ll 
05711500 T 003711 



22 

23 



L3« DSJ^LIT"*"/ 

End; 
spo uTc j); 



05712000 T 0039«3 
05713000 T 0040«1 

0571^000 T — ooaoa 



25 

26 
27 



0K» AC03*N*tf AC3 3»k; At23>I*l*U 

WtLUiff X END OF LOG 
J»a MOP 6 3x5i tSlZE nf NElGHRQRHfiOD 



XWE NOW PUT THE WORDS IN 
(NBD? - 



05715000 T 
05715100 T 
QS716Q0 Q T 



00<»1»1 

ooftftia 

QQ< talQ 



28 
29 
30 



SET OMIT = NOT(SHAREOISK) 
IF CI*I DIV 6)/0 THEN DISkW aIT ( b* 30#Z ) ; 
IF UXQ THEN % GET NBD ^_ 



xdump record zero 



05716999 T 
05722000 T 
57 23Q PQ T 



00i»9»3 
004913 
05 31 1 



31 

32 

33 

34 

3S 

36 

37' 

38 

39 

40 

41 

42 



B EG IN IF 1^0 T HEN 1 S K W a I T < • 8 » 3 » Z + 1 ) ; 
M0V£t30''j*»< INX 0#A INX J) 

END ■-:■;-■.•■. 



05724000 T 005410 
05725000 T 005713 
05726000 T 0060M 



ELSE B»aW INX Oi 
OlSKWAITCBOO^Z + n; 
IF (L*J) GEO 30 THEN 



05727000 T 006l«0 
05728000 T 0062»3 
05728100 T 0064»3 



BEG IN K 1 » L "• C J » » 3 • J ) ♦ I ; 
1*^1*%} 
DO 



05726120 T D065I3 
05728-140 T 006910 
05728160 T 0070*1 



BEGIN DISKWAITCW 
Jt«J+l020; 
11=1+34; 



INX J*IF K>1020 then 1020 ELi>E K*Z + l)j 



05728180 T 0070«1 
05728200 T 0074J2 
05728220 T 0075»3 



43 
44 
45 

46 
47 
•8 



END UNTIL <HI«K»1020) lEQ Oi 
EnD/ 
SET OMIT » NOTCSTATISTICS) 



FORGETSPACE(A); 
SET OMIT = NOTcSHAREOISK 
Z:=-Z; 



) 



05728240 
05728260 
0S728g99 



0077 »0 
067911 
007911 



05729000 
05729199 
05729300 



0079«l 

0080U 
0080U 



' 49 

JO 
51 



END OF LDGSPACE; 
DEFINE 



MAXSIZs[ll20J«' T0MAXSIZ=1J28|20#^ 
SPEED » C23t3]»/ TOSPeED' 23«45!3i((* 
EUNP s C2H1]## TOEUNP « 2U47»1«/ 



05730000 t ooeiM 

SIZE* 0082 WORDS 
05780000 T 0000»0 



52 
S3 
54 



5TARTt«R0»£2*'ll83»* TDSTARTHRD«26» 36» 12## 
NUMENT«t3.6»t0j*, TqNUHENT»38» 38U0#, NUMENTM»l023*f 
0SIZE«»C2I203#> TOPS I?Jff a < 281 2Qif 



05780010 T 
05780020 T 
05780025 T 



0000»0 
0000«0 
0000 '0 



55 

56 



05780030 T OOOOIO 
05780040 T 0000*0 
05780100 T OOOQIQ 



DEN0»C22»2(|]»# T0DEND»22 « 22 J 26* * 



05780200 T OOOOIO 



>r 



10 

11 

12 
13 
14 
IS 
)6 
17 
18 
19 
20 
21 



22 

23 

24 

2E 

26 

V 

28 

29 

30 

31^ 

32 

33 

34 

3S 

36 

37" 

38 

39 



40 
41 
42 
43*^ 



45 
4« 
47 
«8 
49 
50 
51 
S2 

a 

S4 



55 
58 



T0SlZE»8«3eJ 10»» 



ON C W ORD F Q H EA CH 



I/O CHANNEL 



AVDIFFMIN»15#* AV0IFFMAX«50#* X AVDIFFMAX GTR AVDIFFMiN GTR U, 
AVTMAX»3900#« * MAX # WORDS Aj,tOWEO FOR AVARaBlE TABtE ON QISK, 
» TS RFFI FCTED fN liSERll TSKBPTTnM k nt«tK AW A H T^ Hl FuAv 



05780300 
05780310 



AVSMINS90 #» AVJ.MAX«300«» 



* MIN AND MAX « WORDS Tq REaD 
X AvSMAX GTR AVSMIN GTR 85» 

* n p TH MUST - RF. MiJ L TlP l FS Q F 30 , 



IN e 1 TIM 



05780^00 
05780500 
O57aOS0S 



OOOO'O 
OOQCIO 



FIxARRAY<FIxARRAY1*FIxARRAY2,FIxARRAY3)sFIxARRAY1*CmCFIxARRAY2«- 
SPACE(FlXA8RAY3)3 3«FIXAR«AY3tT0SIZE3# * 
SFT OMIT « , N flTfSH A RFniSK ) 



0578O600 
05780605 
057 8 610 



ooooto 
0000 to 
ooooto 



REAL PROCEDURE PETUiiERaiSKCN^T)i VALUE N#T; REAL N#T 

% N IS T H F NUmBFR of SEGMENTS RE(iUFSTFn> AMP T IS ThF FUilt UR 



O5780700 
05780800 
Q^BOQOQO 



ooooto 

000010 

ooooto 



ooooto 
ooooto 
ooonio 



START OF REL 
THE SP EE D»» 



% GETUSEROISK WILL RETURN *»t# 0* OR THE ABSOLUTE DISK SEGMENT ADDRESS OF 

X THE RESULTANT AREA* SeI T.Ca»iJ FOR THE -1' AND N,C2Ji3 FOR THE 0, 

% T>0 «> T IS A FREfERREO SPEED«t T»l»2#3#4» « . , / OR 31, ^__ 



OS8394OO 

segment; DISK 

05839600 



T<0 '> -T IS A PREFERRED EU«« T«- 1* -g,- 3# -4* , , ,» OR "20, 

T=0 3> DONT CA8E ABOUT SPEED* OR EU*# USE EU WItH LEAST ^U I/O. 

T. [2»l3al => IF CANT GET PREFERRED SPfED* OR EU«* ReTLRN "1. 



05839700 
05839800 

$ e<i Qn 0Q 



T 000010 

ADDRESS s 

J. QOOQtO 



00086 



ooooto 
ooooto 
ooQotn 



X T.C2«n«0 3> IF CANT GET PREFERRED SPEED* OR EU#, TrEAT AS T»0 (ABOVE) 

X N>0 »> MAKE A SCRATCHDIRECTORY ENTRY, 

X NitO »> DQnT make a SCRATCHDIRECTORY FnTRY. - 



058/iOiOO 
05840200 

05840 300 



X N=0 => IMMEDIATELY RETURN 
* N.t2U3 = -> IF CANT FIND 
X N«C2tn>l »> IF CANT FIND 



WITH A o» 

ANY USERDISK* AND 

ANY USERDISK# AND 



O584O4OO 

05840500 
05840600 



OOOO'O 

ooooto 

0000»0 



ooooto 

ooooto 
ooooto 



T,[2«l3*0* 
T.I2tl3«Q/ 



ND-USER-DISK. 
RE-TURN Q. 



BEGIN 

Integer k-+i* x k is also "GE-tuserdisk"; oont use k above label d. 

ZaK^l^ NSaZ^l, I»NS4l^ '^^__ 



O584O7OO 
05840800 

pSfl^Qgon 



ooooto 
ooooto 



J QOOOtO, 



$ set omit « NOT(SHAREDISk 
$ SET OMiT » ShAREOJSK 

R»I*ly AVSsR^i^ 



) 



05841200 
058 ft 1 300 

05941^10 



ooooto 
ooooto 

ooooiQ 



JaAVS^.l. HgNT6, LsAVS 



REAL M1»NT5# M2«NT4' ARRAY UT»vl+lC*3; DEFINE U'AVTABLE « ; 
POP OMIT 
LABEL A»Bi.C#a*E*r*G#W 



O584I38O 

05841610 
05841615 



DEFINE GETUSErD I SKsPETUSE RD I SK« ;»***************♦***************** ****** 
IF N«0 THEN GO W ; 
P(T«[2»i3»ABS(N)m^O>0^0»0) ; 



05841620 
05841621 
05841650 



$ SET OMIT s NOTCSHAREOISK ) 
At SLEEPCtTOGLE3'US£HoISKMASK); LOCKTOqcUSeRdISKMASK) i 
$ SET OMiT s NOTcShAREOISK ) 

> sharedisk 



05841700 
05842100 
05842200 



T 
T 

r 



0000 «o 

0000 10 
ooooto 



ooooto 
ooioto 

0000 1 



ooooto 

000010 

OOOJJ2 



SET OMIT 

Mll*M2t=P(0) 
POP OMIT 



LfNEUP.NEUF ; 
IF T LSS THEN 



05842205 
05842300 
05642390 
05842405 
05842410 
05842411 



IF UtJ:«lF -T GTR L THEN 1*1 ELSE 
THEN GO E E L S £ 1 F Z T H £N 60 C ; 



-T3.HAXSIZ QEU NS 



Bj IF Ut I3.MAXSI2SNS THEN 

BEGIN 
P(EUlO[(NTl»»t-l)*EUlOFFSET3*PEUIOENTn,.NT2^SND» 



05842450 
05842475 
05842500 



OOOAtO 
0004t0 
0009t0 
0009t0 
0009t0 

ooion 



OOlOtl 

oou ts 

00 17 t J 



IF P LSS Ml THEN BEGIN MxuNT2i HI"NTl END 
IF P LSS M2 THEN IF UtIJ.SpEE0»T THEN BEGI 

END i • 



DuP) 



05842700 
05842800 
05842900 



001911 
0020»3 
002111 



) 



m2»«nT2ij»«nti End; 



IF CIJ»I+1) LEO 

IF P(D)^M1 then 

BEGIN 



L THEN GO B ; 



05842930 
05843000 
5643100 



00 24 t 3 
0027 tj 

ooaita 



■m. 






05843200 
05843300 
05843400 



JJsJ+i; GO E i 



01843500 
05843600 
05843700 



003l»3 
003410 
0034>3 



0O35ti 
0038tl 
0040 ti 



05843800 T 0041J2 



T< 



1 
2 
3 

4 
5 

6 
7 

8 
9 
10 



5rf 



# • 



ir L 



END J 

THEN 



GO c ; 



05843900 
0'?B<t395Q 



0043«i 
04 3 » I 



IF N,[2»n THEN GO G ; 
S SET OMIT « NQT(SHAR£OISK 
% SFT QMTT ■ SHAREDISK 



) 



05844000 
05844050 
Q%fl44n9Q 



004411 
004513 
00451^ 



10 

11 

12 
13 
14 
15 
16 
17 



FlXARRATCUT^a^aO); 
$ POP OMIT 
D: I IPQ77777777777777? 



USERDlSKbPECIALCASE(I»'l'R'UT»NS); GO A ; 



05844110 r 
058441U T 
Q' i6 4 4 20 Q T 



0045»3 
005213 
00 5g»3 



s 



SET OMIT » N0T(SHAREDISK ) 
SET OMIT « SHAREDISK 
Tr f A\/SlsfKtgfTl»UCJ3 ANn 



NUMENTMi»T»»fZlgUf J3.STARTWfiDi MOO ^Oi MOD 



05844290 T 
05844915 T 
05B4492Q T 



0054(0 
0054*0 
QQ54»Q 



30) NEQ THEN avSj«3o-av5; avsi*avs+k; P(m2) ; 

FiXARRAYCUT*l?i*AVi)); DISKInAIT C-R' AVS* 2*Z QIV 30+USERDlSKeOTTOM ) ; 
M?l»Pj P(K«»1}; NT2{«0j NT3>sK»8UCJ].MAXSIZ i 



$ POP OMIT 
"I ir <NTJ*UTCU#05i2E)>NT2 THEN IF NTIXk THEN NT2*NT1 El^E 

IF NTiJNS Then if nti<M2 then ecGiN M2»ntij h»i end ; 

IF P(OUP) GTR II»I*1 THEN GO F ; 



05844925 T 
05844930 T 
058^4935 T 



005813 
0063 « 2 
. 0070 » 3 



K«aO i 



05844936 T 
05845000 T 
05845^00 T 



0074(3 
00/413 

00801a 



IF P(OUP) GTR II»I*1 THEN GO 

UT[H],DSIZE«.NS*M2-NS i 

IF MH»M2=NT3 THEN UCjJ.MAXSlZr 



IF nT2>nS Then nT2 else ns ; 



05845200 T 0084«2 
O58453OO T 0086»3 
O5B454OO T 00901 1 



21 



23 
24 



GETUSEROISK*UTCH3,DEND-m2; I:sp ; 
SET QMiT « NOTtSHAREDISK ) 
IF N*NSsO THEN i3£GlN MQyEC I«H, t yTCH*!] 3> CujCH ] 3 ) J uC J J ,NuMENT»T"1END; 



05845500 
0584SS90 
05845700 



S SET UMiT = NOTCSHAREDISK 

$ SET OMIT = SHAREDISK 

DlSKWAITCR*AVS*Z) I 



) 



058«b790 
05846350 
5846 360 



0096*5 
0099 » 6 
0099 1 



Ol06«3 
Ol06»3 
0l 06» 3 



25 

■v'x 

28 

29 

JO 

31" 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43" 



$ POP OMiT 
$ SET OMIT 
i SET QMTT 



NOT(SHAREDISK ) 
' SHAREDISK 



05846361 
058463?0 
Q'Te46385 



O1O8 
O1O8 
QIQ8 



10 
«0 



-^ 

^ 
^1^ 



FCRGETSPACECH) » 

Gi umocktogcuserdiskmaskj; 

S POP QMIT 



05846390 
05846395 
Q5B46396 



T oioa 

T O1O8 
T 0U2 



»0 
»3 



Wi END OF GETUSERDISK ; 

PROCEDURE F0RGETUS£RDISK(A>N); VALUE A/N; REAL A*N ^ 



O58465OO 
05846600 



T 0H2 
IZE* 01 
T 0000 



«1 

13 

i5_ 



WOROS 



X A IS THE ABSOLUTE DiSK SEGMENT ADDRESS OF 
* WHICH IS TO BE MADE AVAILABLE AGAIN, 



START OF REL 
AN AREA N SEGMENTS 1,0NG 



segment; DiSk 

05846B0C 
05846900 



ADDRESS 
T 0000 
T 0000 



00090 



«0 



m^A/ 



^^ 



X N«0 s> MAKE A 3C«ATCHDIRECT0RY DELETION, 

X N>C *> DONT make a SCRiATCHOIRECTORY DELETION, 

X N«0 ■> IMMEDIATELY GO AWAY ; 



05847000 
05847100 

05847200 



T 0000 
T 0000 
T 0000 



»0 

to 



^ 



BFGIN 
$ SET OMIT 
S SET OMIT 



s N0T(SHAREDISK 
a SHAREDISK 



) 



O58474OO 
O5847ij90 
05847590 



T 0000 
T 0000 
T 0000 



»0 
»0 
10 



45 
48 
47 
•8 
49 

50 ■'■■■ 

51 ■( 
62 
53 
M 



Integer avs*f«avs; array uTt*3; define u»avta6LE #; 
s iop omit 

real t» INTEGER B jC»0> I » J>F<#S»h»NT7 »K«NT6»LaNT5»GsNT4^T»NT3>Q»jUNKJ 



058476^0 
05847601 
05847700 



T 0000 
T 0000 
T 0000 



10 
»0 

to 



LABEL V#W*X#Y*Z*AZ»BZ#C2^0Z ' 
SUBROUTINE SETShlFT ; 

BEGIN 



05847800 
05847900 
05846000 



T 0000 
T 0000 
T 0001 



»0 
«0 
ISl 



SI«P<XCH3 J 
$ SET OMIT » NOTCSHAREDISK ) 
S SET OMIT " SHAREDISK 



05848100 
05846190 
05848250 



UCJ3,STARTwRDtBUS; GI»D + S t 
% POP OMiT 

K<»G»c-i ; 



05848255 
05848256 
05 8 48 300 



T 0001 
T 0001 
T 0001 



to 

13 



T 0001 
T 0006 
T 00 06 



«3 

«0 



S5 

58 



END OF SETSHIFT ; 
ir N«0 QR Cjt«A OtV lOOOOOO) GEO NEUP.NlUF 

OR A LSS ySEROlSKtOTTOMtDISKAVAlLTABLEXAX THEN 60 Bl i 



0S64850Q 
05848900 
0'>afl90Q0 



T 0007 

T 0008 

_I 00 1? 



(3 

10 
t2^ 



sleep(CT0gle3*userdiskmask); locktog(userdiskmask); 



O58493OO T 0016«0 



• • 



10 



12 

13 1 



15 
16 
17 
18 



19 

20 
21 



23 
24 

2S 

v'h 

28 

29 

» 



SET OMIT = NOTCSHAREOISK ) 
IF CD:sU[ 03.MAXS1Z) NEQ 



AND N GTR THEN IF (TWOCJ) AnO D) Nt-Q 



058ii9390 
05aa9/t20 



Vt 



Then begin US£R0lSK5P£ClAl.CA5EC3»N»U'A)i IF NOT P ThEN qO 02 END I 
C»CUcE*m:W3>»STARThH0? MOD 30 ; ^ .__ 



0021«0 
0021«0 



05849460 
05849460 

05849500 



0025«3 
002911 
00301? 



% SET OMIT s NOT CShARELISK ) 
$ SET OMIT s SHAREPISK 

AVS>»30*(S»s{C»»£. AND NUMenTM)*^ MqQ 30-»S ; 



FIXARRA¥CUT»R*AVS); DI SKWAIT C-P# AVS*B l*! OIV 3o+USeRDI SKBOTTOM ) 

K»as; ut«o; st»i*c ; 

ft POP OMTT 



03849590 
05850105 
05650110 



Wi 



G<-I-(NT2J»(P(UCJ*1]*UUP) ANC NUMENTM ) ♦P (XCH) jSTARTWRq) ' 

S«-UtJ*l].STARTWRO-S; H*K*-K-1; IF UT CT*L 3 .DEND^A THEN GO X ; 

;F UTfT»(H»L»l)DIV 23.DEND^A THEN IF UT [H«-T"l 3 ,DEND^A THEN GO W ELSE 



OS85oi2o 
05850130 
58 50 131. 



003312 
0033»2 
09j3 »2 



05850200 
05850300 
O585O4OO 



ffi; 



00^713 
0045^0 



004713 
005210 

0059«3 



ti 






THEN GO It 



05150500 
05650600 
058S0700 



0065*1 
0072*3 
0077*a 



SET 
.S£l 



BEGIN 
OMiT a NOT(ShAREOISK 
UMIT s SHAREDISK 

ir G»0 OR 0*0 THEN 



) 



GO Y; if PCCG+UOIV 2»D^P'>0 THEN ?ittl'^^i 



05850800 
05850890 
05851gl5 



S POP OMiT 



P(5SN);SETSHlFTfMUVEcC* [UT t G*S3 3 # [UT [g3 3 ); T»Q»T»SJ 



05851220 
05851221 
05851300 



0079«0 

0079«2 
0079»g 



0079»2 
0085»0 
0085»0 



Yj 



END ; 
FCR H«.K STEP -1 UNTIL T DO UT [H+ 1 3 «.UT C H 3 ; 
USFR0lSKSPECIALCAi'E(2*E*UTo) ; 



H4.ABS(N); GO AZ ; 



05851400 
05851500 
05851600 



0090«1 
0090*1 
0096«3 



$ SET OMIT a NOTtSHAREplSK 3 
GO V ; 
Zi IF PCUTEO*<a^U^OUP)«DEND-'P(xCH?,DSlZESL THEN GO Z i 



05851650 T 
05854675 T 
05851700 T 



009812 

0098 » 2 
009Vl0 



IF PCUTcNTlJ-Q-i3,0END'UUP) LSS L ThEN P(DEU/L) 

H:=(LS*P)-CIF a LSS H then a ELSE H) I 

IF NTi GTR T THEN MO VecK-NT 1* [UT CQ 3 3 * CUT i:Tfl3 3 ) 



05851800 
05851850 
05651900 



Ol03«l 
0l07«0 
O l| 0« 2 



31 
32 
33 



AZ« UTCT3*L4HEToOSUE3; C*CQ*T-«+l )*C ; 

IF(S*S"Q)>T*IF AVDIFrMAx>T»C Olv 2 THEN AVDIFFMAX ELSE 
OR S»Q>T'»-<ir aV0IFFMAX>T«'nT2 OlV 2 THEN AVQIFFMAX ElSe 



T THEN IF J»i 
T) THE N 60 y 



05852000 T 
05852100 t 
05852200 T 



Oll4«3 
i 19 « 3 
0125*3 



34 
35 



36 

37" 

38 



ELSE BEGIN 

IF {nTi«-f-i"K)=o Then 

IF P((S-*-G) DIV 2/DuP) 



GO Y; 
GTH NTI 



THEN pcdel>nt1)*setshift; 



05852300 T 
05852350 T 
05852400 T 



0131*1 
0i32«0 

0l34t3 



39 



FOR NTlfK STeP "1 UNTIL G qO UT [NT 13 ♦•UT [NT 1-S3 j 
ENO ; 
UcJ3«-(NT1*UcJ3UCCTQNuMeNT3&CIF £«-(NT l«-NTl «M aXS iZ )<h TH£N h EL^E 



05852500 T 
06852600 T 
05852700 T 



Ol39»0 
0144»1 
01^411 



«2 



45 



«7 
•8 



NTUtTOMAX3IZ3 ) 
$ SET OMiT = NUTcShAREOISK 
$ SET OMIT ~ ShAREOISK 



) 



05852800 

05852890 
05653420 



DISKWAITCR>AVS/B) ; 
c f9np OM t T 
$ SET OMIT « NOTCSHAREOISK 



) 



05853425 
05859426 
05853490 



0150M 

0l5l»3 
0151*3 



$ Set OMiT = shareoisk 

FCRGETSPACECH) i 
DZ* UNLOcKTOGCUSERDISKMaSK ); 



05853593 
05853595 
05853600 



Ol5l*3 
0153*0 
0153*0 



0i53«0 
0153*0 
Ol53»3 



49 
50 
51 



BZ* END OF fORGETUSEKoiSA A 



PROCEcuHE DKBusiiNEssceuFF); vALot b^ff; ^eal buff; 

BEGIN ^^___ 



05853601 T 0l57*l 
05853700 T 0l57»i 

Size* 0158 .WORDS 



52 
53 



05950000 T 0000*0 
START OF HEL SE,.MENT; DiSk ADDRESS . 00096 

O595O2OO T 0000*0 



O595O4OO 

m "■ ■■■■■'■ 



liaiiaitiiiiiiiMi 




0000*0 
0000*0 



FIU=M1D+1* 



.^.Jiiliiiliigi!'"iii«i:i.: 

O595O8OO T 000010 



fr 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
M 

31 ~ 
32 
33 
34 
35 
36 
37" 
38 
39 
40 
41 
42 
43 ~ 
44 
«6 
46 
47 
•8 
49 
50 
51 
52 
53 
54 
55 
56 



TMID=F1D+1^ 
TFI0=^MID^•1* 



O595O9OO T 



0000«0 
PQtJQ'n 



A*TFID+1* 
8*A+i; 
INTEGER NsBtl; 



05951000 T 
05951200 T 
595 UOQ T 



0000 »0 
0000 i 5 
000010 



3 
4 

6 
7 

9 
10 

'M 
12 

13 

ui 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 ( 

24 

2S 

26 I 

27 

26 

29 ( 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 < 

42 

43 

44 1 

45 

46 

47 

48 

49 

50 i 

51 

52 

53 ( 

54 

55 

56( 

57 



ARRAY nU = N+U*3> 

iiCOLEAN RDT = HD + 1' 

INTEGER C=:RnT-»1.0 3C-H>I=D-H^J5l + l>R = j.»Us = R-t-l ^ 



059blb00 T 
059!3l70C T 
059SlaOO T 



0000 JO 
0000*0 

ooooso 



LA = S4-l/bAisNT2* 

H«NT/>KBNT6#LsNT5,G:=NT4,T*NT3,a*oUNK; 
REAL E = LA-*-i; 



059 5 1900 T 0000 
05952000 T 0000 
05952300 T 0000 



REAL KTRsb; 
REAU TY(»E«C; 
RFAL WORDaQ/ 



05952210 T 0000 
05952220 T 0000 
595 22 3 T QQOO 



REAL HAwj; 
REAL HEADER**; 
ARRAY HDRi>EC*i; 



05952240 T 0000 
05952250 T 0000 
0'^9«i2J6Q T 0000 



BOOLEAN FILTOG«t+i; 

REAL SEGSsFlLTOG+i; 

$ET QMTT " SHAREOJS K 



05952270 T OQOO 
05952300 T 0000 
05952 399 T QQOO 



ARRAY Uf»HDt*3r JnTEGER aVSsSEGS+U OEFInE UaAVTABLE*; 
INTE:6ER SLEEPER»AVS*1; 
■^ PHP OMiT . : __^ , 



$ SET OMIT s inOT(SHAHECISK) 

Label v*w*x^Y,2/MZ*B^'C2:MNLiE*EXiT; 

L ABE L F ILEl PfXPFlL E fCONF Ll CT^rO LN PfMS G ^FINl s; 



05952400 T 

05952500 T 

0595 2 501 T 



0000 

0000 
OQOO 



O59525O5 T 0000 
05952600 T 0000 
0595 2620 T OQOO 



i SET OMiT » NQT(SHAREDISK) 
REAL SUBROUTINE DECWORO J 



05952690 T 0000 
05952705 T 0000 
05952710 T QOQt 



STREAMCT*0;rt«-[l^URD3 ); 
BEGIN 

s i«-w; di» lQ c t ; ds«- 9D fC/ 



05952715 T OOQl 
05952720 T 0002 
059527 25 T OO P? 



END stream; 

DECWORD«-P^ 
END DECWORO; 



05952730 T 0003 
05952735 T 0003 
05952740 T 0003 



SUBROUTINE SCAN; 
B E G I In 

streaM(Ktr»type«-o:t*-o#^*-[word]); 



05952745 T 
05952750 T 
05952755 T 



0003»3 



0004 
0004 



BEGIN 



_kM. 



S T frKTR Jf 

IF SC»'^ " THEN BEGIN SI>Sltn GO LOJ ENDf 



05952760 T 0005 
05952765 T 0Q05 
05952770 T 0006 



IF SCa""" THEN 
BEGIN 

SUSl-t-i; DS«-LIT"Q"; 



* STRING IDENTIFIER 



05952775 T 0007 
05952780 T 0007 
05952785 T OQO7 



IF Sc«**"" THEW 
BEGIN' . 

S1*$I»1J 



05952 79<J T 0008 
05952795 T 0008 
05952M0 T 0008 



IF 3C = """ THEN DS*CHR ELSE DS«-LIT" "/ 
DS<-oLlT" "; 
END ELSE 



05952605 t 0009 
05952810 T 0010 
059 5281 5 T OQll 



SEGIN 



J=_LL 



7CIF SC^""" THEN OS<-ChR ELSE DS + LIT" ** ) i 
IF SC<<**"" THEN BEGIN SUSl*i; 60 LU END; 



05952820 T 0011 
05952825 T 0011 
05952830 T 0013 



si«-si + i; 
end; 
gu ti; 



05952835 T 0014 
05952840 T 0015 
05952S45 T 0015 



ailii%Si4^ 

Di)«-LIT"0"; 



05952850 T 0015 
05952855 T 0015 
05952800 T OPU 



TdT 



05952R65 T 00l6«l 



• • 



h 



11 

12 

13^ 

14 ? 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

28,; 

"i 

28 
29 



M 

31 J 

J2' 

33 

34 

35 

36 

37' 

38 

39 



42 

43' 

44 

45 

46 

47 

48 



49 

50 



51 
52 
53 
i* 



SS 
56 



-k2J- 



m 



7(IF SCsALPhA THEN DS*CHR LLSE DS*LIT" "j; 
I!' SC?At.PHA THEN BEGIN SI»bH-l; gO Lg; END; 



end; 






IF SCsAuPHA THEN 
eEGIN 



IK SC UEQ 

% NUMBER 
TALLY«.i; 



"9" THEN 



7(IF SC»ALPHA THEN IF Sc LSS •♦0" THEN 
BEGIN T*TALLYi Sl*SI"TJ JUMP OUT TO ID; END 

list IF SC LEB '«9" THEN 



BEGIN SI^-SI + i; TALLY«-TALl,Y + U 

t«-tally; si*si-t; ds<-t Oct; 

TAUY»g; ; 



END); 



IPIP 






Ext: 



OS*-? HT'O"; 
type«-tally; 

.^Tfe<4.an 



ds*-chk; 



em: 



Ei\o streai^; 

PC ,TYP£/STD' .KTrt^STD); 



SUB'^OUTlNf; MLOGlT; 
B r G I N 
S4-r,F-TSPACFf 15>9>0)4?; 



STREAi*i(B»DATE#D«'S + i); 
BEGIN 



ucT,{ nitni^fl 



XiX 



si*b; 

sceaciF Sc'"'*" theiv. ds«-chr else 

D.s«-iiT"<-"f nr«-nr-i; ti^ni? 



JUMP OUT 2 Tu LL)); 



END striam; 

LA*- P INX 0; 

MrS3» rLA-S) 



nTV 5; 



SlO, 



t^cs+2]«-iF filTqg Then -n el^e segS; 

LINKUP(18'S); 

mlogit; 



suB«QuTiN& ehterfiue; 

BEGIN 

f Ixarraycho»b»30); 



moveoo'hd-uhd); 

HD[0]«-«*i600036C00lCi; 
STREAM(DATE'XCLOcK,h«-HD 



INX 3); 



BEGIN 



si*LQc date; ds«-80ct; 

0I»DX#20 ; S I ♦S I +4 ; ds«.4c hr; 

DS4.3CHR; 



END 



Di«-Di-7; si«-h; si«-oi+5; 
di«-h; ds*-2liT"+#"; Si ♦•Si 
stream; 



'3; ds«-3chr; 



H0C«].C«2«lJ«*i; » make FILE NON-mOV£A8lE 

h0e73*{hdc8j*n)-chdc9j*u; 
hdcioua; 



ENTERUSERFILE(MID*FID.C6j42J*B-1); 
STREaMcMID/FID#N,TMID»TFID*FILTOg* 
BMFFILTOG THEN B ELSE BUFF); 



^Mmmi. 



,.» , g,^, . ..yy,^ , .,..^. , .. , .g .^ , ^..., , ^11^1 v.^^.^^^^^^^ QS«-7cH'ft; 



05952870 

Q595 gq75 , 



05952880 
05952885 
05 952 890 



T 
JL 

T 
T 
X- 



0016»3 
Q 18« 3 



001913 
0020*0 
Q020M 



059528^5 
059 5 29 00 
0«i95 2905 



05952910 
O59529I5 



0020 «1 
0021 »1 
002l»l 



05952925 
O595293O 
0595^^935 



002113 
002310 



0025 »o 
0025«3 
0027»0 



05952940 
05952945 
Q' i9 ' > 295Q 



0027*1 
0027»2 
QQ ?7» 2 



05952955 
0595£!960 



05952970 

05952975 
Q59529 80 



0028 « 3 
0030; 1 
0Q 30»^ 



05952985 T 



G03C«3 
0C31«0 

Q3?<0 



0595299c 
Q■^9'^?c•y9=i 



0C32'l 
O033'n 

O Q 3 3 , «0 



05953000 
05953005 

■1953010 



0035M 
0037 »l 
QQ37tl 



05953015 
05953020 

n5953c25 



059530 30 
059530 35 
0^9§3n4Q 



0038»0 
0038«1 

0041 »0 



05953045 
05953G5C 
05953055 



004a 1 

0042 * 1 
Q 4 3' } 



0045« 3 

0049«2 
0050»? 



05953060 
G5953O65 
05953070 



0050*3 
005 1»0 
^051*0 



05953075 
05953o8o 
O5953O85 



0055M 
005713 
0059«0 



0995 3090 
05953095 
0593 31 00 



O59531O5 T 
05953110 T 
05953115 T 
055S5ll7 T 
059s3l20 T 
05953125 T 



0061 » 
0061*0 
006|*g 



05953130 T 
05953135 T 
05953140 T 



0062«1 
0063*1 

0064|2 
0064»3 

0067*1 
0071*0 

007211 
0075*1 
0077*0 



■•,o»iiiii|i.»> 



0079*3 

■■"OoS'fi'l? 



1^ 

2( 
3 



46 
4« 
47 < 
48 
49 

sol 

51 

52 

53* 

54 

55 

56 ( 

57 



• • 



h 

2 
3 
4 
5 
6 
7 



0S4-LIT"/"; si«-si + i; ds«-7chR; 

DS«-6LIT" SLGSs'S Da»ecHR; DS«-6LIT" CREATtD"; 



03953165 
05953^70 



008l«3 
0062»3 



riLT0GCDS«.6HT" FROM '•; Sl*-Sl + i; DS*7CHRJ 

osfLn"/**; si*si*i# DS+7CHR); 



059531/5 
05953180 
Q'S953|8S 



T 0085 <1 
T 0087 fl 
1 088* 2 



END STrLAm; 

IF FILTQG THEN 



05953190 
05953195 
Q59 5320Q 



T ooa9»o 

T 0089 J 1 
T 0069«2 



9 
10 
11 
12 
13 
U 
IS 
16 
17 

la 

19 
20 
21 
22 
23 
24 
25 

2«.; 

27;; 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

♦3 






05953205 
05953210 
0595 3215 



0090»0 
009H0 
0Q9«»^ 



FORGETSPACtCa); 

END enterfiue; 

PcQ*QyQ/OfOyBuFr^PUP?; BUFF»H ,[,15» 1,53'lf PcQ^fl^B L^S 0?; 



05953220 
05953225 
0595 3 3 '30 



009 1« 3 
009413 
009 5 10 



10 

'M 

12 

13 

14 ( 

15 

16 

"( 

IS 

19 

2C ^ 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 I 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

41 ( 

42 

43 

44 { 

4S 

4« 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ' 

57 



P(0#0*0^0»O«t»O*Q»O^0#0}l 
t SET OMIT « NOTCSHARCOi^KJI 

If 6,rCF3B0 THEN* MAKE RFSFRVF/hISk 



05953360 
05953369 
05953aQn 



if':iiilllii 



BEGIN MI0I»"«ESERVE"; FIDJa'VOISK "; 

IF ca»«0IR£Ctqrysearch(-mid*fid'5))^o then 

RERIN STREAMfBUFF); 



059 53600 
05953800 

0'>954000 



T 010312 
T Oi05«2 
4 1 Qfl I 



ENQJ 



DS»»30LlT" RESERVE/DISK aLREAQY PRESENT*"; 

GO TO Exit; 



05954200 
0595«a00 
Q5954ftQQ 



T 0i09ll 
T 0U3»2 
1 Ql1ft?n 



IF (A*'GETUSER0ISk(CN*RE='EHVEDISkSIZEHU2«47M]))»0 THEN 
BEGIN STREAM{BUFF); 

QS««321I T''**NQ US£H PISk FOR RES£RVE/ntSK«-*^; 



05954800 
05955000 
059 5520Q 



0ll6«0 

0U9»2 
012QM 



&Q TO EX IT J 



O59554OO 
05955600 
Q59558Q0 



T 0i25«l 
T 0l27»0 
J Ql27<n 



end; 

if rot then 

BEGIN P(B); A»gMi;BUFF INX OM NtsMCeUFF INX li; END EL^E 



O5956OOO 
05956250 
05956300 



0127 »2 
012712 

0127»3 



Begin 
scan; 

IF TYPEgl then % IDENTIFIER 



06926350 
05956400 
05956450 



T 013212 
T 0i33»0 
J Ol 34»0 



BEGIN 



tmid«-word; 

scan; if WQRpX"/" THEN GO EXIT; 



05956500 
05956550 
05?56 6Pg 



0134«3 
0135»1 
O t3 6« Q 



FILEIO* 



scan; if NOTCTYPE»l OR TYPE*2) THEN GO EXIt; 
TFID*-IF TYPEs2 THEN DECWORd ELSE WQRO; 



05956650 
05956700 
05956750 



T 0l38»l 
T 013811 

T oi4iri 



fiutog«-true; 
scan; 



End; 



05956a00 
05956850 
05956900 



T 0145»1 
T 0l46»0 
T 0l47«0 



IF TY»»€»2 THEN % NUMBER 
BEGIN 

aowqro; 



05956950 
05957000 
05957050 



Ol 
01 
01 



4710 
47»3 
^8»1 



«6 
47 
•8 
♦9 

50' 
51 ■;: 
52 

a 

i* 

ss',:: 
56 i* 



scan; 

if TYPE'S THEN IF wORDa"/" THEN 
BEGIN 



O59571OO 
05957150 
5957 200 



01 
01 

M 



49«0 
50 «0 



mm 

54t0 






,OS957t50' 



T ■■.■■« 



GO fileid; 
END ELSE Scan; 

IF TYRE*2 THEN Ni-WORD; 



O59574OO 
05957<»50 
05957560 



T Ol 
T Ol 

.T 01 



55»2 
56«0 
58«0 



WlBgiflfigtlgiggf^l 



iiias 



"%:'t 



05-957550 

,:0:f9'5l^»©5 






IF A/0 THEN 



05957700 T 0162»1 



• • 



>r 



BEGIN 

STREAM(A*Dt. 



[FiDJ); 



VI 



BEGIN SlIsLQC A; 0Sl»6 DEc; tNO; 
IF tJtsA OIV lOOOOOO) GEQ NEUF»NEUF 
BFGIN STf^EAMCFlQ *8 UFF}j . 



05957750 



OR A LS5 0lREeT0RYT0P-»-4 THEN 



05958d00 
05959000 
059 .S9?QQ 



0l63«0 



Ol64«2 
016511 
^6Q«ft 



BEGIN DSts2i:LlT" INVaLIU DISK ADDRESb "; 
SpsLOC fid; DS: = 8ChR; DS«»LIT"*-"; 

pit=Dr9; os»=7 F iLu ; „ 



05959400 T 
05959600 T 
5 959 flQQ T 



017012 
17 312 



^i mi 



end; 

GO TO exit; 



05960000 T 
05960200 T 
Q'^96QaO Q T 



0l75«0 
017511 
Ql 77ln 



10 

11 

12 



IF WAlTloCCFlD]INXPl0O0OOOC}0*e6/j,l8 + FIDf CS»in.C42«n ThEN GO "T V; 
IF (RJ=FID.C 1256J ) GEQ g THEN % CHECK FOR HO MIL ADDRESS 

I F NOT WA l Tlo^tp ipl i^X gMO00OOOO*P64M6-^F lD fC5aJ? ,[ a3M3 . 



05960600 T 
05960650 T 
0^9 6 660 T 



0l77«0 
0l8l«0 
OlB2«3 



13 
14 
15 



THr.N 00 TO V ELSE IF R GEfl * THEN GO TO Vil INv ADD 

end; 

IF FI l TO G THE N Q Q X OFlLFf ^ 



05960670 T 0166>2 
05960675 T OlBBtl 
0S960<sa0 T 0lBfl«1 



16 

17 



IF A'O THEN GO EXIT; 

slelpcctoglej^userdiskmaSk); 

SET OMtT = NQTcShAREDISK) 



locktqg(userdiskmask); 



05960665 T 0l89« 1 
05960700 T 0l90>2 

0'596070'i T Ol95»-2- 



19 
20 
21 



j«.j+i; 

BZt Dl«(II«(E»auCJ3)fSTARTWRD) MUD 
% SET OMIT « NQT(SHAREDISk) 



3o; 



05960800 T 
05961000 T 
059 61005 T 



0l9S»g 

Oi96»3 
Ql 99t 3 



22 
23 
24 
2S 

26 



SET OMIT = SHAREDlSK 
AVSJs30-(SJsCc« = L AND NUMeMM ) + d )MOD 30*S; 
FIXARRAY(uT#H>AvS); DISKWAITC-R»AV$^B|sI Ply 3o-msERDISKB0TT0M>; 



05961199 T 

05961200 T 
O5 96UQ0 , T 



0199»3 
O199I3 



Kj»S; Ltao; sisi+c; 

POP OMIT 
Gt*I'{NT2t"(P(UC'^"l3>DUP? ANp NuMeNTM) ♦P (Xch) .STARTWRp); 



05961600 T OgU'l 

05961601 T 0214«0 
5 96 1900 T 0214 'p 



28 
29 

30 



Sj»U[j+i],starTwkd-s; h:»k«»k-i; if utct;sL3»dend gtr a Then gu x; 

W» IF UTcT4.(H+L + l) UjV 23 .DEND > A TrEN jF Ul [ H*T- 1 3 ,DEND > A ThEM qO ^ 
El SE else if UT[T«-T»1].denD S a THEN BEGIN L»T*i; GQ W END; 



05962000 T 0218»1 
05962200 T 0225«0 
05962400 T 023H2 



31 
32 
33 



Xj IF A GEQ LV8(Ht»UTtT3 ,0EN0)-(Q»aUTtT3 .OSl/lE) THEN 
IF (LA»-iCA + N)) LEO H THEN 60 aZjAREA AVAILABLE 
Else if la lEQ SAn«(UTCT*l3»DEND"gTi:T-»l3tD5IZE) THEN 



n:=la-a»«h else n:=sai-a»=h else 
Ni=L-A ELSE «dtj5RDt OR e>iooooo; 
GC inuSe; 



05962600 T 023913 
0596270Q T 02««ia 
05962600 T 024611 



34 

35 

36 

37" 

38 



IF (la»»a+n) gtr l Then 



05962900 
05963000 
05963100 



T 0251»0 
T 0257»3 
T 026l»i 



Y| TMlDl.IF ROT THEN "OKTEST "ELSE "BAMSK 
$ SET OMiT • NOTcOKBNOdFX AND NOT pfX) 
STREAMCTKID*FlD*Nf M I D # B # B UFF 3 ; 



"; 



05963800 
05963809 
09964000 



T 026310 
T 0265 »1 
T 0265*1 



40 
41 
42 
»3~ 



BEGIN DS«=LiT "."; Si:=LQC TMjD; Sii^Sj+i; DSl*7 ChR; 

dSj.lit ♦•/'•; spsSi + i; usj«7 chr; 

DSt»U LIT " NOT CREATEDC"; SU'SI-t-s; SKIP SB/ 



05964200 
05964400 
05964500 



T 0267«1 
T 0268»2 
T 0269 » 2 



45 
•6 

47 
«8 

49 
50 

51 

a 

S3 
54 
55 
56 



IF SB 
BEGIN 



THEN Else 

Slf«LOC Hi 



Ni Dsts? dec; nm«di; diiwoi-?^ dsis? fill^ 

l»& LIT " SEqS"; Sir«S|»ij 

T « TTi I I ct 5u fTf Ac. -7 ruDf nua-i TT«y»»t ~ 



05964600 
05964800 
05964900 



T 027210 
T 027213 
T 0274*0 



end; 0S» = U LIT " IN 
SlJsSI+i; dS:=7 CHR; 
DSJ»2 LIT")*-"; 



USE BY 



DSl=7 CHR; DSJSLIT"/"; 



05 965000 
05965200 
05965400 



T 027512 

T 0278«0 
T 0276»2 



end; 

FORGETSPACECe)' 

GO exit; 



05»65600 
05*66 1 00 
05966110 



T 027910 
T 027911 
T 028010 



InOSEI 



% Search the directory to find the name of the conflicting 
% file. since userdlsk remains locked* disk allocation 

it CANNOT CHANGE* HENqE* THE DIRECTORY NEED NpT BE LUCKED* 



05966200 

05966210 
05966220 



T 0283«0 

T 0283«0 
T 0283«0 



FoRSETSPACe(R)^ 
F1XARRAY(UT#H#48P); 



STCP 16 WHILE TRUE DO 



•■liiiiiiii 



mmmmiik 



BFGIN DISKwAIT(-R*480*J); 



05967200 T 0292J0 



# • 



>r 



9 
10 
11 
12 
13 

14 

1 
'5_ 

16 

17 

18 



19 
20 



21 
22 
23 
24 



2S 

26; 

28 



30 
31 ' 
32 
33 

34 
35 
36 
37" 



38 
39 
40 
41 
42 



«3 
*4 
45 
46 

47 

«a 

49 
50 
51 
52 
M 
S4 



55; 

56/ 



FOR IlsU bTEP -I UNTIL DO 
REGIN F-taUTL4S0^^?xT]; 



IFU EOV eU4)»N0T 
BEGIN MiDt«*»SYSTEH 
IF (£ EQV glA3 NEQ 



THEN 

"> 8««FI0; 

NOT THEM 



GO It CNDI 



BEGIN 8JsUT[30xi*9J AND 31^ 

FOR K«*i STEP 1 UNTIL B DO 
IF (C«aUT[30xn.9»K])NEQ ThEN 



IF A GEQ C THEN IF A LSS 
SAll*CC + 0J»UTf30»«I*83 J THEN 
BEGIN MID»»E&((LA LEO SAD AND 



<HDT,cie«i5]))tiu7«n; 

IF A+N GTR SaI THEN N^SAI-A; 



tmi 



tmi 



„Gov"fi?iii 



end; 



END' 



Zi 



SET OMIT » NOT SHARED I SK 
mOCKTOG(USEROlSKMASK); 

m to if ■ ..■ •' ;-•■,■■; ^: 



AZ» IF A NEQ L AND LA NeQ h THEN 
BEGIN IF SsQ THEN 

SET OMtT g notcSharediskj 



$ SET OMIT * SHAREOISK 

BEGIN ir GsO OR 0»C THEN 
BEGIN USER0ISkSPECXALCA5£(2^£»UT>J); GO Tg bI EnOj 



S PCP OMIT 



St*lF P((G+1) DIV iJ*DuP) > D THEN P(DEL*D) 
UcJJ,STaRTWrDJ = I''S; GJaD'S; KJ«G + C-i; 



ELSE p; 



M0VE<C*CUTtD33»tUTun); 
ENOI 
FOR G*»K STEP -l UNTIL T 



TI*T-Si 

00 UTC6»13»«UTCG3; 



UT[TJ«=A&CA-L)CTUDSIZ£]i 
UT[T + l]»«H<iCH-LA)[T0DSlZE3; 

c»=c+i; 






\L:t*M T:H£N 



BEGIN C«*C-i; H0VECK-T#[UT[T+1]]*CUT[T]3 ); Kj.K-l END 
ELSE UTtT]: = (lP AaU THEl\ H ELSE A )& ( Q-N ) C TODSIZE 3; 
UrJ3.NUMENTl«CJ 



IF QaUCJ3.MAXSIZ THEN 
BEGIN Q»BUTCHt*K-C+l3«DSIZEi 
rOR HIaH STEP 1 UNTTI K 



JUL 



ENQi 



IF PCUT[H].DSlZE#OUP) 

ucj3.maxsiz»sq; 



GTR Q THEN Q|*P ELSE P(OEL)^ 



MIDI»IF RdT then "DKTEST « ELSE "BADISK "i 
1 SET OMIT • NOTCOKBnOOFx AND NOT DFX) 
S SET OMiT » NOTtSHAREOlSK) 



SET OMIT » SHAREOISK 

DlSKWAlT(R'AVS*e); 
POP OMTT 



^;;illiiiiiiiiiiiiiiiiiM^ 

■«iliiii«illl«iiiiii^ . \ .. . 



GO EXIT; 



0596/400 
Q^967ftOQ 



05967800 
05967900 
0«>»6BnQ0 



029312 
Q29'S«.n 



05968200 
05968^00 
O'a 969fi0 



029710 
029812 
Q3Q?ifl 



03031 2 
0306«2 
30flt0 



05966600 
05966900 
0S969Q00 



omio 

03i3tC 
0316tt 



0^969100 
05969150 
05969 eOO 



05969400 
05969600 



0317«3 
032010 



O597O0OO 
O597O2OO 
05970^00 



0325(0 
0325*2 



32713 
0330(0 
O330«? 



05970390 
05970500 
Q5 97Q 6QQ 



O597O8OO 
05971000 
0')9710Q5 



033012 
03 30* 2 
0334 In 



05971095 
05971200 
05971400 



0334«2 
0336«1 
337(2 



0337(2 

0337(2 
0339(3 



O597I6OO 
05971800 

Q 5?7iagi 



WWwmm 

05972200 



2^2*2 
0346(2 
0358(g 



0355(3 
0355(3 



05972600 
05972800 
05973000 



O59731OO 
05973200 
05973400 



0361(1 

0364(0 
0367(1 



05973600 
05973800 
' a974nO Q 



0368(2 
0369(3 
036913 



09974200 
O59744OO 
Q5 974 6QQ 



0372(0 
0378(0 
383(1 



0385(3 
0387(1 
0390(3 



05974300 
05975000 
Q' i97 52,0Q 



O59754OO 
05975404 
059754 10 



T 

T 
X 



039210 
0397(3 
Q4QQ>1 



0400(1 
046212 
0402(? 



05975595 T 040212 
05975600 T 0402(2 
9197^601 T Q40|(3 



05975610 

:o f9fgilff 



0403(3 
0407(1 



05975640 T 0409(0 



•K 



45 

46 
47 ( 
46 
49 

:5ol 

51 

52 

S3 ( 

54 

55 

56 ' 

57 



• • 



XDFILE' 

IF... CHEAB.ER.'. 



■ P . IR .I ; . C . T . O .fj.rSE; ARCH( , T . M t n >NFLAQC-JfIp OR M?M)) ^SS 64 TH£N 



BEGIN 



typei«header; 
GO msg; 



05975700 T 
59 , 7^750 T 



0412«0 
04 .12 «. Q 



05973800 T 
03975850 T 
0S9yS000 T 



041511 
04i5t3 



EKQi 

HA^HEADER.CFF]; 

HnR«-[MCHEAOEH«-HEADER 



INX 013 & 30Cet38» 103; 



05975950 T 
05976000 T 
05976050 T 



0417«0 
04l7»0 
04lfl »l 



s«.H0R£8n % Segments per row 

IF UP THEN 



05976i00 T 
05976150 T 



042112 
0422*2 



10 

11 

12 

13 

14" 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 1 

32;!J 

n 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43' 

«4 

45 

46 

47 

•8 

49 

50 

51 

52 

S3 

54 

55 

56> 



BEGIN 



FOR I^-HDRC?] STEP -1 UNTIL 1 
IF (LA»HbR[U9 3)>0 THEN 



DO 



05976250 T 
O59763OO T 
05976350 T 



042411 
04241a 

426|3 



043312 

0439t0 



If A aee UA and a uss ua+s then % found row 

if A*N tE« UA+S THEN GO FOUND EUSE 60 CONFuICTl 
TYPE* 41 



05976A00 T 
05976450 T 
05976^00 T 



CONFLICTI 



IF FALSE 
BEGIN 



THEN 



1 YPE«-3; 



05976550 T 
05976600 T 
05976650 T 



O439I3 
044010 
04401 2 



se6s*a+n-la-s; 
end; 

HEADFRuNLQcK(TMlD^TFlD*HEAnER&HACr.TF3)J 



05976700 T 
05976750 T 
O 59768OO T 



044l«l 
0443*2 
0443t9 



FOUND; 



GO MSGj 
HDR[I»93«-Q; 



05976850 T 
05976900 T 
5976 95 Q T 



0445' 3 

0446«1 

.0446«1 



0lSKWAn<H£A0ER#30*HA)J 

IF CI'-A^IA) GTR THEN FORGETUSERDlSK ( lA# I ) ; 

I f (I<- .L A*5'^<LA»A»N)) GtH THEN FQRGETUS ERDi SKt LA » U; 



05977000 T 
05977050 T 
05977100 T 



0448*0 
0449*1 
0452 t2 



$ SET OMiT » NOTCDKBNOdFX aNQ iNOT OPX ) 

enterfile; 

GO FIN I g; 



059 77124 T 
05977x50 T 
059772Q0 T 



0457»i 
045711 
0458*0 






05977250 T 
O59773OO T 
59773 5 T 



0458*2 
0458*2 
Q<i6Q*n 



IF CA<.H0RCI*93)>0 THEN 

BEGIN 

HDR[I*93»0; 



O59774OO T 
05977^50 T 
0' i9775QQ T 



0464*0 
0466*0 
04^6* 



DISKW AlT (HEADER' 30# HA )# 
W0R0*A; FlD«-DECWORDi 
t SET OMIT » NOTCQKBNODFX AND NOT 



DFX) 



05977550 T 
05977600 T 
0S977624 T 



0468*1 
0469*2 
0471*9 



ENDJ 



enterfiie; 
segS<-segs+i\/ 



05977650 t 

05977700 T 

05977750 T 



047H2 
0473*0 
O474* 1 



FINIS: 



FCRGETSpACE(HEADER); 
P{DlRECT0RYSEARCH(*TMI0^TFl0»6)>0EL)i 



05977800 T 
05977850 T 
O59779OQ T 



0474*3 
0474*3 
0475*2 



MSGI 



TYPE«-5i 

STREAM(TMI u/TfIJ^SEGS» A* T Y PE» BU FF ) ; 



05977950 T 

05978000 T 
05978050 T 



0477*1 
0478*0 
0478*0 



BEGIN 



SI«.LOC SEGS; Dl^tOc SEG*; OS^SQEC; 0S*8DEC1 

Di*uoc SEGsji os*eFiu> di*-loc a; ds«-6 fill; Di>aurri 



os«.LiT«."; si^LOc tmid; si«.si + i; 
DS^uiT"/"; SI4.SI + 1; ds«-7chh; 

DS»11 LIT" NOT XD"ED("; 



05978100 T 
05978150 T 
05978200 T 



0480*0 
0460*0 
048110 



ds*7chr; 



05978250 T 
05978300 T 
0597e|50 T 



0482*1 
0483*2 
0464*2 



Tmmmmmm 



mr 



C H f^ ; D S ♦ 6 LI T " S E 6 5 " ; 






048«t3 



J? 



05978550 T 0490*1 



Tl« 
T2« 



DS4-6 UIT"IN USE"; GO EXT; 
DS«-11 LlT"aYSTEM FILE"/ 6U 



EXT, 



05978600 



0491 
0^9 ? 



«2 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

3U 

32 

33 

34 

35 

36 

37* 

38 



T4« 
T5I 



DS*t2 LIT« HOT IN FIUE*** GO EXT; 



05978700 
0597STS0 
5978800 



T 0«94 
1 0<t97 



M 



E XT' 



DS«-6 LIT" 5t.GS = "; rjS«-8 CHR; DS«-7 LIT" XD-ED*"; 

TYpE«-Di; di«-buff; US4-LIT" "; di«"TYpe; go EXT; 

pS<-2 LIT")^"; 



05978B5Q 
05978900 
Q'i978Q50 



T 0H97 
T 0500 
-J OSQl 



«2 

i-2. 



ENO stream; 

A* 1 1 N^SEGSI X FOR LOSaiNQ 

GO exit; __^^__. 



05979000 
05979050 
5 97910 



T 0502 
T 0502 
1 QifiLi 



»0 
»1 



exit; 

IF A/0 THEN 
BFGIN 



05979310 
05979320 
05979,330 



T 0504 
T 0504 
J 05X15. 



»1 



8«-buff; 
mlogit; 



ekd; 



05979340 
05979350 



T 0506 

T 0507 
-I Q5SX 



ll 

to 

Ll 



ajLo 



End; 



IF RDT THEN McSLEEPE" INX 0] 1*1 EtSE SPQUTCBUFF); 
BuFF;»0; IF MSCw NEQ 1 THEN KIll( t MSCk^] ); * CALL^^D AS I^D, RUNNEH 



O59794OO 
O59795OO 
5979ftOQ 



T O5O8 
T 0512 

J 05 1 4 



«0 
lO 

L3_ 



SAVE PROCEDURE OlSKlOtiOC IOD#OORE#SIZE#DISK);X 



_STaR1__QF SAYi, 



06OOO000 
JE ftMENT I BASE 



VALUE CORE/iJUt*DlSK;ai 

REAL lqciod;x 

INTEGER C0HE*SIZE*DISK;» 



Size* os 
T oooo 

AODSfeSS 



15 WORDS 
»0 
m Q0S64 



06001000 
06002000 
06003000 



T 0000 
T 0000 
T 0000 



«0 
«0 

10- 



BEGIN REAL lOD* OLaYIO* FIn; 

oLAYio i» bizE.tan]; siZEtCaiu r» o; 

IF DiSK.Cnn THFN ___^_ 



06004000 
06004olO 

OftOQsnoo 



T 0000 

T 0000 

-I 0003 



10 
«0 
13- 



BEGIN * AUXILIARY MEMORY 
$ SET OMJT = NOKAuXMEMJ 
i SET OMTT a AUXMEM 



06006Q00 
06006999 
Q6Q0920Q 



T 0004 
T 0005 
J 0005 



«2 

»0 
10. 



$ POP OMIT 



8YBYC«INVAHD AUXMtM l/0*"»19>; 

END 



O6OO93OO 
06009400 
Q6QC95QQ 



T 0005 
T 0011 
-I 0011 



10 
»2 
12- 



ElSE BEGIN lOD «= ABScCQRE) & S Ue C8 » 38 « 10 3 

& ((SIZE INX 29) DIV 30 +P1000)[CTfJ 



06010000 
06011Q00 



0011 
0012 
0015 



«2 
13 



* SET OMIT 



NflTCSHAREDlSK) 

STREAM<0lSK,Dl«cORE»CCr3); 

BEGIN SI » LOO DISKJ OS » 8 DEC ENOIl! 



06012499 
06013000 
06Q14O0O 



T ooia 

T 0018 
t 0019 



10 
«0 
12- 



40 
41 
42 
43 
44 
45 
46 
47 
•8 



SIZE ♦ 2>* 

LNu;» 

FlNjslF UlAYIU THEN I OD&D I SK [CTC 3 &D I SK [8 » 21 ? 123 ELSE IOD; 



06015000 
06016000 
O6O161OO 



0020 
0021 
0021 



M 

JO 
«0 



X ACTUAL DISK ADDRESS IN FlNALQ^^E FOR OLAY J/O-S 
IOBEOuEST(NABS(FIN34e377C25l40«e3*IODaiOCIOD3&| 
(SlZE't-16)Cl2i42l63&0LAYlDC9»47tl3); 



06 01 62 00 
06017000 
060 18000 



T 0024 
T 0024 
T 0027 



13 

to 



Lociou *• o;i 

END DISKIO;* 



06019000 
06020000 



PROCEDURE fbrgetespcisk(Segment); Value segment; real segment; forwaRd^ 

START OF REl 
real PROCEDURE getespoisk; it „____^____ 



T 0029 
T 0030 
SI ZE * O Q 



»3 
t3 

11. 



WORDS 



50 
51 
52 
53 
54 
55 
56 
57 



06020500 
SEfsMENi; DISK 
06021000 



T 0000 
ADDRESS 

J 00 



to 

« 00114 



BEGIN REAL T=NTi; 
IF ESPCOUNTsQ THEN 



START OF REL 



segment; disk 

06022000 
060 2 2 l OQ 



address 

T 0000 
T 0000 



00114 



«0 
UL 



BEGIN 



STREAMC0l«Tt»aETSPACE(2>0#0)>».2); 
0S*12 LIT " NO ESPOISK»"j 



06023200 
06022300 
06022400 



T 0001 
T OOOl 

T 0004 



to 

»2 
LL. 



SPOUT(T); 



O6O225OO T 0006«1 



• • 



SLEEP( tESPCOUNTJ^NOT 0); 



2 
3 

4 
5 
6 

7 



£.N.OJ.. 



ST«EAM<T*0*A*ESPTAB»X».0); 

8E6IN SI*.a; 

Lll IF SC*****" THEN BEGIN SI»SI*i; GO TO LI END; 



06022600 
Q6Q2?70n 



06023000 
06024000 
06025000 



0007«0 



T 

X- 

T 000813 

T OOlOtl 

T 001012 



A«-si; di*a; 

L2« IF SB THEN 
BEGIN TALLY*! ALL Y'fi; SKiP bB) SKiP OB/ GO TO L? ^yNQJ 



06026000 
06027000 
O6O26000 



T 0OU«2 

T 0012»0 

J QO 1 2 « a 



Totally; ds»set; 

ENOJ 
6ETESPDISK»(CP(DUPK[rF3*rSPTAB)xa 



06029000 
06030000 
O 6O31Q00 



T 0013»2 
T OQU«0 
T 00 1 <t>l 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

>0 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

«2 

«3 

«4 

<5 

16 

47 

18 

49 

50 

51 

52 

53 

54 

55 

56 

57 



+P(XCH).[30»3])x6+P+ESP0ISKB0TT0M; 
ESPCOUNT«-ESpcaUNT-l; 



JMl 



06032000 
06033000 
Q6Q331Q0 



00 15 « 2 
0018»3 

QQ 8 0« n 



p R.Q c E D'tf RE''Fiititiiliiiftlili»*'teiT :>^^^.'^'':;pliitii'': ■Stew ENi ; -ri a l ■ se Q' w e n t i % 

'■^..^^'-^^■-■^;,^^ -'■"•5^^^^^^^^^^^^^ ' ^^ ^ '■■. ^ ^ ■ STarT Of Rfl 



06036000 



Size* 0021 words 

T 0000*0 
ADdReSS « OQllS 



BEGIN HEAL i»* 
IF SEgME 

SLG 



t; 

NT LSS ESPUiSkBCTTOM UR 

ment gtr l^pdisktop then 



060 37000 
06037100 
060 37 200 



T 0000 «0 
T 0000 «0 
J QQQt 'X- 



BEGIN b «. FLAGC-^ESPDISK")] T * FLAG (••♦ERROR**" ) ; 

S ♦ WAITlOft&EGNENT] INX 2#0»25); 
SNQQZECl023jiC»Q); ... .. 



O6O373OO 
O6O374OC 
O6O375OO 



T 0002»1 
T 0005«1 
J 0Q07»2 



end; 

Tj=(SJ=( 

54.S.f lOt 



T:*S£GMENT-ESPDISKB0TTDM) DIV 6)X6-T/ 

I'iJ&st ■^omsuuesptab; 



06037600 
0603^700 
06038000 



T 0008«3 
T 0008»3 
J 0012»2 - 



STREAM(T 

ESPcOUNT 



*s); begin skip 

♦•espccunt + i; 



T DB; Db*RESET END; 



end ;x 



060 381 00 
06Q38200 
06039000 



T ooisn 

T 0017* I 
T QQ lfl* ? 



$ SET OMIT a iMQT ( DEBUGG I NG ) 
REAL sCHEOULElDs; ^ A BIT In POalTlPN X MEANS THAT THERE 

* schedulecsheet) with schedule-io X, 



IS A JOB In TH E 
USED 8^ CDm5» 



06043999 
06056099 



SiZE» 0021 
T 0000»0 
_I 000»Q 



WORDS 



$ SET QMiT » 



% SELECTRUN 
NqT{ShAREDISK) 



AND CCFINISH» 



O6OS61OO 

06056200 
060S7000 



T 0.00010 
T 0000»0 
T OOOOIQ 



SAVE PROCEDURE DiSKW aIT ( CURE* S I^E' D I SK ); 
VALUE CURE^^'IZE^DISK; 



START OF SAVE 



O6O6I5OO 

segment; Base 

06062000 



t oooo«o 

address « 00595 
T OOOO'O 



REAL CQ«E» size* disk; 
BEGIN re At. T; 

OlSKlOCT,CABSCCOR£)*l?&CDRECiUUjfSIzE»DlSK); 



06063000 
0606*000 
06065000 



T 0000*0 
T OOOO'O 
T OOOOtO 



SlEEP(CT3*IQMASK)/ 



end; 



06066000 
06067000 



PROCEDURE OlSKSQUASHCBUrf); 

Value buff; real buff; 



T 0003*2 
T 0005*0 
SIZE* 0006 wor ds 



T 0000*0 

address » 

T : 0000*0 



START OF REL 



O6O680OO 

segment; dish 

06068 1 00 



00116 



BEGIN 

Real rcw^+o* b**!* 

MSCWe-2* 



£»B+1' F=E+l' R*F+l' HlsR+1* L0=HI+W 



REAL TsIOO-H* SU«|»T; 

Real Al* T+l» A2«Al+i/ A3*A2+1» A4ttA3+|> A5«A4*i; 



06068200 

06068300 
O6O6835O 



T 0000*0 
T 0000*0 
T 0000*0 



T 0000*0 
T 0000*0 
T 0000*0 



% ARRAY VARIABLES 



06068400 
06068500 
06068^00 



REAL Xl*A5*l' X2«Xl+l# X3=X2*l* X4=X3*1/ X5»X4+i; % ScRaTcH VARIABLES 

Real locioDsx^* HiCNT»xtt» lstcnt»x5; 

BOOLEAN C0NfLICT«X5+1/ PASSTW0»CDNFL I CT+l» EUNOTSqUaSHED'PASSTWO* l* 



06068700 

06068800 
06068900 



1 Oo06*o 

T 0000*0 
T 0000*0 



FILE0KaEUNQT50gASH£0 + l# SQAi,L«riLEOK+i; 
INTEGER C»S«ALL + l» 0»C*1' I«0*U 5»l + l* EU»S*i* AV«eU*1* 
AVSIZE»AV*1* PISKAV»AV5UE-»U SgSXZEi'DI SKAV»1 ; 

Array uT=sQSi2E+it*J'' wvsUt + u^J' 'oih*mv+i[*"j» eus«o1w+u*J* 



It 



06069000 
06069100 
0«069a00 

O6t)69300 



T 000010 

T 0000*0 

T OOOQiQ 

T 0000*0 



REAL PRTADDR«»EUS*1* PRTVA|,UE»PRT AODR+ I ; 
L i SET OMfT » NOT SHAREDISK 


06069400 T 
06069500 T 


9 

000010 
,000010 , J 


'i LABEL SCAN#SPOUT£RR«Ck#0KINuS£^NUT0K*0KBOuNOS#HvCMORE»MvE» 

2 ENDMVe*AGAlN#0K,NEXT*SQlT»ST0PSQ#STOPlT*5OXlT*OUT#FlXMVJ 

3 REFINE 


06069900 T 
06070000 T 
O6O7O1OO T 


OOOOlO ' 
000010 ^ 

QOnoio ' 


" $ SET OMIT * SHAREDISK 

^ U = AVTABLE#» 

6 i POP DMTT 


06070200 T 
O6O7O3OO T 
06070400 T 


0000»0 * 
OOOO'O ' 

Qooo'n * 


9;./ '-.^'v'- ■■::' ■■■v:..^^*WriM^»-<-«^^^^^ 


06070500 T 
fl%070600 T 
06070700 T 


0000«0 ' 

000010 

oaooto ' 


'" FACTOR • lOOOO*^ 
" MINSIZE * 10#' 
'2 MAXMV$T?F « yOOiH. 


06070800 T 
0607O900 T 
06071000 T 


OOOO'O '" 

000010 

onoo^n '' 


'* COMMENT 

(15 FACreRl THE MAXIMUM SEPARATION* iN SEGMENTS* ALLOWED 


0607U00 T 
0607UOO T 
06071100 T 


000010 " 

0000<0 

OOOQIO 


16 BETWEEN TWO AVAILABLE AREAS WHICH ARE TQ BE 

>7 SQUASHED* IN GtNERALr FACTOR SHOULD NQT BE MADE 

'8 LARGER THAN THE CAPACITY DF A 20 Ml, SUHMOpM.E.. 


06071400 T 
O6071500 T 
06071600 T 


000010 '« 

OOOO'O " 
OOOO'O 


'» 10*000 segments. 

" minsiZe* The minimum sue» in segments* allowed fOr an 

AVAILABLE AREA TO BE CONSIDERED AS A CAnOITATE 


O6O7I7OO T 
06071800 T 
Q6Q719Q0 T 


0000*0 '' 
0000*0 ^o 

OQontn ^' 


" FOR SQUASHING, MINSIZe MaY BE MaDE AS SMAW- aS 
» ONE, BUT AS SauASH TIME VARIES INVERSlY WITH 
t* MiNSiZE* SMALLER VALUES WILL iNCRpASt SQUASh- 


06072000 T 
O6O721OO T 
06072?0a T 


OOOO'O "^ 
OOOO'O 2^ 
OOOO'O '' 


M InQ TIME PROPCHTIONALLY. MINSIZE lIMITA» 
M TIQNS may be overriden BY THE LOOKAHEAD 
" FACILITY. 


06072300 T 

06072400 T 
060721*00 T 


OOOO'O 2= 

OOOO'O '" 
0000 10 2' 


28 MAXMVSIZEI LIMITS THE NUMBER OF INDIVIDUAL AREAS IN AN 
» IN-USE AREA To BE At MOST MAXmVSIZE/3 AREaS 
M FOR SQUASHING TQ OCCUR. 


06072600 T 
06072700 T 
06072800 T 


OOOO'O 2" 
OOOO'O 28 
OOOOlO 3" 


"»■■■. NQTiEl 

»2« n MAXMVSIZE MUST 9E LESS THAN 1024, 

J3 5 2) MAXMVSIZE MUST BE A MULTIPLE OF 3, J 


OAO 72900 T 
06073000 T 
06073100 T 


OOOOlO '' 
OOOOlO '2 
OOOOlO 33 


» DEFINE CELL - MCPRTADDR)** 

35 STOP = M[PRTA0DR])»* 

36 STOPCK * IF MCPRTADDR] ThEN GO STQPSaf, 


06073200 T 
06073300 T 
06073400 T 


OOOO'O 34 
OOOO'O 35 
OOOOlO 36 


" MOVEABLE • NOT DIRCX 3*4] ♦ t 421 1 3«, 
M TEMPOSK » MVCl+23,Cl»i3#* 
» SUB80UTINE SQUASHMESS; 


O6O735OO T 
06073600 T 
06073700 T 


OOOO'O 37 
OOOO'O ^ 
OOOOlO 39 


4C R r P T Ki 

IF (XU«P(XCH))>1 THEN X3J = IF SOSIZE^O THEN SQSlZE 
« ELSE EUS[EU-1],DSIZE; 


06073800 T 
06073900 T 
06074000 T 


OOOl'O « 
OOOUO *i 
000410 " 


♦3 STREAMCA»«Ea*l*8laxl*CS»X3,Cl»sO,C2>*0*CXl«0, 
♦4 ; NOSQt«EUNOTSQUASHED* X2»*X2 t«SPACEC 10) ); 
♦6 - BEGIN 


06074100 T 
06074200 T 
06074300 T 


0006'3 « 
000910 ** 

001113 


« CllsCli GO TO Lo; 

" SllsLOC a; DSJ34 LIT" EU »} DS«s2 DECi 

« AjsDl; Dl««0I-2; DSt«FlLLJ dii»a; CI:sCXi 


O6O744OO T 
O6O745OO T 
06074600 T 


OOU'3 *" 
0012' I *^ 
0013»2 


«■■:•■:.■■■:■ ■■■••.•.•■ :;ttl.^^^Mlif»ftl?.?*W::T0^....L.2i-OS:r»4:;L|l^ 


06074700 T 
06074800 T 
06074900 T 


001413 « 
00161 1 

001713 


B2 GO TO LLO; GO TO LLO; GO TO LL2i GO TO LL2i 

« LLOJ CX»«CIi cn»ci* 

!4 B(NdSQ(DSJ«LlT" 'S CX«sCU CI»*C2))* 


06075000 T 
06075100 T 
06075200 T 


001811 52 

001911 " 

001913 ^ 




0607S300 T 
06075400 T 
06075500 T 





DS»»3 LIT'^ING"; 



06075600 T 002610 



• • 



h- 



14 ; 



19 

20 



23 

24 



2B 
26 ; 



27; 
28 



29 

» 

31 1 



33 
34 
IS 
36 

37" 



41 
42 



43 



4S 



•6 

•7 



49 
50 



52 



34 



55 

56 f 



LLU GO TO EXT; 

. ui2f ..i?i,4ikim'.i 9.M ?.t;.j.f ....ci,.«.=.c.ai. 



i»i*iiiiiiiiiiS;iiiiifiii«ii;i 



0S«*2 LIT" ('«; SiisLOc c; 

Dsi»6 pec; ctwoi; onsui-6' 05**5 fill; dh«c; 
D§»',19 LIT" S^GMFNTS aV All,. ahle"; 



i ;;ii i' 






e:xt» dsjsliT"*"; 

end; 

SPOUT (X2); 



«iiiiiiis»l«fciiiaiiiiiiiiii 

SUBROUTINE. aCANMESSAGEi 



Xl«*(X5JaNEUP.CFr])-i; 

FlXARRAYceuS.A5'X5); 
HpyE(X5*A?r l^A 5); , 



X2»-yuFF.C30»l8Ji 



SCANJ 



X5l»-l; X WILL BE GEO ZERO AFTeR FIRST PASS THRU ScaN 
STRFAMfA<»O»Sl2»«Q*EUtt»''l^EU2l»*l«FRRTQGi = QlNQ<«0j 



BJ»x5<0»LU«s?2564000000000000,CX««0,Cl'sU, 

C2JaO*KTHlsX2); 



BEGIN 



API 



Cll«CU 60 TO L2i 
IJT SC<0 THEN 
BEGIN TAUYlai; 



NOt»TALLYJ CIl«CX end; 



JLIL 



IF SCS12 THEN GO TO AC* 

on«LOC su; 

IF SC GEO THEN IF SC<12 THEN 



8iii»: 






GO TO 

end; 
noj'Tally; 



LI' 



si»»si-N0; 
DsiaNo oct; 

TALLY»»0J NOtsTALLY; 



cpscx; 

L2» C2»=CI' GO TO STR; 
TALLYt»i; on«Loc Eu; 



IF 2 SC«OC THEN X AN EU SPECIFIED 
BEGIN 

CXtaCI; GO TO L3l 



IF Sc 
BEGIN 



GEQ THEN IF SC<12 THEN 
Sll«Sl»i; DItsLOC EUi; 



if SC GEQ THEN I# SC<12 THEN 

■Tiifeil:;f«iK£i^&E^ :«,vTQ:,,A:il:.v:.'.-. ■ 



End; 



END 



OStsNO 
ELSE GO 



OCT; TALLYjao; 
TO Ai; 



msm 



noi»tally; 

iliiiilfeiiisi 

HB'JfiSli'B'f 



cii«a; 



mmmmmgmmmmmimmmiQj . ^en-ggjci- 



sTRi sijsKTS; cijsci+b; go to l5> go to la; 



06075700 
06075800 



06075900 
Q6076000 
QA076lQn 



0026(3 
Q,.027Jn 



0028*0 
QQ2Bt2 
002 9H 



06076200 
06076300 
06076400 



06076500 
06076600 
06076700 



003l«0 
0031 « 3 
0039»n 



06076800 
06076900 
60770 



ooista 
00 37 1 3 
Qoaati 



06077100 
06077300 
6077 30 



P038»3 

0039 n 

, 9 03.9 » .2 



00401 1 
004012 
004H0 



O60774OO 

06077500 
0607/600 



06077700 
06077800 
06 0779 00 



004110 
Q04<J»2 
048 > X 



06078000 
06078100 
06076200 



0050»3 
005l»3 
Q Q51 I 3 



0054«1 
0055»3 
00^612 



06076300 
06078^00 
06078500 



0056»2 
0057tO 
0Q 57» g 



060786P0 
06076700 
0607^800 



06076900 
06079000 
06079100 



0058»1 
005910 
005911 



0060»1 
OO6OI1 
0060»a 



06079200 
O6O7V3OO 
06079^00 



0060«3 
OO6IJO 
0061«0 



O6O795OO 
06079600 
06079700 



006lil 
006113 
0062*1 



06079800 
06079900 
06080000 



0062»3 

006310 
0063*2 



O6O8O1OO 
06060200 
06080300 



060eOitoo 
O6O8O500 

06080600 



0064*0 
0064*2 
0064*2 



0065*0 
0066*0 
0066*0 



06080700 
06080800 
06080900 



0066*2 
0067*2 
0066*1 



06081000 
O6O8I1OO 
06061209 



06081300 
06061500 



0066*3 
0069*2 
O Q7,Q*0 



0070*0 

0^70*2 
007Q*a 



06081600 T 0072*0 



n 

2 
3 

4 
5 
6 
7 
8 
9 
)0 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20* 
21 
22 
23 
24 

26 6 

M? 

27 f 



L4« IF sc»"*" Then go 



TO ext; 

S|2E CHECK 



06081700 T 0073«1 
6Qfllfl QO T 007^«0 



11^ 



NOCJUMP our TO L5)l 

cxt»ci; fiO TO lit 
IF sex"*" Then 



06001900 T 007412 
06082000 T 0075*3 
06082 lOQT 0076*1 



Ai« GO T(J err; 

GO ext; 
l5« Ajsci; ci«*C2; 



% £U CHlCK 



06082200 T 
06082300 T 
06082400 T 



0076'3 
007710 
007711 



nqcjumb 

IF SO*"" 
eSGIN 



OUT TO 

'♦• Then 



ERR); 



06082500 T 0077*3 
06062600 T 0079*0 
0608270 T Q0 79 l a 



SjssSI+i; cx»*Ci; GO TO ui; 
cxi«ci; citsct; % size ch£ck 

NQ(JUMP QUT TO L6); GO TO L7 t 



06082800 T 0079*2 
06082900 T 0080*1 
0.^,083000 T 0099*3 



■•oiOiiiii".vf'''-.:liiiiiv 



L6t 






L7» 



end; 
aj«tally; 

IF SO"'**" 



» ZERO OUT A 

Then go to ext; 



06083400 T 0085*0 
06083500 T 0085*0 

06083600 T 00 85*1 



If SO***" THEN 

BEGIN si»«si4j; Ai«si; qo Ext end; 

ERR* TAULT*«lf ERRTOGraTALfy; 



06083700 T 
06083800 T 
06083900 T 



0086*0 
0086*2 
0067*1 



EXTS 

end; 

IF P THEN 



% ERROR IN INPUT MESSAGE 



06084000 T 0087*3 
06084100 T 0087*3 
060 8 42 T 00 88*0 



BEGIN 
SPOUTERR* 



SgOUTcPCBUFF.C15*l53*l»DUP)&McP''l3[9»9*93u 



06084300 T 0088*0 
06064400 T 006812 
060 8<t5 T 008 6*2 



28 
29 

90 



fnd; 



F0RGETSPACECA5); 
P(XIT); 



06084600 T 0092*2 
06084700 T 0093*1 
060a4fl00 T 0093*? 



31 
32 
S3 
34 

3S 
36 



If (X3l»P) GEO THEN % AN EU RANGE SPECIFIED. 
BEGIN 

ir {X4*«P)>Xt OR X3>X1 THEN GO SPOUTERR; 



06084900 T 
06085000 t 
OrtOflStOO T 



0093*2 
00^4*2 
0095*0 



FOR U«X3 STEP 

pcDEu; 60 ck; 



1 UNTIL X4 DO EUS[l3t»i; 



end; 



06085200 T 0097*3 
06085300 T 0103*2 
06065400 T 0104*1 



37 
38 
39 



X5*»P(XCH); X SIZE OF SQUASH 

IF <X4I»P) GEO THEN IF X4>X1 THEN 

EUS[ X4 3 *« UX5 ET0 D S I Z E3 E L SE IF X 5aQ 



GO SPOUTERR ELSE 
THEN §QALLtfl 



0608550O T 010411 
O6085600 T 0105*0 
QAQR57QQ j QlQ7lt 



to 

41 
42 



ELSE S«SiZE*aX5; 
CK» IF CX2J3P)^0 THEN GO ScAN; 
END SC ANNING I NPUT HLSg AG t:; 



» NOT FINISHED YET 



06085800 T 
06085900 T 
0608600 T 



0111*3 
0113*3 
0115*1 



Subroutine fixanowriteheader; 

BEGIN 

MCA4.i.94X2f C26*S33»»C; 



O6O861OO T 
06086200 T 
O6O863 O O T 



0115*2 
0116*0 
0116*0 



•6 

«7 

«e 

«9 
50 J 
61 { 
52 
63 
54 



diskwait{a4»30*x2,ccf3); 
end writing new header; 
Subroutine boundaryck; 



06086400 T 01l9«0 

O6O865OO T 0120*3 
06086600 T 0l2lt0 



BEG IN 



06086700 T 
06086800 T 
06086900 T 



0121*0 
0121*0 
01 84*0 



X3**HICNTJ»0; SToPCK; 

for Il»CNr STEP -3 UNTIL QO 

IF P(MVCI3^DUP)»DEnO>X3 AND P(XCH)>0 



THEN 



06087000 T 
06087100 T 
06087200 T 



0124*0 
0127*0 
0128*0 



55 .» 

58?, 



BEGIN 

ii ■■ 

BEGIN 



iiiiiiliii 



mmmMm. 



'mmm-:<^mmit^t 






56 
66 ( 

67 



MVCLST0NT + 2 3,LINK|»«»1777; 



06087600 T 0l37«0 



• • 



>T 



GO OKBOuNDij; 



fnd; 



ir MtA2-U<0 THEN MCA2»13»«HICNT ELSE MV|:lSTCNT*2 J tUINK IsHKNTi 
MVtUSTCNTl«HlCNT3iaNABS(*PC0UP)); 



06087700 
Q60fl7fl00 



06067900 
06068000 
06066100 



0140<0 
0H0 «? 



0U0I2 
014812 
015013 



4 
S 
6 
7 
8 

9 ,;• 

10 
11 
12 



OK J 



Hn«Hl-CXJl«MVCMICNT],DSlZEj; 
IF X3 LEQ UTCAV + n.ASIZE THEN 
BEGIN 



060B8200 
O6O883OO 

oftoee ^ iO tf 



Ol53t3 
015611 
.15 8' 1 . 



XM. 



MVCHICNT*23«#0; 
GQ HVEMOfiEi 



O6O885OO T 013813 
06066600 T 0l60<2 
06088700 T Ol6tlQ 



BEGIN X LOOKING FOR TEMPORAHY STORAGE 
FOR H*S-2 STEP -1 UNTIL D DQ 
IF X3 LEO UTCI3«ASUE THEN 



iiiiiWiiiiiiii«iWiiiiii 



06088800 T 
O6O869OO T 

O, 6O6 9Q Q0 T 



0161 10 
0161J2 

O t0 5«3 



13 :t 

14 ■ 



IS 
16 
17 
18 



ti!iji|«ii:itiit p .3 T-o R A o'C' 



06069100 T 0l6r»l 
06069200 T 0l<i9t0 
06089300 T 0i69lg 



GO mvemqre; 



end; 



ENU; 



06089400 T 
06089500 T 
06089600 T 



0173»0 
0l73«2 



o 

20 
21 
22 



23 
24 

26 I 
28 1 

v'i 

28 
29 



IF PASSTWO then X NON-PROTECTED FILE TRANSFER 

BEGIN 
QISKWAlT(-Afl«ijQ>M\yCHICNT»g3,CCF] W 



STREAM(A»=CMCa4+MVCHICNT+2].CFF]]]*X2IsX2»'SpaCEC6)); 
BEGIN 
nSt«2/ LIT" gFTLK iNTFGRfTY rONFLTrT: "? Slt^A; 



06089700 
06089800 
06089900 



06090000 
06090100 
Q6Q9O2OQ 



0l74«0 
0174*1 
Ql?Ul 3 



0l77«2 
018310 
0l83«n 



slt«5Ui; os»*7 chr; dsi^LIT' 

D8»«7 chr; DS» = LlT«4.«i 



/"; situsi'n; 



g»<n» 



06090300 t 0l87jO 
06090400 T 0l88»l 
Q6090S0Q T 01B9IO 



30 



SP0UT(X2); CELL,KEYlNMASK:a7/ 

sleepccprtaddr inx H^»97777?)i stqpck; 

ir CELL»2 then begin CELLlgQ&lCCTF]; GO 



TO OK end; 



06090600 T 
O6O9O7OO T 
6090flOQ T 



0i89«l 
0l92«i 

Ol 96 » 



3^'^ 
32 1 



33 
34 

35 
36 

37" 

38 

39 



END ELSE 
TOGJatO; 
QKBQUNDSl 



confljctu^true; 



O6O9O9OO T 0202*0 
06091000 T 0203M 
Q6Q9110Q T 02 04 1 



End bcundaRv and conflict checking; 

BOOLEAN subroutine INuSeOK; 
BEQIN 



06091200 
06091300 
06091 ft O Q 



020410 
0204)1 
0205»Q 



UTEAV+lJ.Cl'lJJ'NQT PASSTWOi TOGI'l* CNTt*0; 
FOR XlJaOlfiECToRYToP+4 STEP 16 WHIlE TRUE 00 
BEGIN stqpck; 



06091500 T 0205»0 
06091600 T 0209*3 
06091700 T 0213*3 



40 
41 
«2 



0lSKWAlT(-Al#480*xn; 

FOR II^H STEP -I UNTIL DO 

BEGIN stqpck; 



IF CCEt«DlRC45o*P(I*DUP*+)3) 

GO TO NOTOK; 

IF (£ EQV *14)X NOT THEN 



06091800 T 
06091900 T 
06092000 T 



0215*2 
0217*0 
0218*0 



«9 
SO 



S3 
54 



set 



EQV #114 3«NQT THEN 



BIGIN FILEOK.«faLSe; X INITIATE STaTuS CHECKINg 
8«*DIR[(X3»«30xi)+9 3,CA3*53; 
FOR X2«»l STEP X UNTIL 8 DO 



IF (CI«0lR£X3+9+Xa3>^0 THEN 

IF P<C#0UP)<HI AND PCXCM)>LO THEN 

IF FILEQK THEN GO FXXmV EUSE * CHECK STATUS 



IF NOT SYSTEMFlLECE*DIRC450+P(I»DUP#+)+l]) AND 

DlRCX3+43,[l2»43a0 THEN X NQT SYSTEM FILE 
IF (P(DIRCX3*43,DUP),EH3 3 OR P( XCH ) . [ 1 6 *203 QH 

NUT IN USE 



iiiii^HiiPiii 



THEN 



% 



FILE 

NOT PERMANENT 



lis 



■|gy|.||j-j;^|,y Yj|wj||«»,|r|.py:||^|r|.^ . ^. y . ^^^^ ^ ^,^ ^ ^^ ^ ^ ^ 



06092100 
06092200 
060923:00 



06092400 
06092500 
06092600 



T 
T 



02i9»l 
0223*0 
0223*2 



0225*0 
0226*1 
0229*1 



06092700 
06092800 
06092900 



0230*0 
0232*2 

0235*0 



06093000 T 0235*3 

06093100 T 0239*2 

06093200 T 02<tl*3 

0^091306 T, ^^f»'f ' 

0*091*00 T <&a*;|ii 



, :ig|g|j , |gg. , 



©1 



la&f' 



57) 



FIXMV« USt »«USt.-(MVCCNT] » *C&DIRC X3 + 8 J [ TOUSIZEl ) 
, t PSI ZE; 



06093700 T 025013 
Q6Q93aQ0 T 0252»3 



1 
2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
16 
16 
17 
18 



MVtCNT + ni«»(XUl)«X2CCTF3i % HEADER 
IF PAS6TW0 THEN 1 SAVE LQC OF FIDS 
MV[CNT^23I«(XU15)4CI'<2)CCTF3J 



INFO 



06093900 T 
06094000 T 
06094100 T 



Oa56«l 
025et0 
025611 



IF uSE=o Then % found all users of in-uSe area 

BEGIN 



06094200 T 
O6O943OO t 
06094a00 T 



0262>0 
0262»3 
Q26 3 M 



«c okinuse; 

end; 

IF USE<0 THEN GO TO NOTOK; % DIRECTORY ERHpR 



06094500 T 
060*4^00 T 
06094TOO T 



02^410 
026412 
0264*2 



IF (CNT'«C^T+3) MOD 150 "0 THEN 
BEGIN 

l!^,j;f1T»f<AXMVSiZE THEM 90 TQ NQTQKj 



0609 4800 T 026513 
06094900 T 0168 «0 
0609^0.90 T 0268',? 









END 



end; 

E USt GO TO NEXT t:L§E GO TO N^XTj 



O6O954OO T 
06095500 T 
06095600 T 



0277»l 
0278»0 
027a»0 



19 

20 
21: 



ENOi 



next: 



end; 



end; 



06095700 T 
06095600 T 
0609590 T 



026011 
028011 
Q 2 62t2 



22 

23 
24 



NOTOK! 

TOGr 
OKINUSF? 



06096000 T 
06096100 T 

.0609^200 T 



028310 
0283«0 

0263< 3 



25 
26 
27 

2a 

29 
30 



inuseokjktog; 
End Searching in use areas; 

SuBROtlTlNF MOVEAWOFIXi 



O6O963OO T 0283»3 
O6O964OO T 028411 
06096SOO t 028412 



25 

26 ( 

27 



BEGIN 



i>»MCA2»iJ; stupck; 

WHILF I <f l 7 , 77 P U 



06096600 T 0285«0 
06096700 T 028510 
06096800 T 0288 » 3 



31 ; 

32 n 
33 
34 
35 
36 
37" 
38 
39 
40 
41 
42 



BEGIN 
MV£ 



I 

0lSKWAlT{-A4*30,{X2l«MVCl+t3)aCFJ)i X READ IN HEaOER 

Xl»«*30; FI»P{MV[n,0UP),U£NO»(et»>PCXCH).ASIZE); 

IF PCMV r 1 + 23 .nENDsO»''''if* ^ twcM r twHM f r j.i ^ r o t o^^ 1 



O6O969OO T 
06091'OOQ T 
Q6097i00 T 



0290)0 
02^0*0 
02^ 31 1 



IF P(MV[I+23,dEND«0»DUP) THEN C» 
MVCn.DEND«*(C»sMvn + 2J.DEND)-B; 
WHlLt: (Xi:gXX-*-30)<B DO 



'MVtI+l3.C2«263 ELSE 



06097200 T 
O6O973OO T 

O6097400 T 



029712 
0302M 
030713 



BEGIN 



IF STUP 
BEGIN 



THEN X STUP SQUASH BUT 8E CAREFUL 



O6O975OO T O309I3 
06097600 T 0309»3 
06097700 T 0310»3 



IF TEMPDSK THEN UT [ MVC 1 + 2 3 . C2 J 10 3 H «( *P ( DUP ) )-«> 
UTCAV*n.DENOlsMV[I + l3,[2>26 3; 

c;«»Mvcn.DEND; fixandwriteheader; 



06097600 T 
O6O979OO T 
O6O98QOO T 



03un 

0316«2 
032013 



40 
41 ( 

42 



GO stopsq; 
end; 
e«»if p((b'xn»0up)<30 then p else p(0el>30)j 



06098100 T 
06098200 T 
06098300 T 



0323*0 
0323»2 
Q323»2 



46 

♦7 



DISKI0(T*1-A3*E>«30,FJ»F-E); 
iaDJ-lOD&(Ex30)[8« 3b»l03&EC27l42»63; 

L0cidd»»q; sleep(CT3*iomask); 



O6O984OO T 0327*0 
O6O985OO T 0330«2 
06098600 T 033313 



49 

50 
51 



iltiiJi»t«' i'iisi»t*l *;«»»*Pi' )■ ; 



06098700 T 
06090800 T 
06098900 T 



033610 
0338*2 
0339*1 



S2 
S4 



[L0CI0DJ&18C12I42«63 ); 
SLEEP(CL0CIdD3,lQMASK3; 
IF LOC 10 D.t 28113 THEN X WRiTE LOCKOUT 



DCCURED 



06099000 T 
06099i00 T 
06099200 T 



O341I1 
034213 
34411 



55 f, 
eel! 



BEGIN 







: 0:6 0:ttiiijS T,v?:' '.iff: iWi? 



55 

5«( 

52 



end; 



06099600 T 0355*3 



• • 



>r 



end; 



IF NOT P THEN X TEMPORARY DISK STORAGE hAS USED. 
BEGIN 
MVtU21.nENfii»OI 



06099/00 
QftQ99aQ0 



06099900 
06100000 
QftlOOtOfl 



0355J3 



0337*0 
03S7I1 

Q,n5rt3 



TEMPpbKJ=i; 
GO TO MVE^ 



end; 



06100200 T 036013 
O6IOO3OO T 036313 
06l0n/>0Q T 03fta»l 



I»bMV[I+2],LINK; 

end; 

WILL NOW RyCONFlauR£ THF aVAILAftLF TarLF 



O6IOO5OO T 036411 
06100600 T 036611 
06100700 T Q366;3 



10 
11 
12 



UTC A V3 » aH U ( UT C Av 3 ,ASUE+UTt A Vt 1 3 . ASI ZE ) C 2 » 28 J 20 3 ; 
M0VE(S-AV«P(CU1 tAVt2]]*DUP>'N0T iNX P(XcH))' 

c«»cs»»^-n-i/ FOR n-r. sti;p «i until d do 



06100600 T 0366(3 
06100900 T 037l«2 
OftlOlOOQ T 03^5*1 



13 
14 



IB 
16 
17 



IF P(UTtJI,ASl2e*OUP3>US£ THEN USE»»P ELSE P(OEW); 
UtEU3UP<0UP,L00#0UP)4USECit28l20H(P£XCH),NUMENT-l)[TaNUMENT3i 
FUNQTSQUASHEOlsfALSEl ' 



O610UOO T 0*7910 
06101200 T 036413 

06101300 T 038912 



IF NOT SQALL THEN 
BEGIN 

IF P(SQSI2E^0UP)/0 AND P(XCH) LEQ USE THEN CELL^^l 



ELSE IF P<EuSI;EU-U.05IZE*0UP)^0 ANO P(XCH) LEO USE 

then else go to enomvt; 

pcqfd; go stopsq; 



06101400 T 0390 U 
06101500 T 0390 » 3 
06101600 T 039H 1 



19 

20 



21 



06101700 T 039412 
06101800 T 039a»l 
06 1Q190Q T Q399»P 



22 

23 



24 

26* 
28 1 



end; 

ENOMVE' 

End Fixing 



AND MOVING; 



06102000 T 
O6IO21OO T 
06102300 T 



O4OOM 
0400 1 1 

0400 h 



"a 

28 
29 



30 



SET UMJT * NOT SHAREDISk 

p(o*o»0'0*oi'0'0'0#o»o); 

P(0>0*Q»0^ 0*0* 0*0^0*0) J 



pco>o»o»o*o»o»0'0*c»o); 
P(0»0'0'0*o»o*o»0'0); 

P( *DISKSQUASHfUUPf MC(P)3); 



* PRTADDRiiPRTVALUE 



06102220 T 0400<2 
O6IO25OO T 0400*2 
06,,t02ftQQ T 04031? 



O6I027OO 

06102800 
06102900 



O't06»0 

0408'2 
041013 



S2 a 



set omjt • not sharedisk 
scanmessage; 
$ Set omit » sh»redisk 



06103000 T 0412«0 
06103300 T 0412*0 
06103400 T 0413*0 



34 

3S 

36 

37" 

38 

39 



lockdirectory; 
POP omit 

SLEEP(tTaGLE]'USERDlSKHASK); 



lockTugcuserdiskmaSk); 



halt; X STOP NUMMAL STATE PHOCESSiNQ WHILE SQUASHING 
A4»»SPACE(30); 
SET OMIT s NOT SHAREOlSK 



O6IO35OO T 0413*0 
06103600 T 0419*2 
O6IO37OO T 0419*2 



FIXaRHaY<OI^'A1'480); fiXaHHaY (MV, a2m50 ); ~ 

A3*sSPACE(900); 

lOD««gl40QOOlOOOOOOOO&{A3-lUCTc3^ 

IF NOT 5QALL THEN FOR EU**1 5T£P 1 UNTIL NEUP.CFfJ -«. 
iF (CELL«»(i(Sa5iZE#0UP)X0 AND P(XCH) LEO U CEU] , [1*203 ) ) 

THEN BEGIN P<g)^ SqUAShMESS; GQ STQPIT END; 

FOR EUI=1 STEP I UNTIL NEUP.CFF3 DO X 

IF NOT {E»=U[EU3 ),EUnP THEN % NOT A DUMMY EU 

IF EUSCEU^n OR SQALL OR SflSlZE^O THEN X SUUASH THIS Eu 



06103800 T 
0610 3900 T 

0610^000 T 



U610>200 
06107300 
06107a00 



0424*2 
0425*0 
042711 



042711 

0435*3 
0438*0 



42 



♦7 
•8 



w;f 



S3 



B6;; 
57f 



hMiM«ii^iiM 



00 



BEGIN 



eunotsouasheoi»true; 

If NOT SQaUL THgN X QHECX IF SQUaSH IS NECESSARY 

IF (P(Eu5[Eu-n,DSIZE#0uP) LEQ E.[l*20] AND P(XCH)XO) 



squashmess; go stupit end; 



then begin P(3)i 

CELL*»0&H;CTF3; 

^atiiiiiiMliiiiiisiK 



06107900 
06108000 
06108100 



O6IO82OO 
O6IO83OO 
06108400 



043913 
0445*0 
044812 



0454*2 
0458*3 
046o*2 



O6IO85OO 
06108600 
06108700 



0463*2 
0464t0 
0464*3 



06108800 

O6IO89OO 
06109000 



FIXARRAYCUT#R,AVSlZE); 



■••Oi'iOP 

'mmmm 



m 



0465*1 
0469*0 



m 



06109400 T 0481*0 



# • 



s 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

26 

26 

27 j; 

28 

29 

30 

31- 

32 

33 

34 

35 

36 

37' 

38 



40 

41 

42 

43" 

44 

<6 

«« 

47 

•8 

49 

SO 



52 
S3 
S4 

56 5 

56 I 

57 i 



DlSKAV»=I oiv 30+userciskbottom; 

S, SET aMTT « NOT SHAREOISK 



DlSKWAlTC-R*AVSlZt#OISKAV); 
ftSAI^J SUMt«USEI»0; 

__^ FAR nwS^3 STEP ■*! UMTiL n DO 



BEGIN STQPCK> 

IF (UT[I + l3<0)3pAbST^^0 THEN * NOT CHECKED THIS PASS 
TF ((XltaUT[T]tASlZE)»(X2t»UT[I»l].ASlZE)) GEU SUM 



THEN IF (X3l»(CCx4l«»uTCI*n.DEND)*l)-UTCl*l J,ASIZ£)' 
X5l»(UTtl3,0END-l)) LEQ FACTOR THEN IF MiNSUE LE« Xg 
THfM ir MI^iS^7F 1 £Q XI Thfm . 



SqIT: 



BEGIN 



USEI»X3; AVi'i; 
SUMI»X1^X2; » SUM 



PF CURRENT AVAILABLE AKEAS 



END EUSE IF 1^0 THEN X LOOK AHEAD TO NEXT AREA 
TF CCMiNSlZg LFO UT C T*l} . AS TZE ) ANn fCtX5"Xll' 



UTtl-U.DEND-l) LEO FACTOR)) THEN GO SQlT^ 

end; 

IF uSEiC THEN % FOUND A POSSIBLE SquaSH SITUATION 



BEGIN 



IF 

GO 



ihuseok 

AQAINI 



THEN MOVEaNDFIX; 



END EL^E ^ TIME TQ WRAP 
IF CONFLICT THEN IF NOT 
BEGIN 



IT UP FOR THIS 
PaSSTwO THEN * 



eu Unless..,, 
..conflicts exist 



_£M 



passtwdistrue; 

GO AGAINi 
ELSE 



BEGIN X 'clean-up PaSS AFTe^ 
PASSTW0»sC0NFLICT«»0; 

gQ agAin; 



conflicts Resolved. 



STO^SOt 



ENOJ 

FQR I|*D STEP 1 UNTIL S 00 UTC I ] t«ABS(P (OuP*L00)«0t 2 »2l l3 >? 

IF NOT EUNOTSQUAShED THEN 

SHAREDISK 



$ set omit » not 

diskwaitc r/avsize»diskav); 
fbrgetspace(R); 



p(i); squashmess; 
stopit! if stop then GQ OUT; 

END EU loop; 



X STOPCK GOT US HERE 



OUTJ 
$ SET OMiT s NOT SriAREDISK 

FORGETSPACECADi FQRGETSPACEC A2 ) ; 

F0RGETSPACECA3); FORGETSPACEC A5); 
Sox IT » 

FORGETSPACECAa)^ 



CELLt«PRTVALUE; 

STREAM(A:»BUFF.Cl5;l5]-n; 

SPOUTOUFF.ClStlS]-!); 



USJalB LIT" END SQUASH,*"; 



SET OMIT » SHIRIDISK 

unlocktogcusekdiskmask); 
noprocesstoqi«noprocesstog-i; 

KlLLf[MSCW3); 



;i|i|?|ii|p||ii^ 



0610^500 
QftlO?fiOQ 



0485«1 
Qaa7tn 



O6UO3OO 
O6IIO4OO 
QftllOSQQ 



04S7I0 
0488>2 
Q489I3 



O6IIO6OO 
O6IIO7OO 

OQllOflOO 



0494)0 
04«5l3 
0497«3 



O6IIO9OO 
06U10OO 
06111100 



0502»0 
O507I1 
OSUil 



06U1200 

061U300 
QftlllftQO 






061U800 
061H900 
06112000 



051310 
051312 
Q51510 
051611 
051713 
Q52 Q?3 



T 
T 
-X- 



052410 
0527 » 3 
0530»0 



O6II21OO 
06112200 

61 1230 , 



O6I124OO 
O6II25OO 
06 U2 600 



06112700 
06112600 
06112900 
06113000 
06113100 
06113200 



06U3300 
06113400 
06113500 



0530»3 
053l»l 

P534 »0 
0534*2 

0534 » 2 
0536»1 
053613 
0537»2 

053810 
0538»2 
0539 « 3 
0540»l 
0540>l 
054710 



06113600 
O6I143OO 
«11440 Q 



06114500 
06114600 
06114700 



0547J2 
0547>2 
05^91 1 



0550 »0 
0551 «0 

.:0Sf2»'3' 



06114600 
06114900 
O6II53OO 



0553«1 
0553»1 
0553»1 



O6II54OO 
06U5500 
06U5600 



0554»3 
0956»1 
0556M 



06115700 
06115800 

06U5900 



06U5990 
O6U60OO 
06116Q1Q 



055710 
055812 
0562'2 



O6II61OO 
OA116200 
O6II61OQ 



0564*1 
OS64II 
056713 



056713 
05i'l«l 
Q5 72t2 



O6II64OO T OSfUl 
SIZE* 0575 
6179000 T QOQO^O 



WORDS 

START OF hel segment; Disk address » ooi36 



• • 



REAL lookq; 

PRQCrpURF SlGNQFFCv£CTQRyFIl,EBi ^ UCKfPKT3; 



VALUE vector#file8lock^pkt; 

ARRAY V£cT0HC*3#riLEBL0CKt*]jX 



START OF REL 



06179200 

Q6iaooQo 



SE^WENTi DISK 
06U1000 



000010 

ooofltn 



T 

J- 

ADDRESS 

T 0000 

J. OflJlflL 



» 00136 


JD 



REAL PKT^ 
BEGIN ARRAY NAME LOG> 
INTEGER 



N>L/I>J>TIME;X;ili 



06182100 T OOOO 
06183000 T 0000 
06lfl4n00 T OOOQ 



S SET OMIT a 



INTEGER mix; 

NOT STATISTICS 

REAL TIMEAX#T^A<Q^£S£d; 



06184100 T 0000 
06l8«l99 T 0000 
Q61850QQ T OQOQ 



10 

11 

12 

>3 

14! 

15 

16 

17 

IB 



S SET OMIT = NOT(PACKETS) 

$ SET OMIT = iMQTCWORKSET AND WQRKSETMONI TOR ) 
SUBROUTINE TIMEIT;* 



liiiiliK«iMiiliiill^~~~~~~ 



06185099 T 0000 
06185111 T 0000 
Q6l66ooq T OQOg 



GE9 WITCWlNQHOuR DO 



0618?000 T 0001 
06168000 T OOOl 
06lfl8f00 T OOOtt 



l-OGtTlMEAX + 23 ♦ NT2^* 
$ SET OMIT s NOT(STATiaTlCS) 
ST0PL0GCP1MIX»0); 



O6189O00 T 0009 
06189099 T OOll 
061 9 000 T OQU 



19 
20 
21 



Mix^PiMix; piMix*o; 

lOLETlMEiX 

OLDIDLETIML » (LQGCTIMEX3 » VECTORnU* 



06190i00 T 0013 
06191000 T 0015 
6192000 T 00 1 5 



22 

V 
24 

26 

28:; 

27;] 
28 
29 
30 



PROCTlMECMIX])+OLDIOLETlMt; 
LOGLTiMEX + i]<.VECTOR[4] + lOTlMEtMiX]; 
LOG r . T IM&X* gi «■ VECT0R[73;x 



06l93o00 T 0017 
06194000 T 0019 
6 1 95000 T 0Q22 



4 SET OMjT s NOTcWUKkSeT AND WQRKSeTMONITOR) 

STreAMCA*VEcTORC53,C1»23 3«B*0);x 
BEgtN Si » lQC AJ Dl » LOC A/ DS » a DEC ENDJ% 



06195090 T 0024 
06196000 T 0024 
Oa ig r o OQ T 0Q 26t 



s Set omtt 



LOGLTIMEAX] «■ 

L0G[TIMt.AX+i] 

NOT(STATISTICS) 



P(XCH);X 

♦ VECTORt53.t24«243;X 



06198000 T 
06199000 T 
06199Q99 T 



0027«2 
002910 
0031 « 3 



Jl:f 

32 

33 



NT4 «■ VtCTaRt23,X8a03;» 
l-OGETlWEAX + 33 «■ IF VECT0RC13 
♦2 ELSE NT4 g 3;» 



< THEN (NT4" 99) 



LOg[TiMeaX+33.[1»303* DATE, C 18 J 30 J ; 

LOGCTlMEAx+4 3!sUSERCODE[MIX3; 
SET QMiT = N0T(DcL0g ANQ pATAcOMJ 



06200000 T 
06201000 T 
06202000 T 



003l»3 
0033»l 
0036;2 



34 
35 
36 



06202100 
06203000 
06203099 



0039t0 
0042'3 

0045»0 



37 

38 
39 



IF TABCNTtMIXIXO THEN 
BEGIN T:»CLQCK+900; 

C0MPL£XSLEEPCTAfiCNTCMlX3«0 OR CL0CK>T3J 



06203600 T 0045«0 
06203650 T 0046»3 
06203/00 T 004B«2 



40 
41 
(2 



04b68366 accidental entry at t 

end; 

$ SET OMIT s NOT (DAtACOM AND NOT DCLOG) 



06203750 T 0055«3 
0»203790 T 0055«3 



46 
46 
47 
«8 
49 
50 
51 : 



S SET OMlT a 



••■ ••■|F' 
. if 
NOT (PACKETS) 



tERMlX,LeF3«M|X THEN TeRMIX tiPl??/; 
STOPyOBsMl X THEN STOP J08l»?ir77; 



06204000 T 
06205000 T 
06205009 T 



00S5I3 
0058 «1 
0060*1 



USERCOOEtMIxJ »= 0; 

STREAMcS«-tNpQ[CMIX-l)xNDX3 3);X 

BEGTN 0S*8 jU "0**; Sl«.Sj DS4-2 INQS; ENpJit 



06205100 T 
0620520C T 
6205300 T 



0060«1 
006l«2 
0063 «2 



S SET OMIT » NOT(PACKETS) 
S SET OMIT n NOT STATISTICS 

JARR0WCMIX3 ISPRTR0WCMIX3 t«0; 



06103509 T 
06209540 T 
06206 OOP T 



0065* 2 
006512 
0065*2 



52 

a 

54 

55 



$ SET OMIT 



END timet; 

NQTCPACKETS) 

A » VECT0R[63.[33»151;X 



06206100 T 
06206109 T 
06207000 T 



0067*3 
0068»0 
0068*0 



57 S 



T|«at«((Ul»VECTOHt63,ci8ll5))*(lF 



LOG«-tM[GETisPAcE( 




wmmmMBmmfmm. 



if ED THEN 



N*0 EISe 



0«207i00 T 
0^a<3t»000 T 
(16^09000 T 



06210000 T 



0<|7ai2 
0074*0 

0082«0 



rf 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



S SET OMIT « 



MCLOG INX NOT 
NOT(PACKETS) 



n.l9«6J *■ Q}% 



062U000 T 
06211099 T 



008^*3 
0C6a»1 



J ♦ a;* 

00 eCGlN I *• 
DISKIQC 



I + 27U 

T <"( LOG 



I NX I)*26#J)IX 



06212000 T 
Q62130O0 T 
062lftQ0e T 



0066*1 
006910 
0090H 



tND 



i)UEEP(tT]*lOMASK);X 

J *■ LOGti + n;* 

UNTIL J»0 OR I-*-53>Q;X 



06215000 T 
06216000 T 

6217000 T 



0092«2 
0094>0 

O Q96<0 



IF VECT0Rt23,t8ll03«0 THEN L ♦ L0Gt293; 

lr(n«CL»5) MOO 25 + 1*7) LSS C-3 THEN 

IF I wop 27 » THENX 



06217100 T 
06218000 T 
06119000 T 



009el3 
010811 

oiQfi<o 



bEGiN LOGtn * LOGLUn 
I «■ I-t-2 £Nd;X 
% SET OMIT s NOT(STATIStlCS) 



Oi% 



LS$ 

isc-'COBOt. ••) Then 2 

3«C""rORTRAN") THEN 6 



06220000 T 
06221000 T 
06221099 T 



0l07«3 
0lll»2 
U?«3 



L06CX}I» I 
THEN. 
£tS£ 



F VECTORtOl 
IF VECTORtO 
ir vECTOftCO 



06222000 T 
06222t00 T 
0&ggg«>00 T 



ouaia 
ou#»o 

Q llfl M 



ELSE IF 

ELSE IF 
ELSE IF 



VECT0RC0]B 
VECT0RC03* 
VECT0RC03* 



c-"basic 

(-"XALGOL 
(-'^TSPOL 



") 
") 



THEN 7 
THEN 9 

THEN 10 



06222300 T 
06222a00 T 
06222500 T 



1 1 8 « 3 
0l2l«l 
Ol23«3 



19 

20 

21 ' 

22 

23 

24 

25 

27 ^i 

26 

29 

JO 

3n 

32 

33 

34 

35 

36 

37" 

38 

39 
40 
41 
42 
43' 



ELSE IF 
EtSE,-. t 
LQGtU13 » 



VECT0R£03*(*''CQB0L68") THIn II 

else^o; . 



06222550 T 
06222600 T 
06 223 00Q T 



012611 
012813 
131* 2 



IFCIJSCTIM 

IF I MOO 2 
BEGIN 



EX»Bi+2)*33 

7 » TiiENX 

loot 1 3 «■ V 



LSS Q-i THEN 



06224000 T 
06225000 T 
Q6?2600 T 



0l34«0 
0l37«l 
Ol39»n 



■. .%. * ■■1+2; » ■■■,■,.■■;-■■ 
■£-N,Oi *-.;■•■■ 
1 ■#' jTlME AX » n*SiM 



06227000 T 
06228000 T 
Q62290Q0 T 



0l42t3 
0l44t0 

Qiaato 



IF NOT ESE 

FQi J ♦ 5 
JF rilr t^Bt q 



D THENXlf 
STEP 5 UNT 
CKtg>l,]xO 



JOB E 
IL N 

THEN 



S-ED 

DQX 

Ll36ETiM£X 



THEN NO FPB ENTRIES 

" i 3**>'( PuP?" l £LSt- 



062291 00 T 

062 30000 T 
06230100 T 



0145 13 

Ol46»l 
0l5<i»0 



BEGIN IF 






m:m: 



i 






i*,i:3^^-'*''^'.oix^ 



06231000 T 
06232000 T 
06233000 T 



015613 

0160*2 

016411 



IF 1*4 LEQ 

STREAM(A«-CFILEB 

REGIN SI » 



Q THEN 
LOCKtJ-53 
A/ pS » 



3,B«-aDG[I33);* 
5 wps ENP;* 



06233100 T 
06234000 T 
06235000 T 



0165*2 
0l66«3 
. 169* 2 



IF 1*4 LEQ « THEN 

IF LOGCI+43 < THENX 
BEGIN L0GtI*43 *■ 



*P€DUP)»CLOCK + P(RtRWl 



06235100 T 
06236000 T 
06237Q00 T 



0170*1 
Ol7l»2 
017410 



'-0GCI + 3 3a24«123«-P{D^P'DUP).C24H2 3+TiNU 

[NT1«-P(XCH).[36I6]-I].tl8»l2 3n 
TlNu[:NTl3. [18*123 «• OJ* 



06238000 T 
06239000 T 
06240000 T 



Oi77*3 
0180*2 
0184*2 



45 
4fi 
47 

ts 

49 
M 

51 
52 
» 
54 

56 i 
56 j' 

di 



ENOJX 
IF L0GtI*23.tl8 
L0GCI*23«[18»30 



:303*0 THEN 
3*gQAT£.C16*303;%ENTER CURR DATE 



06241000 T 
06241100 T 
06241200 T 



0187*0 
0167*0 
0,169*2 



A6 

47 ( 

48 

49 

60( 

51 

62 

53 t 

54 

55 

66 ' 

67 



I 



I + 5X 



N 



end;* 

» LOGCTIMEX -13x5; 



06242000 T 
06243000 T 
06243100 T 



0193*3 
019^*1 
019711 



roSGETSPACECf lUEBtOCK )}% 

IF VECT0RC23.t6*103 » 1 TH£N« 



06244000 T 
06245000 T 
06246000 T 



0199*3 
0200*3 
0201 »g 



BEGIN DO J ♦• ^*k7 UNTIL LQGCJ 
WHILE J+27 LSS I AND I LSS 
BEGIN L0GCJ-H3 ♦ GE 



+13 s Oi% 
Q Pox 

teSpoi5k;x 



06247000 T 
06248000 T 
06249000 T 



0203*0 
0207*1 
0210*0 



liSiii^iil! 



I * 27M 



mmmmmm 



0212*1 



timeit;x 



06253000 T 0214*3 



LQGL24] 
DO bEGl 



♦bxL0Gt40]+20; 
N DISKIO^T/LUG 



INX U26»A);* 



06253500 T 
06254000 T 



A ♦ L06tI*t3iX 

I * 1+27;* 

SL££F(tT3^I0MASK)f» 



021610 
021911. 



06255000 T 
06256000 T 
06257000 T 



022111 
022»ti 

0824»8 



$ SET OMIT = 



END UNT 
NDTCPACKETS) 



IL A s Oi% 



06258000 T 
06258099 T 
06259 000 T 



0226 «0 
022711 

Q227«l 



7 

s 

9 
10 
11 
12 

13 1 

14 i 

16 R 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

K 

26 

27 

28 

29 

M 

31 1 

M|i 

J3*i 

34 

3S 

36 

37" 

38 



ELSE eEGIN 



DO BEGIN,, aM*t7;.: 



06260000 T 
06260i00 T 
P 62610 00 T 



022711 
0227«3 
22 9IQ 



END UNT 
IF IOGFREE»0 THEN TIMEIT EL 



lU 



A «. LOGCJ + l];* 
A * OjX 



0626200C T 
06263000 T 

0.62.631.0Q T 



0229«3 
023l«3 

. 2.3.3 ' 



BEGIN 



A«>J«-29; 



tOG[293 
I » 1*6 



ill: 



0626i200 T 
06265000 T 
06266000 T 



023510 
023At3 
0238tt 



WHILE (g ♦ J+27) < I DPX 
BEGIN A «■ A + 25;X 

STREAM(X»tLOG[J3 3.Y»[LOGCA3]);% 



0626700O T 
06268000 T 
06269000 J 



023912 

Q2<H«3 
024310 



BEGIN Sl 4. X; oS ♦ 25 WqS ifiQn 
IF TIMEX i A THEN TJMEX ♦ TlMEX^Z; 
IF TTMEAX t A THEN TIMEAX » TTMgAX-gi 



06270000 T 
06271000 T 
06272 000 T 



0245»0 
0245*3 

Q24eM 



END^X 
N <■ CN + D UIV 5 + 3;x 

L » ? fl ; . » 



06273000 T 
06278000 T 
Q6279000 T 



0250»3 
025l»l 
02.5 3 « 2- 



i SET UMIT ^ 



IF TIMEX+2 LS 

TiMElTj LO 

NnTfPACKgTSi 



S Q AND TlMEAX+4 LSS Q THEN 
GSPaCECL + I INX L0g»(N*1)>«5)J 



062/9100 T 
06280000 T 

Q63?6i99 T 



025411 
0257»0 
0262 lO 



I SFT.,../M.ll. 



end;* 
ENo;x 
^^ MOTcPACKEjg; 



06327000 T 
O6328000 T 
06328099 T 



0262 <0 
0262 >0 
0262^0 






06329000 T 
06130000 T 

i 



0262»0 
0262*3 
ZE» Q?6^ WOflnS 



li£ 



PROCEDURE userdiskspe:cialcasE(q*k,ut*j) ; 

VALUE QfJi REAL Rpj'f INTEGER Q^ ARRAY UT[*] i 



start of REL 



06 350000 T 

SEGMENT; DISK a 

Q635Q300 t 



OOOOIO 
OORESS « 00145 

OOOOIO 



BEGIN 

REAL BaFFsQ»NeJ«isUT*E«R i 
SET OMiT » NOT(ShAREOISK ) 



$ SET OMIT » ShAREDISk 

QfTAI Lirii.kiTf ADtDAV 



06350600 T 
06351000 T 
063S1050 T 



0000»0 
OOOOtO 
OOOOIO 



40 
41 
42 
43" 



•ET OMIT » OHAHtUiS 
REAL NEU#NT; ARRA 
DEFINE UaAVTABLE < 

'OP OMIT 



Y UAC*] ; 



AVSxB »» NEUUJ"! *f NEU2sNT*1 ». 



06351100 T 
0635H04 T 
06351105 T 



OOOOIO 

OOOOIO 
OOOOIO 



POP OMIT 

Integer NTt»NT3#NT4#e ; 

LABEL LWL2^t3^UP»PU'BO>WHY#Wi>Tlo ; 



06351106 T 
06351250 T 

O635I5OO T 



OOOOtO 
OOOOtO 
OOOptQ 



46 
47 
«8 
49 

50/ 

51 : 

52 

i3 
>4 



SWITCH SW«.Li*L2#L3 ; 
IF Q^O THEN GO SWCQ-1] J 
i SET OMiT » N0T(SHAREDISK ) 



06351800 T 
06352000 T 
06352490 T 



0000»0 

ooooio 

000610 



Lit BUFF*«R> Zl»0; yNLOCKTOGfUSEROlSKMASK); 

IF N LcO !!eJ*E«VE.0lS«Sl2£ TheNX cALU OUT RESERVES 

IF (Z»»BIReCTOfiYSEARCHC''RESERVE''f«OJSK •*,6)) NE« THEN 



BEGIN FORGETSPACECZ); 
If N>0 THEN 
$ SET OMIT * PACKETS 



06353500 T 
06353510 T 
063»3530 T 



000610 

ooiito 

0011»3 



IF NOT LIBMSG 



06353540 T 

06353541 T 

06353542 T 



m»mmmmi 



001412 
001513 
001612 



OCI6I2 
0018*0 

ooieto 

IJffin 



55 ' 

56 :' 

57 i 



mmmimmii 



ili 






bs*^1 CIt''- ' ^*VRr!5^TO/DlsK'B£MovE6*w/ 



# • 



h 



10 

11 



14 

15 



17 
18 



19 
20 



24 
25 



27 
28 



29 
30 



b.NDJ 



spoutlhc2,o*(ndt libmsg) and d; 



END Of RESERVE C All UP* 

If AUTOiiMtO THEN 

HEfilN PCPIMIX )J AUT0UNLDI*P1M!X»' 



IM. 



STREAM(A:«DATE#Z:'2:»SPACE(10)+2)J 
BEGI^ DS:»23 LIT"CC UNLOAD EXPIRED TO 
SI«sLQC a; i)ItsSl*3; DSIg5 CHR; 



XP"; 



DSts9 LIT 



«/a;ENOt''; 



ENDJ 
INOEPEND£NTRUNNERCPt,C0NTR0LCARD)*24^1f3t4tH53i.l9aW 



PlMlxJap; 

If N UEQ THEN 

R EGl h STR£ A M(Z;gZ«» SpACFf 10)}; 



XML 



FNn 



DS»»ie LIT^le AUTQUNLO RESET*"; 

spouTa); 

AUTnwATfr tJMLQAPTMflt 



whyi 



IF NOT N,C2M] Then 

BEGIN IF PIMIX^O THEN 
B EGIN 



STREAM(J|BJARR0WCP1MIX3#P1MIX,N,BUFF); 
BEGIN DS*14 LIT "»N0 uSER DISKI"; 

si»j; ST«.si-»i; Q S*7 c hr; 



034-uIT 
bULCC 
J««DW 



"/••; 



SlJaLOC h) 
Dl««Dl-15; 
end; 



5i«-si + i; os*7 chr; 
PiMix; QS<-LiT "«"; ds«-2 dec; 
u usDi-2; os<»fill; dh»j; dsi-lIt"- 



DStsS dec; DSt«7 LIT" 

os«»7 fill; 



Seqs.*-"; 



SpOuT(BUFF); 

REPLY[PiMiX]Is-VWY&V0KL36U2«6]; 
C0HPLEXSLEEP((REPlT[P1MIX] GTR 0) 



OR 



06353551 
06353*^5^ 



T 0024 
T 0025 



06353570 
06 3S3580 
06 3'5 3m9Q 



T 0025 
f 0025 
1 QSi2A 



06353600 
06353610 
06353620 



T 0029 
T 0032 
J 0036 



06353630 
06353640 
Q63«>365Q 



T 0036 
T 0036 

I Mia 



0635366D 
06353670 
Q63,536flO 



T 0040 
T 0041 
J 0042 



06153690 
06353700 
06153710 



06353720 
06354000 
Q635ftl00 



T 00*9 
T 0048 
4 QSiAB. 



0635SO00 
06356000 
06357000 



T 0048 
T 0049 
J — QXJii 



T 005i 
T 0053 
Jt 0055 



06358000 

06359000 
063595 00 



T 0056 

T 0057 

J. OQSq 



06360000 
06360500 
Q636Q50'i 



T 0039 

r 0061 



06360510 
06360520 
06360530 



T 0062 
T 006g 
T 0065 



31 
32 
33 
34 
35 
36 
37" 



38 

39 

40 

41 

42 

43 

44 

45 

4S 

«7 . 

48 

49 

50 

51 

52 

M 

M 

SS 

56 



ctermjx.ccfjbpimix)); 

06203700 accidental ENTRY AT BlMIX 
IF TERMlX.CCFlgPlMiX THEN 



BEGIN PRTROWCPIMIXJ ,C7»l]vi; 

GO TO initiate; 
end; 



IF NOT WHYSLEEPCVWY&V0KC36I42I63) THEN 

Begin BuFF*SPACE(iO); 

GO TO why; _^„^„__^ 



end; 

END ELiiE 
BEGIN^ 



STREAMCNtSUfF); 

BEGIN DSI»20 LIT"*N0 ySER OISKlMCP - "*} 

s}t»LOG n; D§'*8 OEC; 



DiJ|a6 LIT" SEGS*'*; 

oii=Di-u; 05ia7 fill; 



end; 



SPOUT(BUFF); 
NTllsO; DO SLEEPCCCLOCKli. NOT CLOCK) 
UNTIL (NTUNT1-»1?«30; 



END 
END ELSE FORGETSPACE(BuFF); 

PCXIT) ; 



L2» UtJ3««E; EI»Neyi»<NTI«NEUP»NEUF)^2+{NT + l)0jV 21 PCNT); JH»i; 
» SET OMIT • SHAREOXSK 

NtU»NT4NT'»NT; rOROCTSPACECUT)! FIXARRAY(UA»NT2iiNTt)l £i»0; 



O6I6O54O T 0065 
06360S50 T 0Q72 



06360560 T 0073 

06360570 T 0076 
06360S80 T 0077 



06360590 t 0077 
06360600 T 0079 
06360610 T 0092 



06360620 T 0086 
06361000 T 0086 
06361010 r 0066 



06i6ll00 T 
06*61200 T 
06161300 T 



0086 
0087 
0090 



06361400 T 0090 
06361500 T 0091 
Q6361600 T 0092 



06361610 T 0692 
06361700 T 0093 
06361705 T 0094 



06361710 T 0098 
06365110 T 0098 
06360070 T 0099 



06380100 T 0099 
06380x20 T OlO<S 
06?60l40 T PtP4 



$ POP QMiT 



06380141 T 0113 



• • 



>1 



UPI IF CNT^JsE MOD 30) 

Then NTai«NT3 ; 



LSS (NT3»'CNT1 t*UtJ].STARTW«D) MQD 30) 



IF (NT2»«<«»»UCU3 AND NUHENTM)^ nT«) GTR 1023 
OR (<Q*t*l) DIV 30*l-£ OIV 10) sTR 34 THEN 
e nt BYfl ,YC» OO ISK IS TO O e H ECKEfi£Ot««Pl.£AS£ COMP A C T .IT**' *4 3 ) J 



06380150 
Q63fl92Qq. 
06360250 
06380300 
Qft 38035.0 



0U3«3 
.9.1.1 6. .'.3 



0M9t0 
0i2l*2 

Qi2ftin 



DlSKWAIT(-C(UACINE.U13laCUAtNE.U2 + j]5aSPAcE(NT2r)+NTA)-NT3)»fi+NT3> 
US£R01SKB0TT0M+NT1 DIV 30) / 
SET OMtT a NOKSHAREpiSK ) 



0638O4O0„ T 
06380*50 T 
Q63fl0a9Q T 



0l36«0 
0l43«2 
Q14'5»Q 



$ SET OMIT • SHAREOISK 

IF J»l THEN 8»»UA«tCF3+NT+NT-l ; 
t WQP OMTT 



06380520 T 
06380525 T 
QA3flQi^2A T 



0l45»0 
Ol4StO 
Ot^Q»1 



MCB + J] JxUCJJHCTUSTARTkvKD] f 

IF (NTU'O OIV U) LSS AVDIFFMiN THEN NT I !» AVQIFFM II^ ; 

IF (EtsE*Q-«-NTl) GTR AVT>^AX THEN GO TO BDi 



06380550 T 
06380600 T 
06 380650 T 



014911 
0152 « 2 
1 5? >2 



13 
14 
IS 



ir P<OUP) OfS Jt'J*! THfft* 60 UFl CI»E"NTil Ji*! i 
PU» NT2«»«Nt3»*F(MC8€j3>0oP),STARTWR0)*NT5»«P<XCH) AND NUMENTM ; 

IF P{5UP3¥^ THEN ir CNTg*l)DlV 30«{NT4«.Mt84vH.l3 .STARTWRD)D TV lO ThEN 



06t80tOO T OiSSM 
06360750 T 0l«2l2 

63 8 g rtOQ T Ot»7M 



16 

17 
18 



HCVE(nT1*nT2 moo 30,UA[NEUll*NT5-NTl,NTl«-UA[NEUi + n-NT'» MOD 30); 
0ISKWAlT(UA[NEUiJ-NTl*.NT3 MOD ao^-NT J + NTS* USERDI SKBQTTQM + NT 3 DjV 30)* 
$ SE T QM I T ~ NgT(SHAR ED lStS } 



06380850 T 
06380900 T 
063eQ924 T 



0l73»0 

0i8l»0 

JLUSiJL 



19 
20 
21 



FORGETSPACE(UACNEU2*J3)i 
IF P<OWP) GEQ J»»s>+1 THEN GO PU ; 
S SET OMIT » SHAREDISK 



06380950 T 0185*3 
06181000 T Ol8a»0 
Q 63 8l0 g0 T Q1 9 0U 



22 

23 
24 
26 

26 
27 
28 
29 
30 



MOVECNT* [UA[NT+NT3], tAVlABLttm ) 
$ POP OMIT 
i SFT QMjT « NOTfSHAREDlSK ) 



06331070 T 
06381071 T 
06381 075 T 



0l90«l 
0l92»3 
gi92»3 



F0RfiETSpACE<UA) ; 
SET OMjT m NQT (SHARED ISK ) 
PfDEL*Q&AVSrTn$l2E3 OR M*RTn) t 



06381085 T 0l92l3 
06381095 T 0i93«3 
06 3 8;? 5Q T 0i93«3 



L3« P(UCNEUP.NEuF*2+tQ|Bj DIV PCMj)) DIV 2]»IF Q THEN P,C8«20] EUSE 
P,C2Q»20]) ; 
IF UCQ-m. SPEED = 2 THEN 



BEaiN X 40«Mit,t MASK CONSTRUCTION, 

QtxP I 

STREAM(8|gO»a)j 



06381300 T 
06381310 T 
63a l32Q T 



Oi96«0 
02011 1 

ozo in 



06381330 T 
06381335 T 
06 39 t 3*0 T 



0203*3 
020411 
0204*3 



BEGIN 

SitsLOc Q; SKjP 28SB; dI«*LOc Si SKiP QqB } 

5(4(iF Sb Then ds>sSet elSe Skip db;Sk1p sb); Skip /i db); 



06381345 T 0206«0 
06381350 T 0206*0 
06381355 T 0207«0 



37 

38 

39 



SIMLOC Q; skip 28 SBi DI»»UOC S; DIIaDI+2; 

5c«<iF SB Then ds«*set euse skip ob;5kip SB)rSKip 4 osj; 

end STREAM i 



06381360 T 
06181365 T 
06381300 T 



020913 
0210*3 
0213*2 



40 
41 
42 



END ; 

STREAMCMSKts0«V»»4 7*( JJsCCfll'J 
KlgUJ-Q DIV P(T10))> 



MOD P(M1 )) + ABS(R)-n DIV PCTIO))* 



06381390 T 
06 3 8l3 9'5 T 
06361400 T 



06 381 405 t 
06381410 T 
06381450 T 



0213*3 
0213 13 
0218*2 



BEGIN 01 I*10C MSK; SKIP 
PcLNo»LNG*0*LNG*»*RTN)i 
Ml*** 93641100; % DECIMAL 



V ob; osjaw set; end; 

lOOOOOO, 



0220 12 
0222*0 
0223*2 



TiO»«J ?23420; % DECIMAL lOOOO, 

End of uSerdiskspecialcaSe ; 



PROCEDURE cetmoreolaydiskcmix);* 
value mixix , 



06381500 T 0225*0 
06381550 T 0226*0 
SIZE* 0228 WORDS 



06400000 T 0000*0 
START OF REU segment; OISK address « 00153 

06401000 T 0000*0 



52 
>4 



INTEGER Mix;* 
BEGIN INTEGER 



I«+1#X 

Jst2»» 



06402000 T 
06403000 T 
06404000 T 



0000*0 
0000*0 
0000*0 



m'" ■■■ 



56 



MUMmMlllSiiM 




5S 
56 < 
57 



REAL 



KCws-»-o;x 



06407000 T 0000*0 



h 



LABEL EXIT;X 
Off INF., DAIQCMAX^^ 



$ SET OMlT f WT(AUXMEM) 

.$ 'SET ■■■omiT'^«"-'A:ux,me«'".>-- .^' . 

'■ ■■ y ':■.•■■ • ■- •■ 1?7iH JJlVAinr ST7F MUST a O iMTTlAlLY 



06408000 
Q6^0aiOQ 



T OOOOJ 
T OOQflf 



$ POP OMIT 

P(0* 0* 0* 0); TOGLE *■ TOGLE OR STACKMASKJ* 
IF (T«-DALQCCMIX*03.ECF3't-l)gDALDCHAXSZ THEN BEGIN 



06408199 
06408299 
06408300 



T OOOOt 
T 0000 » 
T 0000 1 



06408301 
06410000 
6 41 1 000 



T 0000» 

T 0000« 
J OOQa> 



9 

10 
11 
12 
13 
14 
15 
16 
17 
18 



_IE 



TERMINATEtMIX & 37tCTF3); 

GO TO exit; end; 

TaQAUQCftOWEMlxaaetlO] TMENX 



06411010 
06411030 
Q64120QQ 



T 0005» 
T 06071 
J 00 07 « 



BEGIN IF (J«-T+P(PUP) - 1)»129 THEN J«-DALOCM AXSZ ; 
WHILE (I «» GETSPACECj* 0, 3)+2)s2 DO 

SlEEP([CL0ck3* not CL0CK)J 



06413000 
06414000 
064T500Q 



T 0009« 

T 001 3 « 

J QQ16» 



MOVECT* 0ALOCR0W£«IX3< 15; 
F0RGETi>PAC£<0AL0CR0W£MIX3); 
DALQCR0WEMIX3 t« C*P(DUP)) t 



MCI-23f C9J6] IS mix; 
END AIT TYPE ACTION;* 
IF CI «■ GETUSEROISKCSQO OR 



ICCTC1 & jca^sfltioii 



06416000 
06417000 
064l7ii00 



T OQiat 

T 0020 t 
J 0021 < 



MEMQRY))aO THEN GO TO ExIt;* 



06418000 
06419000 



00241 
0027J 

qo27« 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
M 



oalqccmix»03 * 
oalQccmix#t3 ♦ 

DAL0CCWIX*Ttl3 



(*PCDUP))4CT + nccTc3;* 



ExIT« ULAYMASk ♦ TWOCMIx) 

KILLCCMSCWJ); 
END GET MORE OVERLAY DISK 



06421000 
06422000 



T 0030 » 
T 00331 
T 00351 



OR olaymask;x 

FUR A MIX INDEX;% 



06424000 
06425000 



0037» 
0039« 
0040» 



REAL PROCEDURE SECURHYcHeCkC MlU'FIO'USeRlO'HfcAOER) I 



START OF REL 



06460000 
SE ffiHENT; DIS K 



SIZE* 004 
T 0000 » 
ADDRESS 



1 moros 



* 00155 



VALUE mid*fid*userid; 

REAL mid*fid*userid#header; 

* mid multi file id 



OF FILE TO BE CHECKED 



06460100 
06460200 
06460300 



T 00001 
T 0000« 
T 0000 » 



31 

32 

33 

34 

3S 

36 

37 ~ 

38 

39 

40 

41 

42 

♦3~ 

44 

45 

46 

47 

•8 



X F 

% U 
X H 



10 

SERID 

EADER 



FILE 10 OF FILE TO BE 
USER IDENTIFICATION 



CHECKED 



06460400 

06460500 
06460600 



T 0000* 
T 0000» 
J OQOQt 



% 
% 
% 



>512 
>0, <512 



CURE ADORE 
VALUE FOR 
BACK THE H 



SS UF HEADER IN 33J15. JUST CHECK iT, 
DlRtCTQRYSEARCH, FIND THE FIlE AND Pa^S 
EAPER IN ADDITION TO SECURITY INFO. 



06460700 
06460800 
06460000 



T 00001 
T 0000« 
T 0000» 



49 

iO 

51 



52 
53 
54 

55 W 



X 

X 



<0 



DISK ADDRESS OF HEADER . 
DUNT PASS IT BACK, 



READ IT IN AND CHECK IT' BUT 



X RESULT FROM SECoR I T YCHECK 
X =0 NO LEGITIMATE U 
X s2 TERTIARY USER 



06460950 
06460960 
0646n PQ . 



T OOOOJ 
T 0000* 
T OQOQI 



SEH FOUND 

( INPUT ONLY) 



06461200 
06461300 
06461400 



T OOOOJ 
T 0000' 
T 0000* 



X 
X 

BEGIN 



»3 SECONDARY USER 
s7 PRIMARY USER (I 



(INPUT/OUTPUT) 
NPUT/OUTPUT/LIB MAInT.) 



REAL T2»DkSGR0W*C0DES*RQW 
REAL I=DKSGR0W* FPBSlZEaC 
ARRAY FH[*J/FPB=R0W[*3; 



06461500 
06461600 
QAflA2nQQ 



T 0000* 

T oooot 
J OMOl 



S*RUW*DKADR'RaWSZ#C*USE:K*TYpE'SHj 

odes; 



LABEL found; 

LABEL EXYT#NeTF0UN0»lOOK»WHY#F0HSET; 
REAL SUBROUTINE QIRSHH; 



06462100 
06462105 
064 62 110 



T OOOOJ 
T OOOOJ 
J 00Q0 « 



06462120 
06462200 
Qi4630QQ 



T 0000* 
T 0000* 
J 0000 1 



B 
LOOK J 

W . HY J 



E6IN 



IF (T2laDlRECTaRYSEARCH(MlD*FlD*HEADER)) lSS 64 T•^EN 



06463100 
06463200 

06463^10 



T OOOlJ 

T OOOl* 

4^ 0003.1 






liiiiliMliitiL"*''ON diSk",mio,fio#o,o,o) 

PWiflffii-|»CDEl); TYPEJ«-l^ 60 EXYTj END 

M£.N,.-Flfc tM£g'9lf|.^YSflLffi'*£RRQf^ !!i 



06463220 
064^3223 
Q6#6323Q 



T 00031 
T 00071 



MID*FIO*0*0*0); 



06463240 T 00l5l2 



• • 



h 



12 



16 
17 



22 
23 
24 

at} 



K'i 

28 
29 

30 

SIS 



S3 



34 

35 



36 
37' 



40 
41 
42 
43 



47 
•8 



49 
50 



REPLYCPlMIX]»s-CSH«*VwY&VQK[36»i»2:6UvlLt30»4aJ6]); 
COMPLEXSLEEP(^REPLYrP^MTXl>0) OR TERM jX . [CF]»P IM TX ) i 



06360540 



ACCIDENTAL ENTRY 



& T P t M tX 
IF T£HHIX,CCF3 » PlMIx THEN GO 
IF NOT WHYSLEEPtSH? THgN GO TO 



TO initiate; 

why; 



IF CShJ = Tk!»=REPl,YCPlMIX],CFF]) GTR 32 THEN 

BEGIN STREAMCT2J )) 
BEGIN SI;aT2J 



% IL 



feNp; 



SlleSl+i; 

siibSi+i; 



IF SC^^L" 
T2J8Si; 



THEN GO TO LU, 



T2isp; 

FPBSiZE;*(FPBJ«PRT[PiM|X* 33 ) ,t8« lOJ' 
FOR I»»0 STEP ETRLNG UNTIL FPBSIZE DO 



FQUNPt 



If (fPBtn EQV MIO)»»NOT THEN 

IF CFP8tI+l3 EQV A8S(FI0))»N0T THEN GQ FOUNO; 

namei0(c#t2?; Hio»yc; nameidcc^tz); 



NAMEIU<C*T2); FlD««C&FIDtl»lll]; 

IF I LSS 1020 THEN 

BEGIN FPBEIJ»*MId; 



FPBci + n«»c; 
end; 

FORGETSPACFfSH"!!; 



End; 

REPlY[PiMiX]:=o; 
GO TO look; 



_£M. 



end; 

OIRSRH 

ctrsrh; 



»« t2; 



IF 



HEADER GEQ THEN 

Sh»»IF header GTR 511 THEN HEADER ELSe DIRSRH 
ELSE DISKWAIT("(SH:=SPACEC30))#30<HEADER.[CF]); 



FHt»lQQUE&SHCCTC3; 

iFCFHtaj e<jV 0)«NOT OR (ABSCU5ERID) EOV aBS? FHt2 3 ) )«nOT 
OR (USERID EQV MCP?»NOT THEN TYPE»7 EL5E» 



IF HEADER<0 THEN GO E^YT 
IF CFHC5] Eav PU) = NOT THENX 

IF (FHC6] EQV gH)*NOT THEN 



ELSE 



IF TYPE X THEN GO TO EXYt; 

IF FHE53,ti«i3 Then 

BEGIN IF (3H|8DlRECT0RYSEARCH(ABS<FHU3>»FHl63,19n'»0 



THEN BEGIN TYPE»=G; GO TO EXYT ENq; 
M[SH + 4J,t liUl'si; 
STREAM(0ATE*J;g5)J BEGIN Sn^'LUC DATe; DS>a8QCT; 



i^iDl 



MtSH-^33,[l2tl83t*jUNK; 
DISKWAlTCSH,CCF3*-3G#SH,£FF3); 
i SET OMIT ■ SHAREDISK 



unlockdirectory; 

S POP OMiT 

dksghqwjsmcsh INX 



83; 



CO0ES»«GETSPACE(3O*O*0)+2;ROWSt»<M[SH 
FOR ROhlf«0 STEP i UNTIU ROWS DO 
BEGIN IF (OHADP»»WtSH INX JlO*ROW3)«0 



INX 93AND 3l)"i; 
THEN 



S3 
54 

56 .<: 

56 *' 



NOTFOlNDJ 

forqetj 



BEGIN TYPE Js O; 

forgetspaceccooes); 
end; 



forgetspace(sh);go to exyt; 



iiiliiiii«sj«siiftltiiii» 

BEGIN DISKIO(C>1*COOES»30*DKAOR); 



06463280 
06.4633QQ 



0017J0 



06463340 
0^463^60 



0028t2 
0030f< 



06 46 33 80 

06463400 
Q6463a2n 



06463440 
06463460 
QAA63iifl0 



0032 «0 
0034«3 
003611 



0036*2 
0037«2 



0646350O 
06463520 
06463S40 



0038«l 
0038>3 
004 1> 1 



06463560 
06463580 
06463600 



004410 
004513 

oosua 



06463620 
06463640 
06463660 



0054»l 
005MO 
0057 » 3 



064636B0 
06463700 
064 6372 



0059»2 
006111 

006ltl 



06463740 
06463760 

0646 3780 



0062»2 
0062'2 
0Q63«3 



06463800 
06463910 
0646 3fl20 



006411 
006411 

006413 



06463840 
06463860 
06463880 



006310 
006910 
0072' 1 



06463900 
06463910 
06463920 



007310 
007912 
OQa?M 



06463925 
06463930 
06463940 



0087*2 

0088*3 
0091*0 



06463950 
06463960 
06463970 



009513 
0097*0 
009810 



06463980 
06463982 
06463984 



OlOl«0 
Ol03*l 
0l06*2 



06 46 3 $86 
06463968 
06 46 3 990 



109*1 
011112 
01 14*0 



06463992 
06463994 
0646 3 996 



0il4«0 

0117*2 
0117*2 



06464Q00 
06464x00 
064642O0 



0119*2 
0124*3 
0127*0 



06464300 T 
06464^00 T 
06464500 T 



■■o:6«li^ 

06464700 



0130*0 
0131*1 
1 33* 1 



0133*1 
0134*2 

Ot3 5* 3 



06464900 T 0137*3 



rf 

2 
3 
4 
5 



10 



13 
14 
15 



16 
17 
18 



19 
20 



21 



23 
24 



26 

27;V 

28 
29 



30 
31 ' 



33 



34 
3S 



36 
37" 



39 



41 
42 
*3 



«8 



•9 

50 



52 



55:;; 
56;.' 



F0« CjsO iTEP 1 UNTIL 29 UO 
BEGIN IF((UaERi8NFLAG(M[CQDES 



TNX C3)?£aV gll^)- 



NOT THEN 60 TO NOTFOUNOi 
IF (USER EflV ?14)¥ NOT THEN 
IF USgR.CSIBl'iQ THEN 



UEGIN 
IF (USERID EQV 
BEGIN TYPE <« 



ABS(USER))=NQT THEN 



JLML 



IF USER < THEN 

GO TO forget; 



2 ELSE 3; 



END ELSE 

eEsiN 

IF PlMIX 



^ THEN 



IFCCIF JAR[P1HIX>03<0 THEN "DISK 



IF(A8S(JARCPlMlX*03)EaV 
USER.£6M2])» NOT THEN 
"ELSE WABtPlMIXM3)£QV 



MCCODES 
THEN 
BEGIN 



INX C+1 Jf t6l42j )a kUT 



TYPE »» USER, t 3*33; 
GO TO FORGET; 



end; 

end; % 30 USERS 
DKADR >= DKADR » 



ii- 



ROW 



end; X 
end; % ROWS 
GQ TO nqtfqund; 



end; 

TYPE 
EXYT» 



NO 

»e; 



Security block fill 



IF HEADER LSS 
IF HEADER QEQ 
SECURIT¥>CH£CK 



5i2 THEN 

THEN HEAOERr 

JaTYPE; 



iFH ELSE FORGETSPACE(FH); 



END securitycheck; 

$ SET OHIT - NOTCDATACQM 



) 



06^65000 



06465200 
06465210 
06465^20 



06465230 
06465300 
0646 5 400 



06465500 
06465600 
06465700 



06465800 
06465805 
064 05 81 



06465820 
06465830 
06469640 



06465850 
06465860 
064658 70 



06465080 
06465900 
0646l>qi0 



06465920 
06466000 
06466100 



06466200 
06466300 
Q6<t66^l0 



013911 
0l4Q<0 



014213 
0l44t0 



0147«1 
014713 



015010 
015213 
0153*1 



0153«1 
Ol53»l 
Ql ?3«3 



0154*2 
0156*1 
0l58«2 



016213 
0l66»l 
0167»0 



016712 
016813 
Ql7H0 



0l72«l 
0l72«l 
0l 7(t» 2 



0175*3 
Ol76«l 

oi ya i? 



06466^00 
06466500 
06466600 



06466616 
06466620 
064667Q0 



017910 
0l79«0 
01 79« 3 



017913 
0180*2 
018 5*0 



06466800 T 0185*3 

SlZE« 0187 WORDS 
06499999 T 0000«0 



i SET OMIT * N0T(DCLOG AND DATACOM ) 
DEFINE KLUMP»»174i»;X gl73 IS RESERVED 



* * * * 



* * * *XJS 



FOR THE DISK ADDRESS 



COMMENT LASTCDNUM* FIRSTDECk* Ai\D uASTDECK ARE STORED IN THE 

FIRST THREE WORDS OF THE DISK SEGMENT LOCATED AT dIRECTORYIUP 
^-3. IN A NOi\ SHARED DISK SYSTEM, THEY ARE WRITTEN UuT EACH 



06845900 
06845999 
0700OQ00 



O7OOO0I0 
07000015 
070Q0n20 



000010 
000tf*0 
0000 to 



0000*0 

ooooso 

O QOOO 



Time one of them is changed so that they will be preserved 

IF A HALT/LOAD OCCURS. IN A SHARED DISK SYSTEM* THEY ARE 
ReAd INTO THE PRT WITH A ReAD'LQCK COMMAND fACH TIMe THEY AR£ 



07000025 
07000030 
07000Q35 



0000*0 
000010 
0000»0 



END 



USED* THIS PROVIDES CQNTHDL DECK INTERLOCKING BETWEEN SySTEnS 
IN ADDITION TO PASSING THE INFORMATION BETWEEN SYSTEMS, 

chmment; 



Integer lastconuB«?i74; 
real firstdeck«*175; 

REAL LASTDECK»gl76; _■' ■ _ ' ■ . 

DEFINE LOcKcOnTRUldECKS»BEGIN SLEEI" ( CT0GLE3 ' CDM ASK ) ; LUcKTUQC COM ASK ) ; 
S SET OMIT » NQTCSHAREDISK) 



07000040 
07000045 
07000n50 



0000«0 
0000*0 
O QOQ'O 



O7OOO1OO 
O7OOO2OO 
Q7QQ0300 



END»i 



07001000 
07001099 
07001;? 00 



0000*0 
0000*0 
OQQOtO 



OOOOJO 
0000 10 
OOOQtO 






R E A L PR C E D J R E N t X T C N U M ( U P 



,'iiB''iHi'MiS,-ff ■- 

DATt.); 



VALUE update; qoolEan upuate; 



07001300 

orooii9i0 
oy 00 I 50 



0000*0 
0000*0 
0000*0 



07001600 T 0000«0 



1< 



1 

3 

4 

B< 

6 
7 
8< 

; 9 

10 

12 
13 

m( 

15 
16 

"< 

18 
19 
20 ( 

21 
22 
23 i 

24 
25 
26 i 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 
55 
56 



• 



571 



• • 



h 



BEGIN 



START OF REU 



lockcqntroloecks; 

LASTCONUM l» (LASTCDNUM MOD 9999) +i; 
STREAMCCDNUMIaQI LNUMI »LASTCDNUH)f 



segment; disk 

070Q l 6gQ 



ADDRESS = 



00162 



07001640 
07001660 
070Q1A80 



0000*0 
0005»1 
0007*0 



BEGIN 

end; 



siJ'UQC ln^Jm; di: = loc cdnum; ost = 8 dec; 



0700 
0700 
0700 



1700 
1720 
1 7^0 



00081 
0008» 
0009» 



9 
10 



nextconum f» P; 

IF UPDATE THEN 
BEGIN 



0700 
0700 
07Q0 



1760 
1760 
laQQ 



T 00091 

T 00091 

Jt QQIQ? 



11 

12 
13 

14 ! 

15 ;■ 
16 
17 
18 
19 
20 
21 

a 

23 
24 
2B~ 
28 

27;;; 

28 

29 

K 

31 

32 

33 

34 

3S 

M 

37 ~ 

38 

39 

40 

41 

42 

♦3" 



diskwait£klump#-3.directorytop+3); 
unuocktog(Cdmask); 



FNP ; 



0700 
0700 
Q7Q0 



1820 

la^o 

1860 



T 0010* 
T 0012» 
T 0Q1.6! 



End; 

PROCEDURE STAftTABeCK(N); VALUE N^ REAL n; FORWARD; 



07601980 T 0016*0 

Si2e« 0019 WORDS 
07002000 T QQOQtfl 



PROCEDURE EnTERCONTHQlDECK(H); VALUE hi ARRAY h|*3; FdKwARD; 



START OF REL 
START Of HeL 



segment; disk 

07002100 

segment; djSk 



address 

T 0000 « 

a d d^ e^s 



■• 00163 



= Q0163 



REAL RUNUMBERJX 
PROCEDURE C0M23;X 



ST A PT or REl 



0700300C 
07004000 
SEflWENT; Dl 9 



I»K ADD 



T OOOOi 
T 0000*1 
npRE ^S m 1 6 3 



!0 




BE6INX 

REAL INBUFF#* 
OUTB UFP^* 



ADDRESS 
fi 



OF 



THE 



Input buffer. 
Ou tput bukfer, 



07005000 T 0000*0 
07006000 T 0000*0 
070 60 1 T 00OO L&- 



FlRSTCARD#* 
OUTBUFFOLD^X 



H 






30 



CARD IMAGE OF THE FIRST CARD 
LAST OUTPUT BUFFER. 
WuS OF CORE USED TO aUiLn THF 



07006020 

07006030 
07006040 



T 0000* 

T 0000* 
T 000* 



T*T1*T2*X TEMPORARY VARIABLES, 

R*L#N,!k " " USED TO COUNT CARD IMAQ 
ii* USUALLY INDICATES COL 1 HAS A QUESTION MARK 



07006o5C 

07006060 
07006070 



T 0000* 
T 0000* 
T 0000* 



IU,% 

OU,X 

FtRST>» 



UNIT NUMBER OF THE 
TRUE IF THE FIRST C 



INPUT UNIT, 
OUTPUT UNIT, 
ARO OF A DECK 



07006080 
07006090 
Q7Q0frl0Q 



T 0000* 

T 0000* 

J QQQQ* 



32 

33 
34 

35 1 
36 
37 

36 ' 
39 
40 
41 
42 
43 
44 ' 
46 
46 
47 
48 
49 
50 ' 
51 
52 
53 < 
54 
55 
56 ' 
57 



S*X USED AS A TEmHRUARY 

% AND TO HAND THE U^I 

jajL? US ED AS A HA^*^ To S 



VARIABLE IN SUBROUTINE 
T NUMBER TO SUBROUTINE S 
LEEP UNTIL DISK gpERATIn 



070061^0 
0700615C 
07 Q0 6 1 6 



T 0000* 
T 0000* 
T QQ QQ? 



I ARE COMPLETED. 
$ SET OMIT a NQTcPaCKETSI 

floQi-EAN cdqnly; •■ ■■ ■ -""•' ■. ■'■■. • 



07006161 
07006169 
07007^00 



T 0000* 

T 0000* 

s oooot 



INTEGER A*i;* 
SET OMIT a NOTCPaCK 
LABEL AGAIN, INL^ER 



ETS) 

R0R,SuPEf^''^DM8,SKlPlT*EXIT; 



07008000 
07008199 
07009000 



0000* 
0000* 
0000* 



45 

•6 

47 
•8 
«9 
50 
51 
52 
53 
54 
55 
56 
57 ij 



LABEL INPUTl; 

ARRAY FP8C*3*Ht*i; 
SUBROUTINE STQPI* 



0700«l00 
07010000 
070 U OOP 



T 0000* 
T OOOOI 
T 0000* 



BEGIN IF 



S ^ 

BEG 



10 

In 



THENX 
READY «• 

irrmech ♦ 



NQTCQ «■ TWO(S)) AND READYiX 
NOT Q AND RRRMECH OR U AND SAvEwURD;* 



07012000 
070l300C 
0701^000 



T OOOl* 
T OOOl* 
T 0004* 



END 

TppTTTT 

FPBtTJ.C 

TiMUtSJ. 



;% 



UABEUTABtECS] *• Pll«;X 
RDCTABLECS3 ♦ MULTI TABLEC S3 



Q% 



07015000 
070160OO 
07017000 



T 0007* 
T 0008* 
T 0009 « 



24* 
C18 



P(DUP)+C 
12] ♦■ Tl 
«12]»a0; 



LOCK+PCRTRj;* 
NUCS], [18*123;* 



07018000 
O7OJ.90OO 
07020000 



0010* 
0013* 
0017* 



,itife»iilyiiiiiiil«i:^:;; 



070210O0 
070819,99 

07022000 

0702^001 



T 00191 

T 00191 

T O019* 

T 6020» 



S POP OMI' 



>T 

2 
3 

4 
5 



$ SET QMlT » NOTCPACKETS) 

BEGIN Tl «• H[93-t-y;ilt 



07022099 T 
070;?3nOQ T 



0020«0 

oogoip 



FOR T2 *- 10 STEP i UNTIL Tl DOX 

F0RGETUSeRDISK(HCT2]#-HC8]); 



ENBJX 



0702<»000 T 
07025000 T 
07026Q00 T 



0021»2 
002310 
0Q2»<0 



S SET OMJT s NGT(PACKETS) 

SUBROUTINE bqmbtime;* 

BEGIN IF STQPJQBaPlMiX 



THEN STOPM(FALSE); 



XST 



O702609y T 
07027000 T 
07028000 T 



002711 
002711 
00 28 «0 



7 
8 
9 
10 
11 
12 
13 
14 
15 7 

16 
17 
IS 
19 
20 
21 
22 
23 
24 

aij 

28/ J 

27;; 

28 

29 

» 

wj 

33;; 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43" 

44 

4B 

•6 

17 

•8 



IF TE«MIX.CCF3«PlMlX 
S SET OMIT • NOKPACKETS) 
$ SET QMIT w PACKETS 



THEN GO bomb; ENOi 



1ST 



07028100 T 
070a«9»« T 
0y0fliO»9 T 



003010 
0032*0 
3 2*0 



BOOLEAN SUBROUTINE 

BEGIN IF Q THEN 

BEGIN MCINBUF 



endcard; 

F*9]f0&'S'*L l|4 3t5]; 



iiii«iiiii«i»iiiiiiiwiW 



070<»liOO T 
07041110 T 
070i^,ll20 T 



0032' 
00 3210 
0Q3,2<1 



07«41j30 T 
07I*1H0 T 
Q7Qnti5Q T 



0035*3 
0037*0 
0Q37ti 



Olf'LOC XI DI t»Ul+5; 
IF 3 SC*DC THEN TaLlY«»1; 

x^tally; 



070 41160 T 
07041170 T 
Q70<!tUfiO T 



0038 11 
0038*3 
Q0^9«2 



ENOi 
END ELSE PCO), 
EnDCAR Q>»P / 



0704U90 T 
07041200 T 
07041210 T 



0039*3 
0040*0 
0042*1 



end; 

POP OMIT 
r eal S U B Rn UT lNE AD Rj* 



07Q41220 T 
07041221 T 
07042000 T 



0042*2 
0042*3 
0042*3 



BEGIN IF CT2 ♦ HCCjl ♦ R OIV 200)+l03) * THENX 

BEGIN HC9] ♦ Tl+i;X 
HrTl^lOl » t2 » aFTUSLRniSKf200U1C 



07043000 T 
07044000 T 
QyOitSflOQ T 



004310 
0046*0 
QQ4fltt 



£MUL 



ENo;x 
AOa ♦ R MOD 200+T2» 



070 46000 T 
07047000 T 
07046000, T 



0051*1 

0051*1 

,0Q52»n 



SUBROUTINE IMPUT;? 

BEGINX 
IF lU < 16 ThENit 



07049000 t 
07090000 T 
070 gl000 T 



0053*0 
0053*0 
0093*0 



J SET OMIT a NOTCPACKETS) 

$ SET OMIT s Packets 

atGiN IF FIRST THENX 



07051099 T 

07051999 T 

07052000 T 



0053*3 
0053*3 
0053*3 



T ♦• WAITIO<?140000000 ♦ INBUFF** 

«'40»iu);x 

WAlTlO(ei20540000000 ♦ iNJUFFy* 



07053000 T 
07054000 T 
07055QO0 T 



0054*2 
0056*0 
0057*1 



$ POP OMIT 



P2000000MU);X 
Q «• MCINBUFF-ll"9;x 



07056000 T 

07056001 T 
07057000 T 



0058*1 
0059*2 
0059*2 



ELSE 



ENDX 
BEGIN WHI 



LECQ*WAITIO(P40000000+InBUFF*FIRSTx4* 
g4000000»lUJ?,C45*n DO ^_„ 



07058000 T 
07059000 T 
07059100 T 



0062*0 
0062*0 
0067*3 



IF FIRST AND CQONLY THEN GO EXIT ELSe 
BEGIN SLtEP(CTOGLE]#STATUSMASK); 

RRRMech»RRRMECH AND NOT O^TWQCIU); 






07059110 T 
07059200 T 
O7O593OO T 



0070*1 
007110 
0073*1 



49 

SO; 

61 S 

52 

U 

S4 



a; 



end; 



07059400 T 

07039500 T 
07060000 T 



0075*3 
0077*1 
0078*3 



IF Q 4- ^ THEN 

begin si«(t*»unitciu]),cffj; 
retuRniospace(S); 



IWlHIPiPlliWiPfPWP" 



07061000 T 
07062000 T 
07063000 T 



0062*0 
008 3*1 
0086*0 



56;; 






mm 



£nd;x 



ENOiX 

mm " 






-mmam 



07068000 T 0092*1 



• • 



>r 



end;x 

SET UP INPUT VAHl AB| ,Esat 



$ SET OMIT • NOT(PACKETS) 

If C00NUYI«(PRTCP1MIX#*253>22) 

BrarN iut«PRTfPiMix>g95] i 



07069000 

oyq/iQQo 



0092' 1 
0Q?<t!0 



THEN 



07071899 
07072000 
07Q7giOQ 



009410 
009410 



PRT[PlMIX#C<»2bJl»o; % DISK 
END EISE 
BEGIN IF (IU»»FlNOlNPuT(>*CQNTRQL"«'^nE(^K 



JUiltOxO^O^OjLQ, 



07072200 T 
O7O723OO T 
07072iiOQ T 



010312 
0X05»1 
19 5«1 



iJsUIL 



0*0)) LSb THEN GO iNlTJATEi * 
IF lU GEQ 32 THEN P(XIT); % 



BEEN OS*ED 

EO-J IF PSeUOODCK 



07072500 T 0j08»0 
07072600 T OIIOI3 
07072700 T 0U2*1 



10 
11 
12 



$ SET QMIT * 



iMOTCPACKETS) 
STARTIMINGC0*IU); 

„f.p,Bi»,p..HiE,PiMnfi,3i 



07072899 T 
07073000 T 
0707,3500 T 



0112«1 

on 211 

Q113U 



13 J 
IB 1 






070?l9»« T 

07074000 T 

0707 4001 T 



0U4t3 
0ll4«S 

Ovi st ? 



16 
17 
IB 



IF NQTCJaR[P1MIX»9) ,[2»1]) THEN * QONT SUPPRESS MfSSAGE 
FIUEMESSAGEC- in "iTlNUCly]C6l30U83,0* 

"CGNTRUL'*»'*DECK ''»Q*Q»O,0PNMES5)J 



07074090 T 
07074 lOO T 
07074200 T 



0U5«2 
0U7»3 



19 
20 
21 



RDCTAtiL£ClU],C8J63 ♦ PlMIX^X 
IF lU LSS 16 THEN BEGIN* 

FPBC33.C23aJ»«'lJ XSeT INPUT 



F LA G FOR LOe 



07075000 T 
07076000 T 
07076Q10 T 



012113 

0124»1 
012513 



22 

23 
24 
2G 

n,3 



ELSE 



T *■ wAITlOC^5a0000005'0»IU)X 

£NdX 

IF I u s 23 A ND KE A DERA N EQ THE N 



0128»0 

012910 

07 07^000 T — 0X25-0- 



O7O770O0 T 
07677010 T 



29 
30 



BEGIN FaRGETSPACE(REA0ERA-2);X 



READERA ♦ OjX 



FNn» 



ElSe IF IU*24 AND HEADERS NEQ THEN 
BEGIN F0RGETSPACECREADER8-2);X 
WE AD E RB *• Q }%.... 



07079000 T 0136»3 



07 08 00 00 
07081000 



07082000 

07083000 
07084nOQ 



0l38»a 
01 391 1 



0139»1 

Ol4l»2 
0143M 



311 
32? 
33 



ENo;x 

INBUFF ♦ GETSPACECII'O'I) ♦ 2* 
FlIgSTCARD *■ GETSPACEC10#0*1)'>'2 ;X 



O7O85000 T 
07086000 T 
07087000 T 



Ql44t0 
0144»0 
01^611 



34 
35 

36 

37" 



% SET UP OUTPUT Variables* 

IF PRTCP1MIX#P253 THEN% 

BEGIN OU *- LaBELaScRaTCHCT 



<■% 



O7O88OOO T 
07089000 T 
O7O9O0OO T 



0i48«2 
014812 
0l49»2 



TAPELABELC»C0NTR0L«#'»0ECK •♦*1#1»100))JX 
ir 0U<0 THEN GO INlflATlJ XBeeN QS'ED 

forgetspacecT);* 



FPSc33.t23«l3»»0) XSET OuTPuT FlA6 FDR lOg 



07091000 "f 
07091 I 00 T 
07093000 t 



0150»1 
0l53«l 
0155*0 



0155*3 
0158«1 
Ol58«l 



40 

41 

42 

43' 

44 

45 

46 

47 

48 

49 

50 

51 

92 

S3 

S4 

56 



ENDX 



ELSE BEGIN OUTBUFFQLD «■ OuTBuFF <■ GETsPACE ( 60* 0> 1 )*2^ X 



07093010 T 
0/094000 T 
07095000 T 



RESERVE ♦ GeTSpaCE(30*0M) + 2;X 

H ♦ CMCGtTSPACE(30#0*l) + 233&30i;8»38tl03;X 

Qy «• 18;* 



07096000 T 
07097000 T 
07098000 T 



016313 
0166*0 
016913 



end;* 

STARTlMiNGC5*0U); 
FpBisPRTCPlMlX*33; 



% STARTIMING MAY HAVE MUVED IT. 



07103000 T 
07104000 T 
07104500 T 



017012 
017012 
017112 



$ SET OMiT ■ NaT(PACKETS) 
X BEGIN ONE DECKX 

AGAIN: QuTBUfF ♦ OUTBUFFOLO;* 



07105<j99 T 
07106000 T 
07107000 T 



0l73»0 
017310 
0173*0 



L ♦• N ♦ o;x 

$ SET OMIT » NOTCPACKETS) 
$ SET QMiT a PACKETS 



07108000 T 
07108099 T 
07108999 T 



0173*3 
0175*0 
175*0 



56 

5' I 



:$:;:m§imi0ii 



etGiN HI 9] ♦■ on 



mstmmlmMimM 



mMmmeM 

07111000 T 



0175*0 
0176*1 
0476*1 

0177*0 



k 

2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
14 
15 
16 
17 
18 
19"' 
20 
21 
22 
23 
24 
2S 
26 

28 
29 
30 

J1~ 
32 
33 
34 
35 
36 

jt" 

38 
39 

W 
41 
42 

•a" 



Mavt:c2o#CH[9J]*[Hcio]3); 

H[83«-200J 



lHUt% 
% BEGIN ONE CARD* 



$ SET OMiT 
I SET OHIT 



s NOT(HACKETS) 

input; 

» NQT(PaCKETS) 



t SET QWIT 



IF FIRST THENX 
BEGIN 
8 NQTCPACKETS) 



$ SET OMIT » PACKETS 
i POP QMIT 



FlHSTrsFALSt; 



$ SET OHIT 
S S FT Q MiT 



MQVE(l0*IN81iJfF*FlRSTC*R0>'* 
• N0T{PACKETS> 
m PACKETS 



$ POP OMIT 
i SET QMIT 



end; 

- N[lT(PACKf;TS) 



07U2000 
07112100 



0178«3 
0180»3 



07113000 
0711*000 
07U80Q0 



0182I0 

oiasto 

Q 1 82»0 



07U5099 
07U5200 
Q71l5a99 



0182«0 
OiagJO 
01^3*0 



07H6000 
07U7000 
0711,7099 



T 016310 
T 0j83li 

_i Q iea f a 



07117199 T 

07117200 T 
07U7aQ l T 



0183J3 
0l83»3 
0,ta<H2 



oyuaqoo t oiM^a 

07U«0»9 T 0l86»0 
07119009 T OlSfltO 



07119010 
07119011 
Q7119C99 



T Oiefi'O 

T 018610 

_T 016610 



IF T NEQ a THEN 
t SET OMIT » NOT (PACKETS) 



07120000 
07120009 
0712Q0 20 



016610 
0166*3 
0166*3 



bombtime;x 
if ou < 16 then* 
MMk. 



$ SET OMIT « NQT(PACkETSJ 



$ SET OMIT = PACKETS 
$ POP OMIT 



T#.hAiTiO(iNBUrF**5000Ci6l33»t53 
4C1 0*Q iC e *38M 03yQ »O^ )^ 



IF NOT ENDCARD THEN GO TO iNi; 



07121000 
0.7122000 
07 122010 



07122999 
07125000 
Q 7125 B Q0. 



T 0l87»l 
T O188IO 

s Qiea»3 



07125599 
07125600 
07l 2 5 60t 



T O189I1 

T 0l69ll 

J 0,190*0 



T Ol93»0 
T 193*0 

J ojjjiu. 



i SET 0*4 It » tMOT(PACKETS) 

MtlNBUFF-U ♦ P1737000000000000; 
T » WAlTlOdNBUFF'lfO^QU); 



07125999 
07127500 
07128000 



T Oi04»2 

T 0194*2 

_I 0l96*g 



SUPERJ* 
$ SET OMIT 
S SET OMiT 



= NOT(PaCKETS) 
» PACKETS 



07129000 
07129099 
07129999 



T 0198*3 
T 0198*3 
T 0l96*3 



STREAMCX|s"CONTROL''lINBUFF); 
BEGIN SIIsINBUFF; 
E» IF SC NEQ "E" THEN 



07130000 
07130100 
07130200 



T 0198*3 
T 0200*1 
1 0200*2 



L» 



BEGIN Si ♦ Si*i; GO TO E EnD;X 

SI ♦■ si*3;x 

IP SC » ♦' " THENX 



07131000 
07132000 
07133000 



T 0201*0 
T 0201*2 
T 0201*3 



•5 

46 
47 
•8 
49 
50 
51 
52 
53 
54 

56 'J 



BEGIN Sl ♦ Sl*i; 60 TO U EnOIX 

01 ♦ tOc x; Di *■ Di + i;x 

IF 7 SC » DC THEN X ♦ TAUlYj* 



end;x 

IF P X C THEN 60 TU AGAIN EL^E GO Tq EXIT;X 



$ POP OMIT 



07134000 
07135000 
07136000 



T 0202*1 
T 0202*3 

T 02oait 



07137000 
07138000 
O71380O1 



T 0204*0 

T 0204*1 

J 080 ^ * 3 



end;* 
if d » then sleepccd3*n0t 0); 
s set omit s notcpackets) „^_ 



O71390OO 
07139500 
07139509 



T 0205*3 
T 0205*3 
T 0206*3 



$ SET OMIT 



MOVEC 10WN8UFF*0UTBUFF);X 
NGTcPaCKETS) 

IF Q THENX 



O7HOOOO 
07140099 

07 14 1 000 



0208*3 
0210*1 

02 1 0*1 






mSKIDCTj- 1"RESERVe»30#A);X 



.■oiwitjii:.. 

Q71lliO0Q 



K«iiiiiiiiir 



07145000 T 0216*2 



• • 



^ 



SLEEP(IT]»ICJMASK);X 

Mji » k....^ 0.1. :MMi'^. ♦ H E 5 £ R V E 3 * 



rNQ;fc 



•.DpiliiilSiiipE-i* 30'* kiix 



JUJL 



07146000 T 
OyH7nQQ T 



02ie<2 
0220«Q 



07146000 T 022410 
07149000 T 012610 
Q7I50000 T 022712 



fcjMD ^X 



ELSE MCI ♦tU-N)xlQ + 9 + 0t)TBUFF] 
L «• MtQUTBUFF + 9] ♦ N;X 



*• Hi* 



07151000 T 
07152000 T 
Q7 1530 QQ T 



022712 
0235 «0 
0,237, «? 



IF N ■ 12000 THEN* 

BEGIN T * Q£T3PacEC14*0*0)+2;X 
STREAM(FIRSTCARP#T3J 



0715*000 T 
07155000 T 
071 56Q QQ T 



0217 » 2 
0236*1 
a 4U Q 



10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 'i;^ 

26 1: 

V 

a 

29 
M 

31 1 

33 

34 
36 
36 

37 ~ 
38 

39 ■.■;'. 

40 

41 

U 

«" 

M 

45 

46 

♦7 

•8 



$ SET OMIT 
$ SET QMiT 



BEGIN dS * 32 LiTX 



« NOT(PACKETS) 
a PACKETS 



07157000 T 
07157099 T 
07157999 T 



0242'0 
0242 «1 

0,2^2 M, 



S POP OMtT 



»iHmt THAN 12000 CARDS IN 
S^l»FlRSTCARDiPS*.9IWDSlDS»LlT w»' 



»i 



0715B000 T 

07158001 T 
Q71S9000 T 



0242*1 
0246*1 
024AH 



ENQ/X 



GU 



END** 

TO SKipn; 



07160000 T 
07161000 T 
07162 0Q Q T 



024711 

0247* 2 

JiSiMlSL 



IF (N ♦ N + U MOD 6 » THENX 
BEGIN R * N OlV 3-2;X 

A » Apr;* 



07163000- T 
07164000 t 
7 16 5QOQ T 



02*910 
0251*1 
02 5 3*2 



END 



OUTdUFF •■ OUTBUFFOUO;* 
DISKI0CD'GUTBUFF-1#60*A); 
ELSE OUTBUFF * QUTBUFF-t-lO; JK 



07166000 T 
07167000 T 
07169000 T 



0255«2 
0256»l 
0256*1 



$ SET UMIT 
$ SET OMIT 
S SET UMIT 



■ N0TCPACKETS3 
« NOT(PAeKCTS) 



PACKETS 



07169099 T 
07169499 T 



0260*0 
0260*0 
0860*0 



$ l»OP OMIT 



IF NOT ENDCARO THEN GO TO INL/X 

IF D = THEN sleeP(i:d3*not 0); 



07170000 T 

07170001 T 
07171000 T 



0260*0 
026112 
0261*2 



OUTBUFF ♦ 
R ♦ N 0|V 

A » adr;x 



OUTSUFFOUOii 
6x2;x 



07173000 T 
07174000 T 
07175000 T 



0264*2 
0265*1 
0267*0 



IF N MUD 6 ;* THEN 

BEGIN 

DISKlQ(T*0UT8uFF-l*6Q#A);a; 



07175100 T 
07175200 T 
07176000 T 



0268*2 
0269*3 
0270*1 



SLEEPCtT]»lOMASK);X 

ENOJX 

IF R-»2 < 200 THEN 



07177000 T 
07178000 T 
07176100 T 



0272*1 
0273*3 
0273*3 



BEGIN HC8] *• H + 2; 

F0RGETUSERDISKCA+2*H-198); 

end; 



07178200 T 
O71783OO T 
07176^00 T 



0^75*0 
0277*1 
0279*1 



;:ifiiife;-*:0.i.. 



07179000 T 
07179050 T 
07179100 T 



0279*1 
0281 10 
02ft3»l 



$ SET OMIT 
$ SET QMtT 



= notcpackets) 
entercontroldeckchj; 

=> NqTcPACKeTS) 



07179)99 t 
O7I8OOOO T 
07180009 T 



0264*3 
0284*3 
0265(3 



19 
50 
SI 

S3 
>4 









07181000 T 
07214000 T 
07214099 T 



028513 
0266*1 

0266*2 



$ SET OMIT 



PACKETS 
ST^EAMCFIRSTCARO^TJ;* 

BEGIN OS * 16 LIT "iHREAD ERROR FUR "/X 



07214999 T 

07215000 T 

oy2i6go , o T 



0288*2 
0288*2 
026?» 2 



iitigltPs 



iiiiiilMiii 






Imi&S^mMf^-: ^ S ■ * LI T ^ ■ "> " ; X" 



sMm 



staPifr^spwrTTTT 



MM 



xiilliiiiip 



m 



07219000 T 029310 



• • 



n 

2 
3 

4 
S 



10 



12 
13 
14 

lis 



16 
17 



19 

20 



21 
22 
23 
24 
26 
26 
27 
.28 
29 



30 



34 

36 
36 
37" 



39 



41 
42 



•9 

SO 
51 
52 



55 
56 



UQ BCUIN 



$ SET OMIT s 
t eOP QMIT 



PACKETS 
END UNTIL 



input;% 



07220000 
Q72?100Q 



0293«3 



ENDCARDIX 



07221999 

07222000 
07222Q01 



029610 
029610 
029712 



1 SET OMIT 



= NOTCPACKETSJ 
IF nu < 16 thenx 

BEGIN 00 BEGIN 



T «• MAlTIO(&340000005»P60,Uu);ai 



07222099 
07223000 
07224000 



02V7»2 
0297«2 
029an 



bombtjme;* 

END until T,C42J13;X 

T » WAITIOCP140000005^P6Q»OU?U 



07225000 
07226000 
07227000 



030012 
0302*0 

3q3 M 



ENO« 

ELSE forgetit;* 

\iO to gUPEHU 

eoMBt t FolGfTTflx 

exit* SlEEPUTOGLEI^STATUSMaSK)! 

if IU GEQ 23 then UNlTCODEnu*233 t»*0l 



07228000 
O7229000 
07230000 



0305»0 
0305»0 
0309»0 



s «• IU' T ♦■ 3j sToFjir 
s ♦■ Qui r <• a; stop;* 

FOfiG£TSPACE(INBUFF);it 



07231000 
07232000 
07232500 



07233000 
07234000 
07235000 



030912 
0311*0 
031212 



0315«3 
031810 
0321 '0 



F0RGETSpACE(FlRSTQARD);X 
IF OU > 16 fHENX 

&EG1N rQ«MTSPACECH)lX 



07236000 
0723/000 
07218000 



0321 » 3 
322»2 
0123*1 



forget space(qutbuffold);x 
forgetspace(REServe);* 



EN P/X 



0/i>39000 
07240000 
07241000 



324«3 
0325'2 
0326*1 



END C0M23;X 
PROCEDURE STAl^TtOAON(KTR)f VALUE KtRj R£AL KTRf% 



07242000 T 0326*1 

SIZE* 0327 WORDS 
07243QQQ T 0000*0 



BEGIN REAL HoR/SeGO» I' F' T* c^ ARRAY SheATC*J' 

LABEL TryAGAIN*L3CNTRl*DISk; 



START OF REl 



SEr,MENT; DISK 
07244000 
07244100 



ADDRESS 9 
T 0000*0 
T 0000*0 



00l74 



STREAM(K*0*KTR);X 

BEGIN SI ♦ KTR;X 
L* IF SC » " " 



THENX 



Dl 



BEGIN SI *■ 

LOG k; DI < 



si+i; GO TO L end;* 
Di+6; DS ♦ 2 chr;x 



07245000 
07246 00(} 
07847000 



0000*0 
0003*0 
000311 



£ND;ii; 



07248000 
07249000 
072 50 QOO 



0003*3 
0004*1 

0005*0 



c ♦ p;x 

T * KTRaiSJlS]"!;* 
IF CC NEQ "MT'* AND C 



neq "dk") or 



07251000 
07252000 
07253000 



0005*1 
0005 * 3 
000712 



(C = "DK" AND COQNLY 
SPOUTCT INX Mtr-U) 
ELSE BEGIN C *• C g "MT";% 



) THEN 



07253100 
07254000 
072550 



0009*1 
0011*1 
0Q13»Q 



Tryagain* 



IF <H0R:*0lRECTGRYSEARCHCp(LDCNTRL)*Pt0ISK)»3)) ^ THEN 
BEGI N . ■ ' ^ ■.■■■• •'•■:. 



07255100 
O72560OO 
Q7?'i6200 



0018*1 

ooieti 

Q020*g 



3HEAT *= CM[r J=r,ETiJPACEC Jl^0*0) + 2n & 3oC8j38ilo]; 

stReam(si«f-i» o**f); % zero out the sheat e^try 

BEGIN 



sn«5; os:*3o wos; 

ENO; 
SeGO *" GETSPACEC30;»0*0)-t-2; 



07256400 
07256600 
07 25 6 800 



07257000 
07257200 
07257400 



0021*0 
0025*1 
0026*3 



0ISkWA1T(-SeG0» 30» M[HDR INX 10]); 

F,CFF] l« HDR; % CORE ADDRESS OF hEADeR IN iff} OF pARAM. 

SHEATt7] »» SeGO; % CORE ADRS,0F SeGmENT ZeRO in Sh£aT[7] 



07257600 
07257800 
07258000 



0026*3 
0027*1 
0027*2 



0029*3 
0032*2 
0033*3 



;f«iilillli»^*rttiiii|it|^':;v.,.; 

% C4* 13 IN SHEET t2J MEANS SUPREi>S 



boj/eoj Messages 



O72S#200 

•^tfttiiio 



0035*0 



07258800 T 0039*3 



3 

4 

6 

7 

9 

10 

12 

13 

14t 

16 

16 

17 < 

18 

19 

20 ^ 

21 

22 

23 { 

24 

26 

26 { 

27 

28 

29 ( 

30 

31 

32 ^ 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

41 ( 

42 

43 

44 4 

*6 

46 

47 ( 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ^ 



• • 



h 



10 

I 11 

12 

13 
I 14 

15 

)6 
I 17 

18 

is" 

20 
21 
22 
23 
24 
2G 

27 

28 

28 

» 

31 1 

92 

33 

34 

35 

96 

37" 



38 
39 

40 
41 
42 

w" 



4& 
48 
47 
48 
49 
SO 

51 ; 

52 

14 

55 
56 



LDCNTRLI t : 
nTSKtt I 



bHEATtl6] Is SHEATtl7] »» C- 377777777777; % 

aHEATL19] <« C; . % CUMMQNI VA| UF 



TIME LIMITS 



SHEATCSO] IB ftJ 
SHiATC2lJ J« 150; 



X CORE ESTIMATE 
X STACK SI2E 



stream(a:»o 

BtaiiN 



« S »» P(,SCHEDULtIOi>)); 



47{SKip 38; Skip oei TAi.LY»*TAUY+ii 

IF SB THEN Ei.SE JUMP OUT); 
OSt*S£Ti AMI ALLY; 



ENU STREAM STATEMENT; 



I Js p; 



SH£AT[3},ttnoi i« i> X Schedule number 

SHEATU33 l« CCLOCK + PCRTR)) DlV 6o; 

SH£ATCg53 «g HDR>lFr3i % DISK ADQRESS Op FILE HEADER 



T) 



ST8EArt(C# 
BEGIN 



DS»«3iiIT"CC EXECUTE LDCNTRL/0 jSK; COMMON*"; 

sn»LOc c; Dst«8o£c; 
ds;'»6LIT";end4»"; 



ENO STREAM STATEMENT; 

MCT] js o; M[T + n «= lo; 

SHEATr6J t» r,|.-TpSPnTSK k, 



iQrie»33M'^J; 



qiskwaitct* u# sheat[63 . ccf 3 ); 
F08getspacE(T); 

iNQFPE NnE^THliNNFRfHC.tiFl rr.TRiiM ^ .F . 1 AO M 

ENO ELSE % IF IN DIRECTORY 

BEGIN 

EnTFRSYSFTLFC^;)? 



GO tryagain; 
"locntrl'*; 

"niSK '^i 



end; 



end;* 



E Nn ; \ 



procedure TABLeoFCGNTENTS(a>COUNT)>ai 



07259000 
Q7259200, 



07259400 
07259600 
07259«iQO 



0039«3 
Q042»0 



07260000 

07260200 
07?<S0/|0n 



004311 
0044(2 
QQ45I^ 



07360600 
07260800 
07261000 



00a5«3 

ooa7JO 



004711 

004611 
00491.^ 



0726l?00 
0726U0O 
07261600 



07261800 

07262000 
0fg62200 



0050«1 
00b0«2 
005012 



005110 
00S3t2 
00S5t3 



07262400 
07262600 
Q7g 62 tiO0 



07263000 
07263200 
07263/100 



0057«2 

0058' 2 
00561 ? 



07263600 
07263700 
Q726380n 



0058»3 
0063*0 
00631? 



07264000 
07864200 
07264600 



0064»2 
0064»3 
006e«l 



007011 
007211 
Q 0? 3>Q 



07265000 
07265100 
0726'^20C 



0074«1 
0074«1 

007710 



07265300 
07265400 
07?6^S0fl 



07265600 
07266000 
0726^000 



007713 
007811 
OQflOln 



0081«0 
008110 

ooeiio 



VALUE b^cuunt; real b^cqunt;* 

BEGIN REAL I * T#N^ A, TUSTA, Tl* ^U; 
SET OMIT a NOT(PACKETS) 



$ SET OMIT • 



tABEL L*EXlt*an 
NOTCSHAREOISK) 

A t»B, 1151153^1; 



SjZE* 0082 WORDS 
07268000 r 0000 to 

START Qf REL SEftMENT; DISK topRESS ■ 00l77 

07268100 T 0000»0 
07269000 T OOOO'O 

07269099 T OOOO'O 



TuSTA:sM[a-i]; 
LOCKCQNTf^QLOLCKS; 

ajsfirStdeck; 



072 700 00 
O727O099 
07271900 



$ SET OMIT a NOT (PACKETS) 

L* ii»(GeTSPAC£(i4#o#o)+2) iNx tusta; 

■ ":<.""''y 'Gi*^' ; IF A » THEN GO TO EXIT;* 



07272000 
07272500 
07273000 



0000 to 
0000 to 
000010 



0003t2 
000512 
0010 « 2 



$ SET OMIT * 



iiiiiiiiiii 



DiSKrtAlTC-I* 12'A); 

Aj»M[i+6] .ccfj; 

NOTCDATACQM AND rtjE 

Milfiiiiiiipir 
m ■■■■■■■■■^ ' 



07273099 
07274000 
07275000 



07276000 
07278000 
0/276499 



ooiui 

OOlltj 
00t4t0 



i 






07281000 
07281099 

0^262000 



0015«1 
0016«3 
001911 



0019tl 
0Q19tl 

ooaitj 

0021 1 1' 



n 

2 

3 

4 
5 



6 
7 
8 
9 
10 
II 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 

26 

27 

28 

29 

30 

31 

32 I 

33 

34 

36 ( 

36 

37 

38 { 

39 

40 



• 

• 



42 
43 
44 
46 
46 
47 
48 
49 



m 



62 
S3 I 
54 
55 
56 I 
57, 



>T 



17 
18 



19 
20 



22 
23 
24 

25 ■'': 



27 
28 



31 



33 



34 

3S 



36 
37" 



39 



«2 



«7 
«S 



«9 

SO 



52 
53 



55 

set: 



3treamcn*t#tu»bu.» I ); 

d£GIN SI » LUC iM , ; 



S SET OMIT s NQTCPACKET5) 
t SET OMIT 3 PACKETS 

_^ DS 



SI «• sn-i;* 



POP 
SET 

_S£X, 



OMIT 
OMiT 

QMTT 



«• 6 UIT »« DECK "; DS * 5 CHRi» 



NOT(SmAReoISK) 

sharedisk 



POP 
SET 



OMIT 
QMTT 



DSt«8 LIT" "; 
NQTfPACKETS) 



* SET OMll 



NQT(R>IE AND 
OS««a LIT " 



uatacom ) 



"; 



M£XL 



» SET OMIT • PACKETS 



OS 



l»CP 
SET 



OMIT 
OMIT s 



5 un ' 



' iSl 






ns * I fT '**"»!>; 



NOT(PACr<ETS) 



i SET OMIT » 



3P0UT(I)i» 
NOT (PACKETS) 

SO TO LI at 



i SET QMIT 



EXITIIF N«0 THEN 

dtSIN STREAMCn; 
NOT(PACKFTS) 



$ SET OMIT a Packets 

S POP OMtT 



DStsie LIT ♦♦ NO DECKS ON 0ISK*«; 



$ SET OMIT ■ 



PACKETS 

END 



^OP 
SET 



OMIT 
OMiT 



SPOUT cn;« 

ELSE FORGETSPACECI ); 



NOT(PaCKETS) 

UNLOCKCONTRQLDECKSi 



ENo;x 

PROCEDURE «EMQVEDECK(N.TUSTA)^VALUE N^TUSTA^HeaL N>TUSTa; 



07284000 
07gfi5nC>0 



002412 
OQ gfiM 



07285099 
07265999 
072fl6fl00 



002613 
00)3613 
0026 M 



07286001 
07286100 

Q72R64Q0 



0026(0 
002810 
Q02R«Q 



07286500 
07286501 

0yP86sQ9 



07286599 
07286800 
07 286 900. 



0028(0 
0029»i 
Q029ti 



07286999 
07287000 
07298000 



0029 M 
002911 
00 3 012 



07288001 
07288099 
07269000 



003012 
OOlOlg 

ooiiia 



07290000 
07190099 
07291000 



0032»2 
00 32 « 2 

03212 



07292000 
07293000 
Q7P93099 



003213 
0033*2 
0033*2 



07293199 
07293200 
Q72932Q1 



0035 «0 
00 35' 3 
0037>0 



0037*0 
0037*0 
039* :^ 



07294000 
07294899 
07294g00 



0039*3 
0040*2 
0040*2 



07294901 
07294999 
Q72Q6ftQO 



004113 
0041*1 

Q04U3 



BEGIN REAL I* T# A,L 1* J^ I»L2* V; X 
SET OMIT a NQT(PaCK£TS) 



START OF REL 



07297000 T 0045*1 

Size* 0047 words 

07298Q0Q T 0000»0 



LABEL L,EXIT#REMOvE;* 
LOCKCUiNTROLDECKSi 
IFJI^OIREC TORY SEARCH ("DECK 



SEnMENT; oiSk 
07299000 
07299A99 



ADDRESS m 
T 0000*0 
T OOOQtO 



00179 



$ SET OMiT » NOT(PACKEIS) 

BEGIN I «• GETSPACE(5,0,0H2i» 
STREAMCN* l)i% 



'*N*5)) = THEn% 



07300000 
07301000 
07303000 



0000*0 
0000*0 
0006*2 



SET 
SET 



OMIT = 
UMiT • 



NOT(PACkETS) 
PACKETiJ 



07303499 
073o4o00 
07305000 



S POP OMiT 



BEGIN pS «■ 6 LIT »* DECK "i% 



07305099 
07305999 
07306000 



0008*3 
0008*3 

00U *2 



si «• uoc n; SI «. si+i; os ♦ 5 

OS » 19 LIT " NOT ON 0ISK»";» 



chh;x 



end;* 



GO 



END#» 
TO EXiTn 



07306001 
07307000 
07108000 



0012*2 
0012*2 
0012 *2 






iiii 



^'iiil^fiiiiiiiiiiiiiiii^j 



07309000 
07110000 
07311000 



0013*2 
0013*2 
0014(1 



IF (At»FlRSTDECK)s«(LH = I,|:FF]) THEN 



.',0ii,tl|«9'- 

mmmm 



0016*1 
0016*2 
0019*0 



001910 

•ooifii:; 



07313000 T 0021*2 



T< 



12 

13 



16 

17 ( 

18 

19 

20 ( 

21 

22 

23( 

24 



27 
28 
29 ( 



33 

34 

35 ( 

36 

37 

38 { 

39 



42 
43 



47 < 

48 

49 



53 1 



57f 



Tn« 



>T 



10 

11 



13 ,;fii 



16 
17 
18 



20 
21 



23 
24 

2g: 



27 
28 
29 
iO 



31 
32 
33 



34 
35 



3« 
37' 



42 
43" 



44 
45 



47 
18 



49 
50 



53 
S4 



ss 



i SFT QMrT 



BEGIN 

Packets 



POP 
_S£1 



OMiT 
OHIT 



IF {FlRSTDECKU|.2)aO THEN UASTOECK l»Oi 
NQT(PACkETS) 



0ISKWAiT(KLUMP*3#DlRECrOHYTUPi.3); 
$ SET OMIT a NQT(PACKlTS) 

GQ TO R£mq\/e; 



end; 
J * I 



C33>15];X 



_L1_ 



OlSKrtAlTC-J^JO'A)/ 
IF (VJ-MCJ+6J.tCf J ^«a THEN 
i SET QMTT « iNHTtPACKFTS) 



1 PfSP QMrT 



PACKETS 



TO REMOVEi 



$ SFT OMIT s 



IF V / LI THEM 

BEGIN A «. v; 
PACKETS 



GQ TO L ENO^X 



POP 
SFT 



OMiT 
OMIT 



MtJ + 63itCF3»»l.2; 

9 iMnrrPACKFTs^ 



$ SET OMiT » 
% POP UMTT 



Oli>KWAlT(J*30vA); 
IF L2 = THENX 
fl EGi N 



PACKETS 

UASTDECKJI 



■a; 



» SET OMIT * NOr(PACKETS) 

13 KW AIT CKlUMP/J* DIRECTORY TOP+3 J ; 

s SET OMIT ' Packets 



POP 



OMIT 
OMtT 



ENDj 



NOTcPaCKETS) 



remove: 

rORGETSPACtci); 

I{aDlREcTQRYSEARCHC"QECK 



«%N^a),[cF]; 



7 *- Hll*9Ji% 

FOl V > I STEP 1 UNTIi, T 0Q% 

If MEI4V493^0 THEN FORQCTU3£RDISK(M[I»V»93#M[U8]); 



STREAMCN* l)i% 
$ SET OMIT K UUTCPaCKETS) 

$ SET OMiT » Packets 



$ POP OMIT 



iEG IN D S > 6 LIT " OlC K " I X 

Si » LOG n; si * S|+ij OS > 5 chr;x 



OS 4. 9 LIT " REMOVED*-'';* 



$ SET OMIT » 



end;x 
Pa ckets 

THEN 



IF LlBMSa 
$ POP • OMTT ■■ • 
EX IT t SPgy^T EMCI&TUSTAC 9 » « » V 3 » TU ST A#U IBHS s ) 

s SET QMi T g Packets — '" '^ " ' '•' " 

EtSE forgetspacecd; 
t POP omit 



:fWi^li; 



. liiiiiiei N:iiiLOE:C k s j 



pWocEffOR^D 'tcKRLMaviei^iry; vALiit Br"fiL'AL^B;:t 



073H000 
Q73Hn99 



07 31 4 1 00 
07314101 
073 1 4109 



07314200 
07314289 
07314300 



T 
JL 

T 
T 

-5- 



0C23J3 
,0024 't 



002411 

osffiia 



07 3i4«00 
07315000 



0026«3 
0028 1 2 
0028«2 



07317000 
07318000 

07318009 



002910 
0029 to 
Q Oi OM 



Of 318019 
07318020 
Q7^1ftOgl 



003o«l 
00 31 « 3 
00 34 » 3 



07319000 
07320000 
07^20999 



003413 
003413 
003511 



07321000 
07321001 
07321099 



0035M 
003610 
00 371^ 



07322000 
07324000 
0712'^ono 



0037»3 
0040*2 
0Q40t2 



07325999 
07 326000 
0732^001 



0040*2 
004l»3 
004 2 *2 



0043*0 
0043*0 
00 4 311 



07326099 
07327000 
07327999 



07328000 
07328001 
Q73i»9Q99 



0043*3 
0043*3 
004512 



07331000 

07332000 
07333000 



0045*2 
0045*2 
004S»P 



0045*2 
0045*2 
0046*1 



07343000 
07344000 
07145000 



07346000 
07346099 
07346999 



0048*2 
0050*2 
0093*0 



0062*1 
0063*1 
0063*1 



07 347000 
0f34700l 
07346000 



0063*1 
0064*1 
0064*1 



0/349000 
O735O0OO 
07350099 



0065*0 
0066*2 
0066*3 



07350100 
07350101 
07851000 
07351099 
07351100 
0735 no 1 



0066*3 
0067*2 
0067*2 



0068*0 
0068*0 
0071*0 



07352000 T 0071*0 
07353000 r 0074*2 

O735«000 T 0000*0 



r< 



16 
17 ' 
18 

19 



21 
22 
23 ' 
24 



27 
28 
29 I 
30 



33 
34 
35 ( 
36 
37 
38 { 



42 



e 



50 ' 



52 
53 < 



55 
56 



rf 

2 

3 

4 
5 



REQIN RtAL ^fHfFn 



START OF REL 



secMent; disk 

07355,000 



ADDRESS » 

T, ooooin 



00182 



iNTEGErt U; LA8EU UN^ERR; 

REAL Di 

LABgL L*TRYIT.GIVEUPJ 



orissjoo T 

07355200 T 
0718^000 T 



ooooto 
ooooto 
onooin 



LJ ST«EAM(X4-12*BjA*0)'* 

tifcCiIN SI *■ t]i* 



07357000 T 
07358000 T 
07159000 T 



0000«0 
0003 «0 
00Qa>2 



7 
8 
9 
10 
11 



Ul IF" 3G ■ " •♦ THEN 8ESIN 
If SC*'*"" THEN BEGIN 



SI*SI*1J GO TO U ENDiX 
DI«-L0C Xf 01 ♦01*6 J DS»CHR1 
Sfi.St«>il B»STJ GO TO £ EnDI 



07360000 
07360100 
073A0pQ0 



000413 
OOOSiS 
0Q07tO 



IF SC ' "iC'V THEN Sll«5l + i; 
BU: IF 3Ca" " THEN BEGIN SI««SI*1^G0 TO BLi 
Dlt=LOC Xj OUsPI^i; DS»«5 LIT "«QOOO"J 



ENo; 



07361000 
07361500 

07362000 



0007«3 
0008*2 
0g P9» 2 



13 

14 

15 

16~ 

17 

IB 

19 

20 



21 
22 
23 



EN: 
N« 



4(IF SC < ••0" THEN JUMP OUT TQ 
IF SC.> ♦♦9" THEN JUMP OUT TO 
STt»Sl» H TAII Yt*TALLY*1 )l 



en; 

ENJ 



AjBTAuLri 
IF SC » '• 

PS *■ chr; 



si»esi-A; oijsdi-a; DsjsA chr; 

" Then begin si*si+i; go to n End;* 



£» ENOiX 

PC. a> **.«#«");* 

FoN^t 36 i 6 3 i N . 1 361 63 <i">** J 



07 369^00 
07364000 
07.165000 



ooijio 

0012ti 



07 365500 
07366000 

O736700 



0014»0 
0015»3 
161 3 



07368000 
07369000 
Q7 37 0Q 



0017»1 
0017 » 2 

o o iai ? 



IF F*"*-" OR F=:"," OR F*"3" THEN 

tiEGIN IF F»"*" THEN 
BE qlN If U'O THEN D^-GETSpAcC Cao ^O.O ?^2; 



07371000 T 

0737UO0 T 
07371?00 T 



0021«2 

O02a»i 

0025*3 



2S 
26 



27 
28 

29 



GiVEUPi 



UOCKCONTROUDECKSJ 
IF C N» ■ FIRST DEC K}»0 



THEN 



07371300 T 0029*2 
O737U00 T 0034*2 
0737U5Q T PQ3 5»3 



30 
31 
32 
33 
34 
35 
36 
37" 



BEGIN f:="«-"; 

UNLaCKCDNTROLDECKSi 

GO on; 



07371500 T 
07371600 T 
07371700 T 



0036*1 
003710 
0040*2 



TRYITl 
$ SET 



OMIT a NQTCSHAREDlSKj 



end; 
diskwaitc 



'D*30#N); 



N!sMLD+23; 
UNLQCKCONTROtOECKS; 



END. 



07171750 T 
07371800 T 
07371809 T 



0042*0 
0042*0 
0043*2 



07371Q00 T 0043*2 
07371950 T 0045*2 
07372000 T 0049*0 



39 

40 
41 
42 
43 ~ 



FOR U * STEP 1 UNTIL PSEUOOMAX OQ 
IF CI0R0W[U3X0 THEN 
IFCCI0TABLECU^23 E<aV N)aNOT THEN 



07372090 T 004910 
07372100 T 0051*0 
07372200 T 0052*0 



IF LABELTABLECU+32320 
$ SET CIMiT » NQTcPaCKETS) 
THEN 



07372300 T 
07372309 T 
07372330 T 



005413 
0056*1 
0056*1 



BEGIN 



END0PDECK(U#MtK-J3); 

m ONI.:-.' :'-■ ■.... ■--■- ■■>• ■ ■. 



07372400 T 0056*3 
O73725OO T 0057*1 
07372600 T 0059*2 



46 
47 
48 



ON* 



ENO ELSE GO TQ ERR; 

REM0VEDECK(N#M[K-13); 
IF F^"»" THEN GO TO Li 



07372700 T 0060*0 

07372800 T 0062*1 
0737290Q T 006/^1? 



t9 
SO 
51 



ERR* 



FORGETSPACE(K);x 
ENO EtSE 

sPouT(K iNx MU^n); 



07373000 T 0065i3 
07 374000 T 006612 
07 374 t 00 T 0066* g 



a 

53 

S4 



IF 0^0 THEN FORGETSPAcE(D); 



end;x 



07374200 T 0069*2 
07375000 T 00/1*2 
StZE« 0072 WORDS 



55 
56 



liiiiiiiiiiifiiiii?!^^ ;; :■.. 



START OF REL 



07376000 

SEfiMENTi DISK 

07 377000 



T 000010 
ADDRESS • 00185 
T OggPtO 



BEGIN* 



07378000 T OOOOlO 



• • 



X 

% 



HtO] a 

Hri3 - 



ADDRESS GF 
ADDRESS QF 



BU+l (B)* 



* HtaJ • DECK NAME* 

% H[33 « RECOR0COUNT (N)X 

% HTUl a WEXT CONTROL CAfln fP* 



07379000 
073flQ0Q0 



07381000 
07382000 
Q7.1fl30Qn 



0000«0 



oocoto 

000016 

Qoonto 



% H153 « RECORDS USED IN THIS btOCK 
X H[7] - Ht30] ARE FILE HEADER* 

hf:al ^»en 



X 1 ( R ) X 



0738*000 T 0000 «0 
07385000 T 0000 10 
Q73fl6000 T OOQOIO 



t SET OMiT 



DEFINE N*H£33*I*L*HU3##R»HC5]#;X 
INTEGER I»A; define MOMeCIDROWCMIB n#; 
« NOT(BR£AKOUT) 



07187000 T OOOOtO 
07388000 T 0000»0 
0736BQ10 T OOOQIQ 



10 

11 

12 



B «• HCOIJX 

IF R * THENX 

IF (M[B'2] AND 



IUMASK) = THENX 



07389000 T OOOO'O 
07390000 T 000l«3 
07391000 T 0002»3 



13 

15;' 






07392000 T 0005 » 3 
07393000 T 000013 
0739^000 T OQibta 



IS 
17 
IB 



M[IB INX NOT Ol *■ lO; 
IF CREAOEMFRQMDISK «• NsL) 
L *■ lBt9}t* 



THENX 



0739^500 T 
07395000 T 
7 896000 T 



001112 

OOlttlO 
0015<3 



19 
20 
21 



IF CA ♦ N ^ *PCOUP> + U > Ht73 THENX 
BEGIN REAOeMFHOMOISK:*!; 

STRfAMdBW 



07397000 T 001713 
07398000 T 002l«0 
07398 1 00 T 0022»1 



22 
23 
24 

26-:' 
26 

" 
28 
29 

30 



S SET OMIT ' NQTcPACKETS) 

DSJS7 LIT "CC END,"; 
$ SET OMIT » NQT(PACKETS) 



07398109 T 
07398?00 T 
07398309 T 



0023»1 
0023»1 
Q 2 *' 3- 



ELSE 



END 
BEGIN 



IF CR <• *PCDUP) + l0) » 30 THENX 
aEGIN IB * CMca-2]3iX 



07398300 T 002««3 
073«9000 T 002*13 
7 4000 00 T 0Q27>3 



R «• o; 

A ♦ A DIV 3+li 

UHCA DIV H[8]^-10]-»A MOD HC8]j 



07400400 7 0030«0 
07400500 T 003111 
07401000 T 0633«0 



32 
33 



DISKI0<IB*1*B»30#I)I» 

HC0 3 ♦ HC13;X 

Hcn 4. BIX 



07402000 T 0036*2 
07403000 T 0038*3 
07 4 04000 T 0040*1 



34 
35 
36 

37" 

3a 
39 



end; tNo; end** 

BOOLEAN PrUCEDUrE P RiNTPRPUNCHiN aI T C q»PNcH ) j V AUUE q^PNcHjrEAL q»PNcH; 



07405000 T 004112 

SIZES 0042 WORDS 
07405100 T 0000«0 



forward; 
procedure 



START OF REL 



EN00FUECK(R»TU5TA);VALU£ R»TUSTAi REAL R*TUSTA; 



SEfiMENTi OISK 
07405110 
07406000 



START Of t^fT 



ADDRESS « 90187 
T 0000*0 
X 0000*0 



ADDf^tSS •« 00187 

T 0000*0 

f 0000*0 



41 
42 
♦3 



45 
46 
47 
48 
49 
50 
61 
52 
53 
54 
55 

56 ; 

57 ■" 



BEGIN ARRAY H[*]; 
REAL BM/X 



SE5MENT; DISK 
07407000 
07408000 



S SET OMiT » 



NOT(PACKETS) 

LABEL tXIT^ 

IF (H;gClDR0WCR3)«0 



THEN GO TO £XIT| 



07408099 T 
07408500 T 
07409000 T 



0000*0 
0000*0 
0000*0 



LAjiELTAaLECR + 32] «■ Pll4; 
MuLTITABLECR+323 * RDCT ABLECR+323 

UMTCQQE[R-i'9j;a-0; 



0; 



07409100 T 
07409200 T 
07409300 T 



000213 
0004*2 
0007*3 



IF NOT TU&TA,Cl*U THeN Re«OVEDECK (HC23» AbS(TUSTA ) ) EISE 

P(DIRECT0«YSEARCH(-«DECK ">H(2],14)»DEl); 
FQ8 I » O.STEP 1 UNTIL 1 00» 



07410000 T 
OfAjOlOO T 
0741 lOQ O T 



0009*3 
001813 

00 15*1 



BEGIN B * HCJ3;X 

IF {MCB-21 AND lOMASK) s THEN 
Sl£EP(CMCB-233#IQMASK);X 



07412000 T 
07413000 T 

074 i 4oog T 



0017*0 
0011*0 

00 , 20* 2 



mmm§mmm§mm::!::^mm^mmnmsJmm^'■^ im i n e p ro a , 

liiaiiiipttipiMiii 



8iiiiii»M:j 



■■«tii:2 



FURGETSPTCECH.Clfil 15 3-2); 



07417000 T 0028*3 



$ SET OMir 



N 

2 

3 

4 

s 



.^JOT(PACKETS) 
CTQROWCR] <s 



jii 



07«l7099 T 
07419800 T 



ooai'i 
Qoam 



IFCRUNUMBER*RUNUMBER+J)>0 THEN 
5TaRTA0ECK(IF TUSTA.CUU 
fnSGE TSPA CECH)! 



THEN •HC2J ELSe 0)J 



07420000 T 003212 
07420010 T 003411 
07<it?Qo«iO T QOlAift 



E^ITI 

ENo;x 



07420100 T 0Q39JO 
07421000 T 0039»0 
Sj2g;» 0040 wOROS 



7 
8 
9 
10 
11 
)2 
13 
14 
15 
16 
17 



INTEGER PSEUOUCOPYiX USED SY STARTaOECK TQ CONTROL THE NO QF "COPUS" 
X OF CONTRQLCARn SERVICING PSEUDO-READERS 
pROCEnuRE starTadeckCmi; vaiUf Nj RFAL n; __^__ 



07«21500 T OOOOIO 
07481505 T 0000»0 
Q7i?2flQQ T QOOOln 



BEGIN lABEU EXlTfL*PQ5SlBUE'NEXTjX 
REAL I>.^>T*A>s; 



START OF REL SEr,MENT; DISK ADDRESS * 00l89 

07423000 T OOOO'O 
07424000 T QOO.O'n 






Ot«2«lOO, T OOOOtO 
07425000 T OOOOfO 
0742 15 00 T OQOO «Q 



START* 

IF N,[1«1J THEN BEGIiM 
LOCKCUNTROLDECKSJ 



sded*abS(N); n«-o end; 



07425600 T 
07425700 T 
07426000 T 



OOOOiC 

oooiia 

0004«3 



19 

20 
21 



IF RUNUMBER LEO AND N*0 THEN GO Tt3 EXIT; 
k-GAI.N'* • " 

IF fSEUOQgOPY > a THEi^ii; TOO MANY COPIES CQNTHQLCARD 



07«26i00 T 
07427500 T 
7 4 2^6 00 T 



000913 
OOI2I1 
QQI2H 



22 

23 
24 

26 

26 J'. 

27 |- 
28 
29 
30 
31" 

32 t; 

33': 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



If startog And n=o then go to exit % 

ELSE begin startog «• TRUEi 
UNLUcKcONTROLDECKSj 



07427610 T 0Q13«0 
07427620 T 00l5«l 
07427625 T 0017M 



06463300 



ACCIDENTAL ENTRY AT 2 



C0wPl£xSLEEP<PS£UO0COPY i 2);* 
STAHTpg » FALSE;a; 



07427630 T 002l»l 
07427640 T 0026^1 



GO TO STARTiX 

end;x 
for r 4- step 1 until pseuoomax do 



07427645 T 
07427650 T 

074 2 9000 T 



0028»2 
0030»0 
OQ3Q<0 



IF CIOROhCRJ « THEN 00 TO POSSIBLE;* 
ST«EAMCS*S»SPACEC<tJ>; 
DSt«27 LIT** ALL PSLUQQ-READEgS IN USE*-**; 



07429000 T 
07429100 T 
07429200 T 



003110 
0034«3 
0037<2 



SpQUT(i); 

GO TO exit;x 

POSSlBLEtX 



07429300 T 

07430000 T 

07431000 T 



004112 
0042«1 
0042«3 



IF CA»»FIRSTOECK)»0 THEN qO TO EXIT; 
LA$ELTABLEtR + 32]»*«'114; 
H»CI0RQWCR3»[HtS»GETSPACEf$4*20»l)*g]r&94f8t3Bl!0 3l 



07432000 T 
07432100 T 
Q7413ftQ0 T 



0042)3 
0044*2 
QQ4<^tl 



M[S-2J.[9I6] «• 0; h[2j * 0;« 
L» DISKWAlT(-S,30#A); 
IF N^q THEN 



07434000 T 
07435000 T 
07436 QQ T 



005H2 
0056 »0 
Q0 57«? 



46 
46 
«7 
48 
•9 
iO 
51 
S2 
. 53 
54 
55 j'i 



begin 



IF Ht2l,ci2»24 3yN Then GO to next; 

if Ht4i.t2tl3 THEN 



07436100 T 
O74362OO T 
074^6-^00 T 



oo5e»i 

0058»3 
00601^ 



BEGIN 

STRtAM(A!=CHC2]]* 
t SET OMTT » NQTfSHAREDISK) 



07436400 T 
07436500 T 
07436509 T 



OO61I3 
006211 
00j>3»n 



S SET OMIT* PACKETS 



S); 



6E6 I N Sl»gAjSl iaS l>l , jpSi«i6 LI T" DE C K " J 



07436520 T 
074363*9 T 
07 4 36ft00 T 



006310 
006312 
O063»2 



f POP OMIT 

$ SET OMiT s» NOTCPACKETS) 



DS)''5 CHR;DS|g7LIT" IN USE"; 



07436601 T 
07436609 T 
074 367 00 T 



0065 '0 
006510 

Q . 0^5 »0 






•..'O^iiiiiiisTs 



0066*2 
006612 



Jtp 



spouTcs); 



07437200 T 0067»1 



CIOROWCHJ j=o; 

GO TO exit; 



end; 

£N0 E15E 

IF HC43.C2tl3 OR caoED;<0 AND HC23»SDEn) 



07437300 



0066>0 
Q Q69M 



0/4 37S00 
07437600 
07»aM00 



T 
T 



0069*3 
0069*3 
Q069*a 



4 
5 

6 
7 
8 
9 
10 
11 
12 



S SET UMIT = NOT(SHAftEt)ISK) 

THEN GO TO N£.Xt; 
HC4]tg(*P(DUpn82[2»/46;2]&SYSlMQi:a»46»?]; 



07437899 

07438000 
07436^00 



0072' 2 

0O72<2 
0Q74«1 



0ISKWAIT($*30*A); 
$ SET OMIT * NOT (OATACOm AND R^E) 

HC 03 * S43g; » 



07438200 

07436250 
07441000 



OO77I3 
0079»0 
QQ7Q»fl 



H[l] *■ S+64;X 

T *- [HC30]]; DISKIU(T#I-HC03»30*H[l0]);X 

IF H[73 LSS 3 THEN H[62 3 » s lOM ASK ELSE 



07442000 
07444000 
0744bQ00 



ooeo>3 

008212 
0086^0 



13 
14 
IB 



SEfilN TtwtHC6233; IF HC83»t THEN 
'Ol9KlOCT*l*HCl3»30*HtlU) ELSE 
OlSKlO(T»l-'Hn3*30*HCx0 3*n; 



07445t00 
07445200 
O74453OO 



0088^3 
0Q9i»l 
0094*1 



16 
17 
IB 



S SET OHIT = 



enq; 

Tl«GET:3PACE(13*20*0) + itj 

notcsreakout) 



07445400 t 

O7446OOO T 
07446QIO T 



0097«3 
0097 » 3 
010Q»0 



19 
20 



$ SET OMIT « 



McT InX 103 J« HE5J; 

NOTCPACkETS) 

HC33 {« HC43 :« H[53 



|g HE63 »» 0; 



07446 too T 
07446149 T 
07446200 T 



100*0 
0102*1 
1 101 *1 



u 

23 
24 
26 
26 
27 
28 
29 
30 



M[T-4J,C9!63 «• on 

LABELTABLtCR + 323«'-<?l4; XLET IT E3E MQVeO 

I«-f^EADEMFHOMDISK(H>[M[T3 3<ilQ[8l38tlO]); 



inoe«'endentrunneR<pc»cOntrolcaRo>'T& 

S SET OMIT * NOTfOAFACOM AND RjE ) 
fR*^23rgl42<63« 



l92li- 



07^47000 
07448000 
07448*500 



010612 
0l09»3 

u n 3- 



07449000 
07 44 90 9 9 
07449g 06 



OUS'O 
0115*3 
OtlSII 



PStUDQCOPY ♦. pSEUOOCOpY ♦ i;% 

IF c^^unumber«.runumber-i) leo 
ciG to a sain; . . . , 



OR N^O THEN GO TU EXI t; 



07449^00 
07450000 
074*10200 



011713 
0U9»0 
0l?2t2 



31 ;, 

J2f; 

33 
34 

35 
36 



NEXTUF CAI*MI63#CCF3)^0 
IF N/C THEN 

9L QIN 



THEN GO TO L* 



STREAM (N,S); 
S SET OMIT = PACKETS 



BEGIN SI8SL0C N t S I t = S I44; pS : »7 L iT" OEcK »'*; 



07«5J000 T 
07452000 T 
7 452^00 T 



012310 
0l25»a 
Q126M 



07452200 T 
07452299 t 



0i26»3 
012713 



OM523O0 T OU7«3 



37 

38 
39 



POP OMIT 
SET OMjT 



N0T(PACKETS3 



CHR;QS»»13 LIT** NOT ON DISK*"; 



07452 301 T 
07452309 T 
07452400 T 



0129*2 
Ol29»2 
0l29*g 



40 
41 
42 



END 



end; 

SPOUT(S); 
Else forgetspacecs); 



07452500 T 
07452600 T 
07452700 T 



0131«3 
Oi32«0 
013213 



4S 
46 
47 
48 
49 
50 
51 
52 
» 
54 
55 
56 



cidrowcr] * 0;* 
ExiT» unlockcontroloecks; 
enq;x 



07453000 T 
07455000 T 
O745600O T 



013410 
0135*1 
0136*3 



PROCEDURE RUNThEOEC*<CB);vAlUE 6' RfcAL B}% 



START OF REL 



SlZE» 0140 WORDS 
07457000 T 0000«0 
SEr,MENT; DiSk ADDRESS c 00l94 



BEGIN fliAL I*j;!l ^^— 
STREAM(Sl*0rB#AI«C13)i 
BEGIN SI > 81% TO 



REAL IN I 



07458000 T 0000»0 
07461000 T 000010 
07461100 T 0002»0 



L: IF SC s " " THENX 
BEGIN SI ♦ SI 
IF SCg^iK*' THEN 



+ 1; GO TO l; end;x 



07461200 T 0002»1 
07^61300 T 000213 
07461310 T 0003»1 



BEGIN LllSI :»SI*i;iF SC5« " THEN GO TO Hi 

Dst»4 LiT«oooo";ost»4 chr; TALLY »■ i; GO TO ex; 



07461320 T 000313 
0746133© T 000413 
07461340 T 0006*1 



SI «. 51 



1;* 



07461400 T 0006«1 



10 

11 



17 
IB 
19 



22 



24 

25 



27 
28 



31 
32 



34 
35 



36 
37" 



38 



41 

42 

43' 

44 

45 

46 

•7 

18 



49 



S2 



S4 

55 1 



IF 



SC S "9" 



THEN 
QS . 



GO TO Ex;x 
thoi si ♦ si - li 
ex»s**tally; 



IF SC > 



"O'' THEN GO TO TWO; 



07^61500 
■0.7 ^.61 ."ii 10 



0006>2 
QQQ7M 



OS * 2 oeii 



07461520 
07«61530 

oy<6 i54 o 



000a u 

0008*2 

009*0 



ENO; 

j:sp; 

B|-B,C15»15]' 



11 



07461550 
07461560 
07461'^70 



00091 1 
000912 
OOIQIQ 



l:r.J/;THE,N. : 

■BEQIN • 

FORGETSPACEtBif 



07461600 
07461700 
07461800 



0011*3 

0012*0 
0012*2 



STARTADECKCI )/ 

END EUiJE 
BEGIN 



IF I GTR PSEUOOMaXI THEN II«N ABSCRUNUMBER ) EL»E 

BEGIN 

RUNUMBERltfJ ^ 



07461900 
07462000 
07462400 



07442200 

07462250 
Q74ft23Q0 



0013 « I 
00U»O 
01 4*0 



0014*2 
00|6*3 
QOlHl 



FUR JJaO STEP I UNTIL PSEMOOMAX DP 

HUNuMBEH«sRuNUMBER-(CIDROWCJ]^0)i 

jumi. 



STREAM CXI :*1-I.tl :13#X2t»RUNuMBEft»Cltl3#I IbABSCU*B); 
BEGIN CH»Cl*Xi; GO Ll; OSlaiOLlT" Xltl USe **i^Q Lzf 
Lll f:lI»CI*X2i GQ L2J QS I »l I T***** j l2i 



07462400 
07462500 
Q7tt6260n 



07463000 
07464000 
07064100 



0018*0 
0019*0 
0023*1 



0023*1 
0026*1 
OOZqIq 



SIULQC 

OS <• 13 



ENDJit 



i;os?=2 dec; 

LIT " PSEUDO' 



RDRS*-". 



07465000 
07466000 
07467000 



SPOUTCB INX -MtB»l3); 
IF RUNUM8ER GTR ThEn STARTAOECK (0); 

end; 



07468100 
0746^000 
Q 7 47 2*SQQ 



0030*1 
0030*3 
0032* 3 



0033*0 
0035*2 
QQ37I3 



end;x 
procedure externalenq(b); value b; real b; 



BEGIN REAL u; LABEL EXJT; 

u » umtin(tinu^bj; 



staut Of rel 



07473000 T 0037*2 

SiZ£» 00 38 WORDS 
07473 100 T 0000*0 



SEfiMENT; DISK 

07«74»000 
07/a7SnQ0 



ADDRESS » 00196 
T 0000*0 
J QQ0Q*Q 



S SET OMIT a 



8 «■ B,tl5llb]-l; 

IF 32 S U AND U S PSEUDOMAXT 

IF LABELTAbLELU] i THEN 



THEN 



07476000 
07477000 
07478000 



0002*0 
0003*3 
0005*2 



NOT(PACKETS) 
IF CIDH0WCU-3Z] 
BEGIN 



X THEN 



07478099 
07478500 
07079000 



0007*0 
0007*0 
OQ09tQ 



endqfdec^(u-32»m[b-u ); 

fgrgetspace(B); 

GO TO Ex. n; 



07479^00 
07480000 
074P 1000 



0009*2 
0012*1 
0013*0 



end; 
spuut(b inx ml8-13); 
exitienu; 



07482000 
07483000 
07484000 



001312 
0013*2 
00 16*0 



PROCEDURE CHANGEPRlQHITY(BUFF*MiX); VALUE BUFF, MIX; REA^ 



BEGIN INTEGER PRIORITY; «EAL b; 
* SET OMIT « NOTCPACKETS) 

BUFF «• ((B»BUFF)«ClSil53 



BUFF, MIX; 
START 



OF REL 



SiZE= 0017 WORDS 
07485000 T 0000*0 
segment; DISK ADDRESS » n0l97 



STREAMCPHlQRlTlf »B); 
BEGIN Si«-b; 

n* if sC"**»" then go tq x; 



lUWC.PC0UP)-l3t9t9l93J 



07486000 
07486499 
07487000 



0000*0 
0000*0 

ooeoiQ 



07468000 
07489000 
O749O0OO 



5i«.b; oi«-lqc 




iifliiiiili*!*! 






0005«0 
0006*1 
0006*2 



priqritt; b«"Tally; d5«-b OCT; go to ^ 



.^otiiiiifRf 



iiiiiii 



07494000 T 0010*1 



• • 



2 
3 

4 
5 
6 






DI«"LGC HHIQKITY; SKlH qb; DS*11 5tT, 



07495000 
0,7,^960,0,0,, 



0011»3 

0.0,12 « 2,, 



END stream; 

IF (PRIORITY*?) i THEN 
TF PRYORCMIXJ^O THENX 



07497000 
07496000 

oyiftiono 



001212 
001213 
013 13 



IF JARCMIX'*]AU THEN 
BFGIN gAR[MIX#2J»[CF ]*. PR YOKi. Mix ] «■ P(PRIQKITY<- 
TF PRInRlTY^32766 THFN 32766 Ei^S£ PRIORITY^ 



pUp? & P[CTF1> 



STREAMCvl^JARCMIx^^^^MIX^PRIQRITY^BuFF); 

BEGIN DS*'l0 LIT " PRIORITY*"; 

SI»LOC PRIORITY^ BUFF*UIJ DS*6 DEc; DI»DW6f 



07502000 T 

07503000 T 
07503S0O T 



0015M 
0016«3 
0019<1 



07504000 T 002313 
07505000 T 0025«2 
07506n0Q T 002710 



10 

11 

12 



DS«-5 FILL; 01«-BUFf; DI*DI+6; DS^LiT'M"; 

si*-j) si«-si + ii Ds*7 chr; SI*SH-U Db*LlT"/"; 



Ds*7 chr; 



0S«-LIT"»"; 



si«-L0c mix; pS»2DEc; DS»LIT"»"; 



07507000 T 0028»0 
07508000 T 0029J1 
07509000 T 003|tQ 



13 
14 
IS 



01*01*3; OS*FlLl.i 

ENo end; 

SPQUTERtBUFF^UNITNOfl); 



07S09500 T 
07510000 T 
Q7511OQ0 T 



003212 
0033*0 
0Q3 3M 



16 
17 
IB 



End changepriority; 

pRucEnuRE lntercontruldeckch); vALLfc: h; array H[*]; 



07512000 T 0034 »0 

SlZE» 0036 WORDS 
07*341000 T OQQO'O 



19 

to ~ 



21 



START Of REL 



BEGIN REAL R*S'T*T1*T2; 
TNTFGFR li 



SEGMENT ; OlSK 

07542000 

07543000 



ADDRESS >00i«9 

T 0000^0 

Jt OO OQIO - 



22 
23 
24 



SET OMIT 
T«-"DEC« 

Sta N EV T 



XIZ 



» NOTCPACKETS) 
♦'&HC4JUU7: ij; 

aNUMCO.)/ 



% FOR ScRATcHDlf< DELETE 



07543099 T OOOO'O 
07545000 T 0000»0 
07547000 T 000 3?-2- 



2S 

26 H 

27 if 
28 
29 
30 



DiSKWAlT(KLuMP#3'DlR£CTQRYT0P + 3); 
SET OMir a NOT{PACKETS) 
Ht n it "go o 12000 36000 30: 



X CHANGE LASTCOnUM QN DjSK 



L4. 



07547100 T 
07547499 T 
07548000 T 



0004<3 
0006»2 
0006 tjg 



SET OMU s NaT(PACKETS) 

STREAMCDATE#8«-tH[33])i 
nEGiN SI«-LUC DaTE;dS»B 



UcT;DI«-dI-6;dS«-2 LIT"»7";eNdj 



07548099 T 
07549000 T 
07549100 T 



0007«3 
000713 
0009»0 



31 ,i 

32 i 



33 



HC43 «» 08; 
$ SET OMiT » NOT ShARCQISK 
15[12»44;43; 



0755.0000 T 001012 
07550003 T Oeutj 
07550010 T 001 Ml 



34 
35 
36 

37" 
38 

39 



H[l3«-(XCL0CK+P(RTR))&Ht3U65 30:i8]; 
Ht2]«sS»sPi4 49i2c6J42«6 JiSti2«2A«24HP37[36»42S6]; 
TltaEUFcT^S^H.CCFJ-l); 



O755O1OO T 
07557000 T 

07559000 T 



0012'3 
0015«3 

0020«2 



SET OMIT » NOTCPACKETS) 
Ht23>LASTCONUM; 
IF riRST0tCK»O THEN FIRSTOECH»»T 1 



ELSE 



07559099 T 
07559500 I 
07560000 T 



0023*2 
0023* 2 
0024* 3 



40 
41 
«2 



BEGIN 
SET QMiT 



s SHAREOISK 

lockdirectory; 



07561000 T 
07561990 T 
07562000 T 



0026«3 
0030*0 
0030*0 



$ POP OMIT 



DISkWAITC-<I*»SpaCEC30)),-30#LASTDECK); 
M[U6].lCF3f»Tl> 



07562010 T 
O75640O0 T 
0756SO00 T 



0036*2 
0036*2 

oo»o*t 



•6 

47 
«8 



S SET 



oiskwaitci/-3o#lastqlck); 
forgetspacecI ); 

QMiT = ShAREDISK 



07566000 T 
07567000 T 
07567990 T 



0043*0 
0044*2 
0045*1 



«9 

50 
51 



unLqckoirectdry; 



POP OMiT 

, „ .■•ifio-; . 



07568000 T 0045*1 
07568010 T 0048*3 
07569000 T 0048*3 



52 

S3 
S4 



lastdecki=ti; 

DlSK»^AlT(KLUMP'-3^DIHECTGRYrUP + 3); 

unlocktogccqmaskj; 



GTR THEN STARTAOECKCO >; 



07570000 T 0048*3 
07571000 T 0049*2 
07572000 T 0051*2 



07573000 T 0055*0 
07575000 f 0057*0 

SlZE» 0060 WORDS 



55 

96 



END 



if ru number 
entercqntrouoeqk; 



BOOLEAN PROCEDURE MTX I NC I , O' BuF F ) ; !« 



55 

56< 
57 



O8OOO0OO T 0000*0 



R&AL U.BuFF; IMEGFR IJX 



START OF REl 



segment; Disk 

QwoninQO 



ADDRESS » 
J onontn 



00201 



1 

2 
3 
4 
S 
6 
V 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 



BEGIN LABEL EXlT^xn 

U * UMTIN(T1NU#BUFFJJ 
BUFF «• BUFF^El5»15J"n 



06002000 T 0000*0 
08003000 T 0000*0 
OflQOanOQ T 0Q09M 



if u > 15 thenx 

8Egin;stream(buff); 
G Q TO Ex n; i t . 



OS * 8 LIT "INV KBO ";: 



08005000 T OOO^M 
08006000 T OOOS'O 
08007000 T 0007*3 



END ELSE I * TW0CU)J 
STREAMCA»-TlNUCUJiaUFF);x 
SEfiTN ST»LQC A/ SI*-Slt5f nS»LlT" "; dS»3 CHRfX 



08008000 T 0006*1 
08009000 T 001011 
QeQlQQOn T Q0U*3 



OS <• 

end;* 



LIT 



Dx;x 



08011000 T 0013*0 
08012000 T 0013*3 
0afll3000 T 0010*0 



IF LA8£LTABLEtU3 » «»U4 OR LABELTABLE jU 3 w 9214 THfNX 
BEGIN 

STRrAMf.SAmi»C(T AMn SAWFwnRni NlFQ ni. RUFFU 



08014000 T 00l4*g 
06015000 T 0016*3 
OeOlSiOO T 0017*1 



BEGIN 
DS«*1QLIT"INQT 

?AVcrji»«ni'ii 



REAUY«-"i 
n5i«6LlT'^f§AVEn)»") 



08015200 T 
08015300 T 
QS015400 T 



0019*1 
OOI9II 

oo?n*3 



19 
20 
21 



end; 
GO TO exit; 
• f ND. ;y... ■ .;.. ' 



O8O155OO T 002310 
08016000 T 0023*1 
Ofl OiyOQQ T 023* 3 



22 

23 



24 

a 

29 
30 



IF LAaELTABLE[U] < ThENX 

BEGlN;STREAkCBUFF); 0^ 
END% 



♦• 7 LIT "IN USE*";* 



08016000 T 
08019000 T 

oaozooon t 



0023*3 
0024*3 
0027*2 



I 

o 



<3' 



ELSE GO 
EXITJMTXIN «• 



TO x;x 
true;x 



08021000 T 
08022000 T 
08023000 T 



0027*2 
0027*2 
0028* 1 



PROCEDURE TAPEPURGt(BUFF); VaLUE BUFF; REAU BUFFj* 



START OF REL 



SIZE* 0029 WORDS 
08024000 T 0000*0 
SEffWENT* DTSK ADDRESS « Q0p02 



31 

32 

33 

34 

3S 

36 

37" 

38 



BEGIN LABEL EXIT;X 

REAL uun 

REAL H*T; 



08025000 T 0000*0 
08026000 T 0000*0 
0ftQg7n0Q T 0QQQ*O 



BOOLEAN TESTJ 

REAL WhAT = BljFFiX 

IF MTXINC PU^InHATJ 



THEN GO TO EXIT;X 



08027x00 T 
O8O280OO T 
08029000 T 



0000*0 
0000*0 
0000»0 



STREAMCBi«BUFF*T*tT3)i 
BEGIN SjlsBi SU3Sl + 6i 
IF SCa"-" THEN 



BEGIN Sll»SI+l> 
5(1F SC*"*" THEN JUMP GUT; 
TALLYt»TALLY-^USi8»Sl.»-i)j' 

si-Bi DS»«B ac 



08029015 T 
08029020 T 
08029025 T 



0003*1 
0004*1 
0004*3 



40 
41 
42 



08029030 T 0005*1 
0802903b T 0005*2 
0B029040 T 0006 » 3 



43 



bJ'Tally; 

END/ 

end; 



SIJsSI-B; DS»«B OCT; 



08029045 T 
08029050 T 
08029055 T 



0007*2 
0008*3 
0006*3 



46 
47 
18 
49 
30 
51 
52 
S3 



labeltablecu] *- -&14; 
if (r«-waitid(p500000000*p177*u))^0 then 
if rx(!'120 then xerror other than write 



LOCK 



08029i00 T 
Oa030oOO T 
08030100 T 



0009*0 

0010*2 
0Q12I3 



8£GIN>STREAM(U*TINUCU]'6UFF); 

BEGIN DS*'14 LIT "tCANNOT PURGE »i 
SI^LOC Ut $I»Sl»5; DS»3CWR; 



08030200 T 
08030300 T 
0993 310 T 



0014*0 
0015*3 
00 17*3 



DS4-LIT"*"; 

end; 

LABELTABLE[Ul»g214; 



O8O3O32O T 
O8O3O33O T 
8 304 Q T 



0018*2 
0019*0 

..,9,91..i*.l... 



is 
5« 

57 I 



i^mmmmmmMmMmmiimimm 



jimM. ■■mt ;.>;w8.1.f E ■ ,LQ:CK »;" I X 



tOiiiiliilf' 



0020*2 
002210 

tin 



55 

66 t 

57 



LABELTABLECU] *■ ^114; 



08031100 T 0025*1 



• • 



>r 



GO TO EXIT/X 



LNn;i)i 



IF T»0 THEN., 

8E«IN Tt«PRN7ABLECU3. £301183; TESTim TRUE ENO; 

STREAwCAt«T#BUFF)i 



08032000 
QflO,'!»30QO 



06033980 
08033990 
Q RQ3< >n Q0 



0026«2 
00 27»n 



0027»0 
002713 

QQ3 0*? 



BEGIN Dl *■ DI ♦ 3; DS *■ 
8(QS«-2 UIT "OX"); 
2ACnS-2 LIT "O'M; ns»2 



a LIT " LABtu 
L I T "^*"j 



08035000 T 
08035100 T 
OflO3»n0Q T 



0031»2 
0033«0 
00 3<t«0 



DI «• DI-2i; SI *• LOG a; OS ♦ 5 DECM 
rtRRMECH * I QR RRRMECNJi 



0803/000 T 003512 
08038000 T 0036lt 
0«039n00 T 003At9 



10 

n 



MuLTITABLEtUJ ♦ C'* . 

P(WAlTlO(P'S»20GOO00O0/0fU),0EL,)'* 

R *■ WAITIOCBUFF INX >^205ooooqoOi,P?Oooooq>u) 



ORX 



06041000 T 0037 « 3 
08042000 T 0O39«0 

0flQ430QQ T 0^0!2 



13 
14 
IS 



WAJTIDCBUFF INX t0#*a00OOO0»U );X 
IF MOO 3 I OS THEN lAl 
DO U^TIL P{WAlTln(BUFF IMX »34000QOl2yg50^ U n»»iO XAt 



060l^«000 T 0Q42lt 
08044500 T 0044^3 
Q60446P0 T 004513 



16 
17 
18 



ELSE , 

P (WAIT iqcf420a00000O»C'U)* DEL);* 
5 LEEHaTQGLE]f5TATUS >* AS K }; 



XAI 



08044700 T 
0604^000 T 

Ofloaeooo T 



004810 
0048* 3 
0055< ? 



19 
20 
21 



RRRMECH ♦ RRRMECH AND NOT IfX 

READY *■ READY AND NOT Hi 

IF R s THEN BLGINX . 



0804700O T 0057 »0 
08048000 T 0058* 2 
08Q49QQ T 0060*0 



22 
23 
24 



LABELTABLttUj «■ ^XiHi% 
IF TEST THEN BEGIN STREAM (BUFF ); DS :s6Ll T"PG-ED«.";END 
ELSE BEGIN ^Tre. AM( A » »T ^ Bt » pRnT aBlECUJ . [ 30 i 163 * bUF F ) ; 



08050000 T 
08051000 T 
06051010 T 



006111 
0062'2 
0065«1 



25;, 

26 

27:/ 

26 
29 

90 

31 y 

32? 

33 

34 

3S 

36 

37" 

36 



BEGIN DSJ*lOLIT"PG-EOCPRNs«; 
SpsLQC a; QSlsK, OEc; 
0S«»5LIT"«WAS "; 



08i5lo20 T 
08051030 T 
080&IQ4Q T 



0069 »0 
0070*2 



SIIbLOc b; ijSjss UEC;DSJ«i;HT")4."; 

end; 

prntablheu] a3o;ie3 <• t; 



06051050 

08051060 

06051065 



0072'0 
0073»0 
0073*1 



end; 

EXiTl SP0UT{NA8S{BUFF 
END else BEGIN* 



INX MtBUFF'-i3)>;X 



08051070 T 
08052000 T 
08053000 T 



0075»3 
OO75I3 
0076*2 



LABELTA8LECUJ *- P214;X 
FQRGETSPACECbUFF);* 



end;* 



08054000 T 0079*0 
08055000 T 0080*1 

0B056Q0Q T 0061*0 



ENDiX 
PROCEDURE GIMEOaTECB>OT); VaLUE i»0T; #fcAL a»OT; FORWARpi 



XRH 



08057000 T 0081*0 

Size* oosa words 

08070000 T 0000*0 



40 
41 
42 



PROCEDURE REwrNDANIJLGCK(WHAT); VALuE WhAt; REAL WHAT;X 



Start of rel SEr,MENTi diSk 

08079000 
START OF REL SErMENT; DjSk 



ADDRESS K 00205 
T 0000*0 

ADDRESS a OQ2O5 



46 



BEGIN REAL BUFF«WHAT#u;» 
INTEGER n* 
LABEL EX I Til 



O8O8OOOO T 0000*0 
0808 IQOO T 00t)0»0 
O8OS200Q T 0000* 



46 
47 
«8 



IF MTXlNd'U^BUFF 3 Th^N GO TO EXIT,;X 
RRKMECH * RRR|»^ECH QR l}% 
LABELTABLECU3 *■ -^I4;ilt 



08083000 T 0000*0 
0808*000 T 0002*2 
08085000 T 0003*3 



«9 

51 



MULTI TABLE tU3 ♦ Oi% 

P(WAlTIQC?42000000O0*0fU.)*D£L);* 

StEEP(nQGUE3*STATUSMASK3; 



08086000 T 0005*1 
08087000 T 0006*2 

oeoeeooo t Qooe*o 



52 
S3 
S4 

55 
56 
57 



RRRMECH *■ RRRMECH AND NOT 
READY * READY AND NOT i;* 
LABELTABLECU3 «• P2U;* 



i;% 



08089000 T 
08090000 T 
08091000 T 



0009*2 
0011*0 
00^2*2 



STREAM(BUFF); DS * 5 LIT "RW/L*";* 
EXIT! SPOUTCeUFF INX MEBUFfl 3 3; 

end;> : .. 



08092000 
08093000 
08094000 



0013*3 
0015*3 



Size* 0020 words 



• • 



rf 

2 

3 

4 
S 



PPOCEDUHE PHlNTDlRECTOHY(BiJFf''*COOE); 



STAR T OF H EL 



0809SOOO 
SEgMFlNT/ DjSK 



T 0000 
ADDRESS 



«0 



OQgOft 



VALUE 8UFF>C0UE i REAL BUFF#CODEi 
BEGIN ARRAY HD«C*3*N8t*3; 

REAL STA»A>BaC>T«CR*N; ._ 



08095100 
08096000 
OftOq/nOQ 



T 0000 
T 0000 



«0 
10 
LSL 



REAL InFUTYPE^INFQWNFQTEMP' 
LABEL GETADATE^INFOUTi 
I NTE G ER l*u; 



XRH 
XRH 



08097100 
08097200 
0R09ao00 



T 0000 
T 0000 
T OCOO 



«0 
«0 



7 
8 
9 
10 
11 
12 
13 
14 
15 



LABEL GETHOH» IN*OUT* ARQUNC*XOUTI 
ARRAY OsNBC*]; 
RFAL USERI0>P6; _^ 



0e098l00 
06098200 
Qft096^0Q 



T 0000 
T 0000 
J QQOQ 



to 

»0 
LJL 



NAME ADDR; 

INTEGER Jl*J2'J3*Ki*Ki:; 
RFAL PbPTOG.LABELREC; 



08098400 
08098500 
0flQ98550 



T 0000 
T 0000 

, T O O P O 



«0 
«0 



16 
17 
18 
19 
20 
21 
22 
23 



24 
2S 

26:;! 

27 

28 

29 

90 

31 " 

32 

33 



SUBROUTINE 
BEGIN 



FINOWHATINFO; 
IF jNFQTYPEs^DATE " THEN 



XRH 

XRH 



09090000 

08099100 
OflQ99gOQ 



BEGIN 



lNFaTEMP«=MDKC3],[30«ie]&UlU3{5]; 

GO getadate; „ 



XRH 
XRH 



T 0000 

T 000 1 
T OQOl 



10 

to 

IIL 



08099210 
08099220 



T OOOl 
T 0002 
T 0004 



»3 

»l 
13- 



end else 

IF iNFOTYPEa^LAST 
BEGIN 



"THEN 



XRH 
XRH 

» RH 



XNil 



lNF0TEMP»eHDH[3],C 12' lOHgC lM3l 53 ^ 
GO GETADATt; 
ELSE 



08099240 
O8O993OO 
0RQV93 10 



T 0007 
T 0007 



»0 
»0 



XRH 

*RH 
XRH 



0fl099320 

08099330 
080993^0 



O008 
00 11 
0013 



»3 
«1 

LO- 



IF infotype«"Recs 

BEGIN 

^F (A row "Pan 



" THEN 
"1 9 nm f> PR 



XRH 
XRH 



OBO994OO 
O8O994IO 
08099f|lg 



T 0013 
T 0014 



»0 

M 
i3- 



(A EQV 

info 

iNrO«=CHDR[73 



♦•PUU 
la (hDH 



•♦) s NOT THEN 
tnx5)<13[lS43»5] ELSE 

»1U3[1U3»5J; 



XRH 



08099414 
O8O994I6 
08099/^20 



0016 
0018 
0021 



H 

«o 

«0 



GO TO INF0UT> 
END ELSE 
IF IiNFOTYP£»"SUE 



" THEN 



XRH 
XRH 
XRH 



08099430 
O8O9944O 
0fl099«s00 



T 0027 
T 0026 
T 0028 



12 

to 

iJL 



34 

36 
36 
37" 



BEGIN PG«»HDR[9] A 

1NFQI=0> WhlL 

HDH[INFQ'>'9J^0 



ND e37; 

L ClNFa«*INFU+l) LEQ PG 00 IF 
fHEN lNFOTEMPtsiNFOTEMP-»l; 



XRH 
XRH 

XRH 



O8O995IO 
O8O99520 
08099530 



0029 

0031 
0034 



»1 
M 



38 



lNF0«=CINFOTtMPxHDRt8 3)«.'*Cl»43»5 3i INFOTEHP»«0i 
GO TO INFOUTi 



ENo; 



XRH 
XRH 
XRH 



08099540 
O8O9955O 
0B099«i60 



T 0039 

T 0042 

J Q O*f ? 



«0 
«1 
13- 



40 
41 
42 
43 



GO Tu infuut; 

GETADATt* 
STHEAMcA»-TNFOTEMP,ClOllfl3#n«CINFO]3J 



XRH 
XRH 
XRH 



08099570 
08099/00 
Ofl O99710 



T 0042 
T 0043 
T 0Q43 



«3 

»1 



46 
«6 
47 
•8 



BEGIN SMsLOC a;oS 
GIMEDATE(CINF0].CC 

TNFO.[lt53l»lNFOT£ 



l»8 DEC ENO; 
F],«INFO); 

N<P. [ 1» 53; 



XRH 
XRH 

xrh 



08099720 
08099730 
0a09974Q 



T 0044 
T 0045 
t 00*7 



«3 
12 



INFOUTJ 

P(DEL); 
G Q TO I N ; 



XRH 
XRH 
XRH 



08099750 
08099760 
0809 9770 



T 0Q49 
T 0049 



»2 
«2 



50 

BiS 
52 
S3 
M 



ENDI 
N8««CMCSPACEC60)3 3&6OC8»38«l 
STAt«MCCBUFF|c(Cl«BUFF}.t:i5» 



XRH 



031 
153'1)"13; 



08099800 
08099900 
Ofl lClOQC 



T 0050 
T 0050 
T 0060 



»1 
»2 
L3- 



$ SET OMIT s iMQT(OATACOM) 
NAMEID(A,C)i 
NAMEIU(B*C)J IF B»". 



V>;i»iiiiiilil««liii«l 



" THEN NAM£ID(B*C); 



08101039 
O8IO20OO 
O8IO21QO 



T 0064 
T 0064 
X 0065 



»3 
»3 



56 

52 



m 



ja.>i»i.i. ..-t,.aaititinBwX:i>'..f.-,ii.i.a.i.....ir. 



f )»iNf}i 03 THEN QO 



XR^ 






0069 
0070 






IF (A EQV '•<•«• 



"JaNUT THEN A*"<- 



••; 



08103200 T O074I3 



• • 



h 

I 2 
3 
4 
I B 
6 
7 
I 8 
9 
10 
11 
12 
13? 
14 1 
15 I 
16 
17 
18 



19 

20 
21 
22 
23 
24 
K$ 



27 
28 



29 
30 
31 " 

J2>' 



I 35 
36 
37" 
38 
39 
40 
41 
42 
«3~ 



IF (B EQV "♦* 



IF COOE/3 THEN 
BEGIN 
IF A.C»t63 NEC 31 



')s NOT THEN 



B*"*. 



"; 



IF B.C616J 

END/ 
TF CflNFQTYPf 



THEN 



^ „ , ^U*Klia€A.C6;16]-»A, Cg4n24jy MDD MQDm USi 

NEti 31 THe;N J3S=>^2«*{y,[6«l8J+B,C24J2flJ) MOq MOqULUS; 



J^ 



IF COOE^O 08 CCUOE^O AND STA,C9I9]xO) 

HDRl»C«CSPACE<30)3 3«30C8t38»lO]; 

FOR J1I»J 1 STEP 1 U{<TIL Kl DO 



"3X NOT Q AND CnOFBO) thfN CQDrlaS; %RH 



THEN 



XRH 
XRH 



00 



FOH J2:*Ji STEf* J UNTIL K2 
BEGIN J'sScKAMBUECJI* J2); 
DO BEGIN 



GETHOR» 



IF 



IF C0U.£ = 3 THEN COf^MENT UD; GO GETHDR 
IF CT EQV A)s NOT OR (A EQV •♦♦ 
IF(NB[I41]EQV BjeNOT QRCB EtiV»««. 



ElSE 
")« NOT 









thEn 

XHEji,. 



cooE««o And userio^o then so to in else 

BEGIN T»»HDR.tCF3iNB£l+a3CCTF3; 

PISKWAITCTaCF3^^Q<T.CFF3^J 

IF C0DE»5 THEN iF USerIdsQ THEN F InO^^HaT INFO ELi»t 
IF SECURITYCHECKCNB[I3*NB[I+lJ,USERlD#Ti^0 THEN 
FlNnV^HATTNrO {lLSf RQ AROl/Np; 



IF 

yo 



COOEsO THEN IF SECURlTtCHECK(N8t I 3*NBCI*1 3» USERID,T 
THEN gO to IN ELSE GO TO AROUNQi 
IF C00E»1 THFN ClIMWrfciT Fvi 



begin; 

STR£A^^CA«-CALCU|,ATEpURGE(-HDRt3]a2«lO]),B*tpG]j; 
BEGTN si«-i or A;ns^tt oct fmo ^ 



IF 



FNnt 



Pe>HDHC33,tl2U83 
THEN GO IN ELSE SO AROUNOI 



IF 



((NBCneav "DECK 'M^NOT 0) AND 
C(CNB[I + 13AND «'77000000007777) 
gl20000 Q000:j7iaWNnT Qj HR 



EQV 



FALSE THEN GO ARdUNOi * 

IF CO0E«« THEN COMMENT SB; 
1'' HDRf53gl2 IhEN GO ARQUNOJ N»HORr63;a; 



IF C0DE>2 THEN COMMENT UD^CR^Ss; 

lFCNOT(CHj«HDRCIF C0DL»4 THEN b ELSE 2J»C6«42])J 
» NOT THEN IF CODE/2 THEN GO AROUnO; 



$ SET OMjT a Packets 

S POP UMIT 



IF C0DE»2 THEN IF (PBDT0G«.CPCNBCI3#0UP3 EqV 
"PBO "J'NOT OR CPCXCH) EQV "pUQ ' " ) 
* NOT OJ TH EN 



If NB[I + l3,C30J 18] NEQ ••00l« JHEN Gu AROUnU ELSE 



$ SET OMIT • 



NOTCPACKETS) 

BEGIN 



IF UABELREC*0 then LABELREC»SPACE(30ll 



END 



DlSKWAIT(-LABELREC#30#HDRH0] + 2); 

iNFO,[iJ53«-o; GO in; 

ELSE IF NOT CR»NOT THEN GO AHOUNO; 



IN« 



IF C00E«3 THEN COMMENT UO; 

^,JrXCR EQV A)J»N0T ANO(A EOV 

SO TO around; 



"* 



'•)XNOT 



tJEGlN C«-SPACEC12); 



08103300 
0flli034Qn 



08103450 
08103460 
0B1035O0 



0077>2 

oafln«i 



08103600 

08103650 
08103700 



0083M 

ooe^to 

0084 tg 



08103800 
08103^00 
Ofll04o00 



008912 
0094 » 2 
0Q94«? 



08l04i00 
08104200 
0fll04300 



0098*1 
0l0ll2 



oatosooo 

08107000 
08109000 



T 
T 
T 



OllOlO 
on 110 
OU giQ 



oeiiOQOo 

08 11 1000 
08112000 



oitdto 

012011 

0l2l>Q 



06113000 
081H000 
0BU50QQ 



0122«2 

Ol23«3 
01271 2 



08115060 

obUSq^o 

081 15080. 



0l32»0 
013411 

Q U7 M 



08115100 
08115200 
0flti6flQ0 



014011 
0H4I0 
Ql49Lfl, 



0l5l«0 

0l54»l 
QiS6ti 



Q81167O0 
08116800 

08U«^90fl. 



08H7000 
08U7100 
QRIiyiO'i 



08117110 
081l7i20 
08117130 



0157«0 
013712 

Ql'i'?i3. 



0l60»3 
016U1 
0l63tl 



08117140 
O8117200 
0aH7aOQ 



08U7400 
08117500 
08117600 



0163J1 
0l65'0 
0l 66«? 



0l66»0 
016911 
O17PI0 



0eU76lQ 
08117620 
08117630 



Ol73«0 
Ol^3«3 
Ol78»2 



08U7631 
08117632 
08117633 



016K1 
018311 

0165«0 



08117634 
08117640 
08117650 



0ie6»3 
0l86»3 
0l89«l 



08117660 
08117670 
08117680 



018911 
018911 
018913 



0l93»l 

0l95«2 
0203 »0 



/Otii7..700; T^^^'Oaopps; 



08118000 T 021012 



2 
3 

4 
5 

e 

7 

8 I 
9 
10 



11 

12 

13 

14 ' 

15 

16 

17 i 

18 

19 

20 I 

21 

22 

23 i 

24 

25 

26 < 

27 

28 

29 \ 

30 

31 

32 ( 

33 

34 

35 I 



36 

37 

38 I 

39 

40 

4, ( 

42 

43 

44 ' 

45 

4« 

47 

48 

49 

50 I 

51 

52 

53 < 

54 

55 



e 



n 

2 
3 
4 
5 
6 



9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 " 



32 
33 
34 

35 
36 

37 ~ 



38 



40 
41 
42 



43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 

a 

54 



55 
56 



STRLAh^CF»*CU[I33'CR*N'X<»{CODE2:2 AND CQDE<b)* 
V»8CCDEsA*INF»gC0DEgbMNF0>lNFN0;a »Rh 



08119000 
OflU9iOO 



INFQ,C1I53*PBDT0G*LR»LABELREC iNX i2» 
RWE*IF PBDTOQ THEN CH0Rt63 , t 39» 93^0) 
FLSE 0^ 



oeii'zoo 

08119300 
Oflll9/tOQ 



0212<3 



0211^12 

0219U 
022in 



TU ♦IF PBDTOG THEN HoRCfij, [391^3 El^JE 0* 
bU *•!/ PeDTOG THEN HQHltli ,i,HHi Uli EL^C C 
C)j 



08119500 
08U9600 
OWI 19700 



0222U 
0224«3 
Q 227M 



BEGIN Sl»»Fi OSl=LlT" "; SH«Sl + i; DS|a7 CHR* 

sn*sui; dsibliT''/-; ds*; chr; 

Y(DS»»B LIT" SECUREQ^'J); , . 



08120000 
08121000 

08122000 



0227»3 

0229*0 
Q?30<0 



XCQbls4 LIT" BY 

Di»»7 chrj; 



"; siJ«i.oc cr; si4.si + i; 

CH R}i 



08123000 
0812400O 
O fl l?5 000 



0232«0 
0233»3 
Q234M 



pftOTOicos««4 LIT" js»i sm«lR; 

2(Sll»Sl+U DSl«7 CHR; OSI'LIT"/" 



)l 



2csi«*3i+i; dsj=7 chR' dsislit"/"); 

Di5»gi-i; 

R ^Ec03i^ 2 llT" f*^; SU'LQC TU/ P^t^s qEC^ 



08125olO T 
08125020 T 
08125030 T 



023610 
023712 
Q?39?n 



08125040 
08125050 
06125060 



DStssLlT«/"i 0Sl«i2 DEC! dSi^LIT" )•• ) ); 
lNFCCH«CI + lNfNO;GO ERRIGO INFUGO INF2i 

fifl TNF3{Cin Thtr4t ^ S.RH_ 



08125070 
08125100 
Qfl125llQ 



0240^0 
024l«2 
Q24i»3 



0243«1 
0245»0 
Og46M 



iNFi: 

OSlslOLlT" CREATED* 

DATF.t Si:=LOC info; 



"; 



XRH 

*RH 
XRH 



Sn«Si + 2;oS»»2 CHR;2C0S|»UT' 

os»»2 chr);go infendj 

INF2I 



/"; 



XRH 
XRH 
XRH 



08125120 
08125130 
081 25t4n 



OSUIILIT" ACCESSEDl 

INF3« 

DS::.10 LI T" RECQRP St 



"/GO daTe; 



08l25i50 
08125160 



0247«1 
024711 
Q24 9>3 



024910 
0250«1 
025l»0 



XRH 
XRH 

XR H 



08125210 
08125300 
0812 5 31 



025l»0 
0253 «0 
253« 



0£CM» 

s>i»»LOc iNF0*DSi»6 D£c;xr»ou 

UHsDI^61DSi»5 FILLJ0It«Xi 



XRH 
XRH 
XRH 



08125320 
06125330 
Qfll2'S^4n 



0254(2 
025412 

Q255n 



GO infend; 

INF4J 
USUIILIT" 



aEGHENTSt ";gO DECM, 



XRH 
XRH 
XRH 



08125350 
08125400 
. 081 2 541 



0256»0 
025611 
025611 



ENOi 



ERR! INFENOUI 
OSl«ttT"*"; 



XRH 



08125420 
08126000 
0B137Q00 



0258»1 
025e»2 
0259*0 



AROUkD* 

end 



end; End; 
UNTIL (Jr 



spqltcc inx 
end; 

'NtJ[23«CFF3)«0; 



STAj; 



08128000 
08129000 

08129i00 



0259*1 
02601? 
026 2* 3 



OUTI IF COOEj<0 OR {CODE^O AND StA,C9»93''0) THEN FORGEtSPACECHdH); 
XQUTt FORGETSfAC£iNB)J 



08129200 t 
00130000 T 
08130^00 T 



0265 « 2 
027010 
0274*3 



IF LA0ELRECXO 
IF C = ThLN 
BEGIN mCBUFF] tsFLAGCNAdi>("NULL 



THEN forgetspacf-Clabelreo; 



08130200 

08131000 
08132000 



027513 

277*3 
. 279* 2 



End 



SPOUTCdUFF INX STAi 

end else fqrgetspace(8uff); 
printdirectohy; __^_ 



08133000 
08134000 
8135QO0 



0281*0 
0261*2 
0265*3 



$ SET UMIT « N0T(DC5Pa AND DATACOM ) 
PROCEDURE PBI0CA/P)f VALUE A; HEAL A»p; 



Forward; 



xp 



SiZE« 0286 WORDS 
08135999 T 0000*0 
08170100 T 0000*0 



':9m$$mmi^smmimm^Msim 



BEGIN REAL T, IQO/L INK* u; X 



SfART or •REL-SEffl.«EiilSSil|p;? 
:S.TA.flT. Ofz-REL ..SEBMEI>lM:ai 




08172000 T 000(!)»0 



iii!0O2l6' 



• • 



ARRAY A[*j; 
HEAL HC;Ha-»Q;X 



ARRAY Ra-4t*]; DEFINE FIB«A#; %P 

CH£CHSTACK3PACe?X XWF 

U *(IINK » NrLAGCMUlOO » Nf LAG(M[T*PRTCPlMIX^9 ] 3 ) iNxit 



06l?2500 
Qfll7300Q 



08173100 T 
0«173200 T 

oaiyoQoo t 



0000*0 
0000»0 



ooooto 
ooooto 
ooos»g 



P(0*LNg#xCH>> JMX NOT 0] ) 3 , [ 12« 63 i % 
IF U i 32 THEN 
BEGIN A «• M[TJ; 



08175000 T 
08175100 T 
0fll752QQ T 



0008 «0 
0012 « 3 
0013« 



13 



IF R£A0EMFRQMDISK(CIDRQW|:U-32]*A) Then 
MtT3 ♦ A&i£27M7ll]&0C2U7ur EUSE 
ME T 3 » n t fi Q TQ WETU RNi _„ 



eimd; 
mciou inx not 13«-i-i-ag(lin|\); fib<-mct-33; xp 

M[FIiJC14 3|Nx i7]*LMtFlBC5j.,aFf,i3 3&.IQ.DE3 |3t30 J&O [2 j 2O tt ]; 



08175300 
08175400 
Qfil75 50 



001512 
0017*2 
fl&2l»3 



;FliC53«'PCDUP»LOo»a»l'CFXfiiOD); 

IF FlBtl43«tFf3sFiaCU3.tCF3 THEN 
': PBTQfTiFlBfH3) 



X% BUFFER FUUU 



XP 



08175600 
06176000 
P. 91 7.7 Q 0.0 



0024«2 
0024>2 
00291 



osiriaoo t 



00l4t3 
003?! 1 
Q81?ft0O0 T — Q03^t3 



16 
17 
18 
19 
20 
21 
U 
23 
24 
2S 

V 



28 
29 
90 



ELSE 
begin; STREAM(A«.FIdcl4J,[CF]. B«.F IB [14 1 , tFF 3 J ' 

BEGIN SI«-A/ Q9<- 18 hD9 . ENOi 



end; 

go rfturn 



FlBCl43.CFF3«-FIB[l43,tFF3-i8; 



XP 
XP 

JUL 



08179000 7 
08179600 T 
08179/0 , T 



004212 
0042' 3 
QQ 4fl . » .0, 



XP 

XP 
_XP_ 



END CONTlNUlTYBlTi XP 



08179800 
08179900 

oeteoooo 



0046t 3 
0030* 1 

OPSQll 



X 
X 



START OF REL 



08181000 T 0050«3 

SI2E» 0C51 WORDS 

08?5')00n T onoo»o 



THli> PRQCEOUiE I^ RESpqnSIBlE FqR ,$T ART I nG PRnPBT/QISk* IT CHeCkS 



X For I/O UNITS as required and, IF AVAILABLE* GRaBS THEM, THE 
X PARAMETERS aKE» 

A fl^ g-16 LiJGlcAL UNIT Number for ouiPuTt tapes a nd disk are 



sErment^ Disk 

08255050 
08255055 



address « 

T OOOO'O 
t 0000»0 



00218 



08255060 T 
08255065 T 
9.6.155.070 T 



OOOO'O 
000010 
0000»0 



31 
92 



33 
M 

35 
36 

37" 



X 

% 

% 



X 

X 

X 



>''16« ^0 



5EARCHE0 TO FlNO A FILE TO PRINT. 
WHEN AUTGPRINT Is SEf OR FOR RjE, 
UOQICAL unit number of a BACK'QP TaPe. 



>0 
PnCH,CA7»1] 



X 
X 
X 



AVAILABLE OUTPUT UNIT. 
no of a disk FILE. CHECX 

LN FOR Punch back-up. 



THIS is used only 
CHECK FOH AN 



08255075 

0e*55o80 
08155085 



FOR OUTPUT UNIT 



[39:83 NUMBER OF COPIES FROM PB MESSAqE, 
C31583 IF TAPE* NUMBER oF FILE TO PRINT (FRQM PB), 
I^ disk* so 1^ ENTIRE PACKET SHOULD BE PRINTED, 



08255090 
08255095 
08255100 



000010 
0000»0 
0000*0 



OOOOJO 
0000*0 
0000*0 



*1 IF 



08255105 
08255110 
06255115 



0000*0 
000010 
0000*0 



41 
42 



45 
16 



47 
18 



49 
SO 



52 
J3 
54 



56 J, 
56 ? 



Sill 



X 

X 
X 



X 

X 
X 



t 30:1J 
C9<9] 



NUT. 

ON IF *0 WAS 

H>^E TU/BUFF. 



USED IN PB MSG, 



C2»13 ON IF CALLED FRQk PRINTBACKUP / 
£1»13 ON IF CALLED FROM PRNPbT/OISK, 



I.E* A PB MESSAGE, 



08255120 
08255122 
08255^25 



0000*0 
0000*0 
0000*0 



BEGIN INTEGER U' VM » J' J 1* J2» Si 

REAL A*hDH*SEGO=S,Fsj; 
REAL PBT*PBD,PuD; 



08255i3o 

08255135 
08255140 



0000*0 
0000*0 
0000*0 



AmK^5mwmmm»mMWf ■■■ " ■ v ■■■■,■■•■■.■ 
-^tnwt'^' * " ■'"■ 



08255200 
08255400 
08255500 



0000*0 
0000*0 
0000*0 



i SET 



IF 1 C) '» 11^^ ^-22 THEN Pud tL it PBO } #; 

DEFINE STACUrR » ST AT IQN [Si A , t 44 I 43 ' St a . t 39 * 4 3 3 * ; 
UMIT * SHAREDlSK 




' ■illHiiii 



'1^ 



0825!^«00 
08253700 

oeassaOo 

08255900 

08256000 
08256^90 



0000 fo 
ooooto 

0000*0 



tmts'ffi 



08256200 
08296210 



0000*0 
0000*0 
000010 



PBT : 



••; PUD » = 



"pUD 



'/ PBD «■ "PBD 



"; 



MBteft 



0000*0 
0000*0 

m 



8256506 T 0000*6 



2 
3 

4 
5 



$ SET OMiT ' NCTCDATACCM AND RJt J 
TF a^(»15) THEN %%% PB GIwEM LOOK FOR LP, 



08256699 T 



000513 
QOQSn 



BEGIN 
i SET OMIT « NOTCOATACCM AND Rjt ) 
IP PNCH Tn£N JF LABELTABLFrVi»gP3^Q TmEM m»Q ELSE FLSE 



0825/100 T 
Oea5?l5>9 T 
QS257S0n T 



000613 

ooorn 
Qonrti 



If LABtLTABL£[V4.20J^0 THEN 

IF LAtifc.LTABLEtV4.2lJX0 THEN y«.Q; 

IF VXO THfN % WF. ,HAVF AN UUTPUT UNIT 



08257600 T 
08258000 T 
Q8?5fl2Q0 T 



0015 »0 
0017 »0 

oo?n»i 



10 

11 

12 
13 
14 
IS 
16 
17 
18 



IF fi>0 THEN 
8£GIN Ut<l8j 

• IF AUTHPRINT 



% BACK*UP DISK 

a.. CHECK IF A PRNPRT WAS STAHTEni 



$ SET Uh^n s NOT RJE 



% IF sg, START This only foh Pb, 



06258400 T 
08258600 T 
aB2'S8800 T 



002110 
0022 tj 
0023tP 



THEN 

TF (A:«niKECT0RYSEARCHCMFin#Q»l9))»0 



08258990 T 
08259200 T 
0P259225 T 



00231 2 
002312 
002^11 



THEN ir PNCH.C2in THEN ELSE GO QUIT 
ELSE BEGIN IF MtA+43,C6U3 

THgN : 



$ SET OMIT «? NOT SHAREDlSK 



08259250 T 
08259275 T 
Qa?S9 3Q T 



002812 
003013 
00321 Q 



ELSE BEGIN 

MCA»a].[6lU; = l* 



08259 325 T 
08259z»00 T 

,08259 a2t? T 



0033«i 
00 33M 
0030«1 



19 
20 
21 
22 
23 
24 
25 
26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



OlSKWAlTcA.tCF3*-30#A.tFF3); 
FORGET$PME(A)J 



08259<|50 T 
08259500 T 
08 2 595 25 T 



0037»2 
0040«0 
0040«0 



S SET UMIT s ShAREGlSK 
$ POP UMIT 



unluckdirlctory; 



08259550 T 
08259575 T 
08259 600 T 



0040»3 
0040«3 
044 «1 



ENU; 
END 
ELSE fiU TO PBTAPE; 



08259625 T 
08259800 T 
08260000 T 



0044M 
00^4M 
QQ44H 



END ELiaE 

BEGIN V!=ABS(Q); % lP (OR PlNCH) GIVEN. LOOK FOR FILE. 
$ SET OMIT = NOTcDaTACQM AND RjE ) ___^ 



08260250 T 
08260500 T 
0826089g T 



0044 «1 
0044*1 
0047»0 



BEGIN IF V-22 TWEN 

BEGIN At-^PUTMcP "; 

PNCHiaPNCH QH l; 



% CHECK FOR TAPE 



08261000 T 
08261250 T 
08261SQ0 T 



004710 
004713 
004910 



t^D t-LSE 

AJ5"PBTmCP 
t^UR GJsQ STEP 1 



••; 

UNTIL 15 00 

] EQV A)aN0T THEN 

3 EQV Pl22212342546447)'NQT THEN 

14U03»1 THEN 



08261750 T 
0826200C T 
08262250 T 



005011 
005011 
0052 « 3 



IF (multitablllq 

IF (LABELTABLttQ 
IF RDCTABLEtQJ.C 



08262500 T 
08262750 T 
08263600 T 



0055«0 
0056(3 
0059»0 



pbtape» 



UEGIiNi RRRMEChJsT 
LABELTAbLEL 



VvOCQ) OR rkrmech; 
US»ABS(Q)3 :* 
HBT&TlNU[VJC6t30a8 3&P2Ul>43t5 3; 



0826325c T 
08263500 T 
06263750 T 



006H0 
0063«1 
0064 > 2 



ts 

46 
47 
)8 
49 
SO 
61 

a 



MULTITABLEt 
LABtLTAfaLEC 



v3 I* pbt; 

V] Is 
PBT&TlNUCU3C6»30»ieUP21iir43»53/ 



08264000 T 
08264500 T 
06265000 T 



0067 « 2 
006813 
006911 



go fireitup 
end; 
end searching for tap 



LL 



06265500 T 
08266000 T 
6266500 T 



0072»l 

0074«0 
0076M 



IF PBCOUNT^O THEN 
BEGIN 0»"»CM[6eTSPACEC 
S SET OMIT 9 SHAREOISK . 



X TRY FOR DISK 
90«0^0}^2]3&90t8t38tl0] J 



08267000 T 
08267500 T 
08267990 T 



0076U 
0077*0 
008111 



53 

M 

55? 
56' 



$ POP OMIT 



LOcKDlRECTORYi 

a>«mfid/ 



08268000 T 
8268010 T 

,.9.a..?,6.llO..O. T 



0081«1 
O087»3 
0087*3 



liiiiiiiiiiiiiiiii 






•:,oi.iiiittiir 



iMiiL 



009012 

in 



S SET OMIT = NOT SHAREDlSK 



08268790 T 0097*2 



• • 



10 

11 

12 
13 
14 
IS 



16 
17 
18 
19" 



E 

u 
o 

Q 



I 20 
21 
22 

24 
26 

27 
28 

» 

J1; 

a 

34 

) K 

>6 

37" 
I 38 

39 
40 

I 41 

42 

43 ~ 
\ 44 

45 

46 
\ 47 

•8 

49 

50 

51 h 

52 
53 
S4 

55 
56 

B7*8 



J» = SCRA,^bLE(Jl*j2); 
DO err, IN nisKtsATTf ( n 



INX 3n)*STXTY.JU 



FOR IJa30 STEP 3 UNTIL 87 pO 
IF (OCn EaV A) a NOT THEN 
TF QrT*n.rrnai mpM 



$ SET OMIT = NUT(Rj£ AND 
$ SET OMIT a NOTcPaCKLTS) 



BfcgiN DlSKwAlT(-0,CCF3,-30/DtI + 2J.CCFn; 
IF DC^I.[P3] X OR Q[zj] .[61 j] 

LATACuM ) 



S SET UMIT = [*JUT ShMHEDISis 



OR CDC«3,C16t203 

Then 



OR 0t9].tll28])/«0 



Else 

BEGIN 



DU3a611]Jal; 



S SET OMIT » NOT SHAREDISK 



PBCOUNT«»PBC0(JNT-li 
OlSKWAlT(D,CcF3»-30'DCl+2J,tCF3)J 



Q«=D[i*i]; 
GO found; 



ENO End; 

$ SET OMjT a NOT ShAREDlSK 

$ SET OM I r = NOT 

FOUND; 



ShAREQISK 

end; 

FURGETSPACECDJj 



S SET QMIT = 
$ POP GHrT 



sharedisk 

unlockdikectuhy; 



% 



end; 



lnd searching fuh disk; 



IF WL HAV E BOTH AN InPOT FILE AND AN OUTPUT ii\J 1 , 



IF U;fO 
BEGIN 



FIRE UP PRNPBT/OlSK. 
AND V/O THEN 



$ SET UMiT s NUTCDaTaCUM AinjD HjL ) 

BEGlNLABELTAdLFCVJ;sf;<ip2l[l:43S5]; 

'^ultit/ujLecvJ » = pbd; 



FIREITUP; 



S SET OMiT s 



end; 

A:sv<i;uC38:43i!3] SPNCH £2 1 * 301 17 3 J 

EL^E 



Tryagainj 



NOT RJE 

IF PNCH.cni] Then pca) 



If 



* THEN 



(HUKjsDlRECT0fiYSEARCH(P(PRNPBT)#PCDl5K)o>i 
BEGIN . .."^ ;'■.../■•■'.. . - •;'■ .■ ■ ■. . •. ■. :.: ,,..■•■■ 

ShLAT J= [MCrI=GErSPACE(31, 0*0*233 S 3oLa«3e:loi; 



MtF-2 3,[9:63 
MQVE(30»F«1»FJ; 



H; M[hdr iNX not l3,[yJ63J=0; 



SEGO :» G£TSPaCEC30*0*0)+2; McSeG0"23 . («» 63 »aO; 
0I5KWA|TC»SEQ0* 30* MtHOR INX 103); 
F,CFF3 ta HnR; * CORE AOQRESS OF HEAqeR 



ShEATt?] is SEGO; % CORE 
SmEat [03 :» P(PR\PBT); 
SHEATCn t= P(DISk); 



ADDRESS OF SEGMENT ZERO 



^m&iii. 



^'^'MWilXM^mM-0MM&X^^%i&mmm:^ ri o ri t y »'o * e x e c u t t code 

'mmmm&M% mmmmmmmsmS»mmmii:rry. i. time' limjts 

ShEArtl9J S= AJ % COMMON VALUE 



08268900 



08269000 
08269100 
Q8?rt92na 



0097 J2 
0l0/i»2 



08269300 

08269400 
0r2^9^QQ 



010613 
O1O9IO 

on,ni3 



08269509 
08269600 
0fl?ft9ASQ 



1 1 3 1 1 
0U7»2 
0119M 



08269690 
08269750 
08269800 



0U9»l 
011911 
0i3g»? 



08269900 

oaaroooo 

08270040 



0123«1 

Ol23»l 
0123«3 



08270100 

08270200 
06270,^00 



Ol26»3 

Piasto 



08270350 
06270 390 
as 27 Oil 5 Q 



0l3l»l 
013211 

Ol33«iL 



08270490 
08270550 

Qft270ftOQ 



oia#»t 

013612 
013613 



06270640 
08270650 
Qfl270«s6Q 



013911 
Ol39«l 
01 39' ^ 



08270700 

06270725 
08270740 



0140»3 
Ol4o»3 
0l4A»l 



06270745 
08270750 
0Bg7Q«QQ 



0H4I1 

Ol44«l 
0144«1 



08270819 
08271000 
0e271?50 



0l44»l 
0n4»l 
0H6»Q 



0827150C 
08271750 
08272000 



0146»2 
0U6«2 

01^81 3 



08272240 
0827325C 
08273'iOO 



015010 
Ol50»0 
015010 



08273600 
08273750 
06274000 



0l52»3 
Ol52»3 
0154»1 



08274250 
08274260 
0fl2745CC 



08275500 
06275750 
06276000 



T 

^ 



Ol56»0 
0l56»0 

oisati 



0158>3 
16 3 « 
0l69t3 



08276050 
06276100 
06276150 



0l7l>3 
0J77I1 

oieoto 



00276200 
Oa«76205 

01ttt.7l»^lO 



OibiM 
016212 
Qlti3'3 



0l85f0 
0196*3 



1 

■■ ■■■. 2 
3 
4 

s 

6 

7 

8 

9 

10 

11 ' 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 \ 

27 

2e 

29 1 

30 
31 
32 \ 

33 
34 

35 < 
36 
37 

38 f 
39 
40 

42 
43 



45 

46 

47' 

48 

49 

50 ' 

51 

52 

53( 

54 

55 

B6 ' 



0827622C T 0l9ll2 



-^ 



2 
3 



17 
18 
19 



22 
23 
24 
2S 
26 
27 
28 
29 
30 
Si" 

n 

J3 
34 
35 



36 

37" 



41 
42 
43" 



«7 
IS 



49 
50 
51 
U 



56 



Shfc.ATC20] 
SHLATt2lj 









% CORE ESTIMATE 
* STACK i>l2l 



SfREAMCAtsOi 



S««Pi,SCHEDULEIOS))l 



^7(SKiP 3Bi Skip db; tally»sTally+i; 

IF SR THEN ELSF JUMP ObT)J 



os«*set; ai»tally; 

END stream statement; 



I »= Pi 

ShEATC3],C8:iOJ »= I; X SCHEDULE 
SHEATC23] ;» (CLOCK 4 P(RTR)) DIV 60; 



NUMBER 



$ SET OMiT s NOTCDATACOM AMD RJE) 

sheatc253 t» h0r,tff3; % disk address of file header 
stream(a> i;»i«*qeTSpace{1U0»o)»2); .^_^_ 



BEGIN 

DI««DI+16; 

DS»=30LIT"CC 



SII«L0C AJ OSl«0OECi 
0SJ»6tlt'';£ND.*''i 

END STREAM STATEMENT; 



Execute pRNPBT/DiSK;cQMMONa'S 



run '« 0> kU + l3i'lO; 

ohtATC6J ;= GETEaPDISK & I 1 1 8 » 33 J I 5 J i 

DlSKy<AlT(I» 11> ShEAT[63 .CCF3 ); 



FOHGETSPACECni 
IMJEPEND£NTRUNNER(P(»SELECTRUN)*F*160); 



END ELSE % IF IN DIRECTORY 

BEGIN 

ENTERSYSF1LE(3)J 



PRNPBTS l» 



GO tryagain; 
"prnpbt ♦•; 



ENO; 

end; 

PRlNTaRPUNCHWAlTI 



QUlTt 



EWD •EtSE, , 



$ SET OMIT ' iNQTCRvJE AND DATACOM 

labeltabl£cvji=o; 

END PHlNT^^AlTn 



082/6230 



0i;i2»3 



08276250 
08276260 
Qaa7627Q 



0l95«l 
0195»1 
Q\9fit? 



08276260 
08276290 

.08 276 , 3 



0l96»2 
0l96t3 
0l97t^ 



08376310 
08276 320 
08276 3 10. 



0199»1 
1 99 1 3 

oafloio 



08276340 
08276350 
0B?76^60 



08276370 
08276400 
08276410 



020010 
0200»2 
02Q310 



0205 »1 
OSoSll 
0207»0 



08276420 
08276/430 
0fl276<|40 



0210 «0 
0210«0 
0210»1 



08276450 

08276460 
0flg76a7Q 



0214*1 

02141 3 

Q 21 5 , U 



0b2/64d0 
O827649O 
08276500 



0216J0 
02l9<2 

0221 '2 



08276510 
O8276520 
0fl ?76 ' ^3 Q 



08276540 
08276550 
0fl276'^60 



022312 
023411 
Qa2 Sfa 



0225*3 
0225«3 
O22B«0 



08276570 
08276580 
Qft276^9Q 



0228»3 
022911 

Qg3i tn 



08276600 
08277000 
08277500 



023210 

0232 »0 



08278000 
08279000 
QBPPQQQO 



0232*2 
0232*2 
0232*2 



06280009 
08280030 

oa?eioQn 



0233*3 
0233*3 
0235*2 



PROCEDURE prIntbackupcbuff); valUE buff; real buff; 



STAR T 



SIZE* 0236 WORDS 
%P 08282000 T 0000*0 

OF rel sEftWENi; disk aDORESS » noaZft 



% 
% 
% 



THIS PKQCEDuBE MAnUlES THE Pb MESSAGE* MAKING THE NECESSARY CHECKS 
AND THEN C ALL ING PR iNTQt^PUN CHW A I T « THE SYNTAX Op TH£ MESSAGE JS; 



0628210C 
08282110 
08282120 



0000*0 
OOCOjO 
0000*0 



X <PB MSG> *«* Pa<lNPUT FILEXPB SPECS> 

% <INPUT FILE> «»« <TAPe UN1T> / <0lSK FILE NUMBER> 

% <PB SpECS> tta <PB ELEMEnT> / <PB El EMENTXPB SpECS» 



/ <EMPTY> 






<pb el£m£nt> :«s p / =<number of CQPI£S> / 

BEGIN REAL U» I * CUP Y*MS^ STA# BbBUFF; 



*<STARtING FILE NUK6FK> 



08282140 
08862150 
0828216Q 



0000*0 
0000*0 
0000*0 



08282170 
08282180 
08283000 



0000*0 
0000*0 
0000*0 



$ SET OMIT • NOT (OATACOM AND QCSPQ) 

LABEL QK#BAD»S^n; 
$ SET OMIT •NOT COATACOM ftNQ DCSPQ) 



STREAMCPCPYial* NuMBJ=1* N««1* CPYI«-Oi B:sBUFF)i 



06283400 
0888*000 
06284fl50 



0000*0 
0000*0 
0000*0. 



08285000 T OOOOlO 



h 



1 

2 
3 
4 
S 
6 
7 
8 
9 

to 

11 
12 

13 J 

14 

15 r, 

16 

17 

18 



19 
I 20 
21 
22 
23 
24 
K 

27 

28 

29 

M 

31 ~ 

32 

33 

34 

IS 

36 



36 , 
39 

40 

41 

42 

43" 

44 

4S 

46 

47 

w 
w 

50 
B1 
S2 
S3 
54 
55 



X 
% 



% 

% 

% 



BEGIN i>l*-di 
l; if SCa " 



DI*LQC 
" THEN 



n; 

BF.GIN 



SI»SI-H; GO TO L ENU; 



LL« 



iF 3C<'*0" THlN B£GlN oS*5 UIT" + O000"; 
BEGIN HtMSl} 
4(IF SC<"0" THi:N JUMP QUT; TALLY4.T ALLY^l ; 

si:=a; fljsTALLY; dij=di+5; diibdi-b; 

Di«-B chr; 



%P 

Jtf- 



05*3 CHR END EtSEXP 
3I»St-»1); 



«P 



IF 

IF 



s C * •' " 



TH6.N 
THEN 
THEN 



riEGIN Si:sSi+i; GO TO Li END ^ 
atGiN Dl:«LOC CPY; go TO CNT ENOi 



BEGIN OI»=LQC NUmB; 

CNT: i>ijssi + i; B»«si; tallyj = o; 

i(IF SC < "0" TNFN JUMP out; 



GQ TO ll; 
end; 

tF SC^'^P" Thtn 



BEGIN TALUYSsO; PCPYSbTaLLY; SlJaSl+i; 

5(IF SC«ALPHA THEN IF SC<"0*' THEN 5IIb5I + i ELSt 

.JUMP miT Ft sr .iU MP nur^t 



FNDf 



END, 



GO TO LL/ 



COPy;s{cOPYj»P)&(kOt cUPY » NOT 0)C31M7«l3; 
rAcK up tape. r.Hf r.K THE LArEL THFN nALL PR TNTORPuNr.HWA T T . 



IF (ujsp) < Then 

ijgGTi\ cnPYi=r.fiPY^( P(XCH)-i H3?»/to:ai; 
IF NOT MTXliNCI,U*B) THEN 



IF CSTA«»MULTnABLECu3X"pBTMCP 
MULTITABLECU]X"PUTMCP " THEN 



OR STa) AND 



BEGIN STrlai^CHUFF )i 
GO TO SPI 1; 

SM 



DSs = 19 LIT" NOT A BAC*^UP TaPE*' 



ELSE 

IF PHlNTQRPUNcH^<AiT(-U> I&COPt £301 31117 3 OR M) THEN 
GO To QK ELSE BEQIK MSl»»H| GO TQ BAD END 



End; 



ELSE GO TO spit; 



BACK Up DIS^. SET FIRST REEL NUMBER. IF COPIES OR REEL NUMBER 
GIVEN* DIAL IN "P" BIT* ELSE LEAVE I T OFF TO PHINT EMIRE 

Thing, check fOr the file* Then call printdrPunch>*ait. 



STReaF^(I!=P: L»stlj3); 
BEGIN i>lJ=LOC l; ui:=0U5; 



end; 

lr»P' 



OS l» 3 DEC* 



IF (Coe^ LK n,[CF] = THEN P(DEL) 

C0PY{»=CUPY&P(XCHU3V!47l 13; 
bUFF»»i3UFF *[15«153"i; 

Ilwl^J|iSlliiiPiliiiiMP*iii 



ELSE 



l»iliiiiiiiipiiilii|p^ 
" '''''^'' mmmmmmimMm. 



TWi 



■uiasiiMHiimmm: 

M[i+4]i; 






1WW 
THEN 



GO TO BAD 



08286000 

Qft<ia70Qn 



0626800C 

08289000 
08289^00 



0003*2 

OQQavn,. 



08290000 

08290500 

Qp?9inoo 



0005»0 
0007t0 
0OQ7I1 



0629102b 
08291050 



0009 n 
00 10 « 2 
001 i«n 



08291100 
08291125 

Ofi291i5.P.. 



00ll»0 
0012»0 



08291175 
08291200 
0flg9lP2S 



0013»? 
001313 

OQH»g 



001513 
0016»3 

0Qiy«g 



062S1?50 

0829l27i 
082913^0 



082913iiS 
08291350 



0018? 2 
0018«3 
0016> ^ 



0829U00 

0629U25 



0019«1 

ooaaio 

00?ll3 



08291^60 

0829U70 
0B291A75 



0023*1 
0023»2 
0023t2- 



0023<3 

0026*3 
0Q26».^ 



08291/180 
08 291500 
O P2 91 750 



08292000 
08292500 
Qag93Q0Q 



0026 '3 
0026*3 
027*3 



08293500 
08294000 
0fl294'^Q0 



0030*2 
0032*0 



08295000 
08295200 
08295600 



0035*3 

00^0*0 
QQ^3«0 



08295800 
8296000 
0R29616Q 



0043*0 
0043 »0 
0046*1 



08296170 

08296180 
08296190 



0048*2 

0048*2 
0048*9 



0Q48*2 
0048»2 
0048*2 



08296200 
08296225 
08296250 



08296275 
08296300 
08296325 



0048*2 
0048*2 
0049i2 



08296350 
0829637S 
08296400 
082 96600 
08296800 
06297000 



0050*0 
0050*1 
0050*2 



0051*2 
0054*0 
0056*1 
0058*0 
0060H 
004310 



i 



7 

8 
9 
10 
11 
12 
13 
14 
15 
16 



t 
• 
• 



IB 

19 

20 ( 

21 

22 

23 ' 

24 

26 

26 i 

27 

26 

29 I 

30 

31 

32 i 

33 

- 
34 

3S 4 

36 
37 
38 f 

39 
40 

41 I 
42 
43 

44 I 
4G 
46 



m 



08297200 T 006<»«3 



49 

60 ' 

SI 

S2 

63 * 

54 

65 

56 < 

..3 



rf 

2 
3 

4 
5 
6 
7 

a 

9 

10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 ~ 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
10 
31 
32 
J3 
34 
3S 
36 
37" 
38 

» 
«0 
41 
42 
«" 
44 
♦5 
46 
47 
18 
«9 
SO 
61 
52 
53 
54 
SG 
56 

5' 



FORGErSPACtCI >; 

IF p. [2:1 J THhN 



BEGIN MS»=2; GO TU BAD ENnJ 



08297300 
Ofl297aOQ 



0066«1 
0067«Q 



QK» 



IF PBCOUNT LS5 1 THEN PBCOUNT»«i; 

IF PRlNTQRPUNCHI^AlT(U* MS&COPYt30t31ll73 OR M) TH£N 
FnRGETSPACEfBUFF ) ^ 



08297600 
06298000 
0fl2<?8?0Q 



T 0072*0 
T 0074»0 
Jt QQ76*? 



BAD! 



ELSE 

BEGIN MS»=l; 
STREAM(MS» 



x;sMs<o^ ut=iF P(DUP) Then tinucU] else u* 



08298400 
08298600 
QB g 98g0p 



T 0077 »1 
T 0077»3 
T 0079«0 



BLFF«=BUFF.CCFI); 
BEGIN DSt»8 LIT" NULL PB'S 

^i:«Loc u; cn'ci->-Xf go to dk; 



08299000 
08299200 
08299400 



T 00121! 
T 0083*1 
t 0a84l3 



i)l: = SI + b; CbJs3 CHR; GO TO LL/ 

qk: i'i! = si + i; ostst^ chr; 

HgFF{=Ui; DIt=Ul"4; DSt = 3 FILL; DItsBuFF; 



08299600 
08299800 
Q83n Q00Q 



T 0085«2 
T 0086' 1 
X 086>3 



LH 



DS**2 Lif-c"; 



cn»ci+iv!s; 

DSl« 6 



GO 



LIT"IN USE-/ 



TC LO; GO TO Li; 

*♦' GO TO l; 



06300200 
08300400 
QflSQQftQQ 



T 0067*3 
T 0088*1 
1 0069*1 



Li: USSsU LIT"NU OUTPUT UNIT"; GO TU L; 
LO: DS: = U LlT"i\iUT ON DiSK"; 

-L^ us;^ ? Ln")»"; ^ 



08300800 
08 301000 
08301200 



T 0090*2 
T 0092*3 
T 00 94*2 



ENO; 
SPIT I SPOUT (BUFF 

$ SET OMIT » NOT tOATACQM AND DCSPQ) 



08301400 
08301600 

Qe3ni650 



T 0095*0 
T 0095*1 
T . 0095*? 



); 

EMo; 

ENH QF PR ^FYR^A'^0 vILSSaGF PANCLFR; 



08301800 
08302000 
08302500 



T 0095*2 
T 0096*0 
J 0096*0 



SAVE PROCEDURE INITIALISE/ FOHWARO; 



START qF Save 



08 
SF<}iiENT 



303000 

; AaSe 



SIZE* 0097 
T 0000*0 
ADDRESS * 



WORDS 
00601 



REAL actdate=i,nitialize; 

SAVE REAL PROCEDURE COREnD/ 



FURWaROj 



08 
08 
START il'-' SAVF SEr.MFN 



XI 



30 3100 
303200 
BASF 



T 0000*0 
T 0000*0 
ADIIRFSS » 00601 



REAL, weekdaybcoreno; 

PROCEDURE tImEQUT Cdii VALuE B; HEAL B;* 



START Of REL 



08 

oe 

SEftMENT 



303300 
305000 
* DISK 



T 0000*0 
T 0000*0 
AOnRESS g 



00530 



BEGIN INTEGER M*H*C;% 

c ♦•xclock/360q;x 

W «• C MOD 60;-^ 



08 
08 
03. 



3o6oGO 
307000 
3 8 000 



T 0000*0 
T 0000*0 
T 0Q0?*O 



H ♦ C UIV 6o;« 
STREAMCH#M#8);X 

BEGIN OS » 9 LIT 



TIME IS '^JX 



08 
08 



3090O0 
310000 
I 1 1 00 



T 0003*1 
T 0004*2 
T 00 51 : ^ 



SI 4- Loc h; OS «• 2 OEc; ds «. 2 dec;* 
OS «■ Lir "<•"% 



end;:^ 



08 
08 

.oa 



312000 
313000 
314000 



T 0007«1 
T 0008*0 
T 0008 *2 



SPOUT(d INX MEMORYCB-U); 



ENo;% 



08 
08 



315000 
Si 6000 



T 0008*3 

T 00 11 * 1 

SI Z E » 001 i 



WORDS 



PROCEDURE GIMEDaTE(6'0T); VaLUE B*DT; real B'DT; 
%% PARAMETER USE IS8 



START OF REL 



0831/000 

segment; DISK 

0631 7100 



T 0000*0 
ADDRESS s 
T 0000*0 



00231 



%% BaOUTpUT AREA FOR MESSAGE OR DATE 

XXDTaO RECONVERT ACTUATE^ WEEKDAY THEN SPOUT TIME M$G 

*% 0T>0 SPOUT TIME MSG ONL.Y 



XX DT<0 CONVERT MMDOYY USING DT ( ACTDATE* WEEKDAY NOT CHANGED) 
BEGIN l?EAL M* 0' Y/imCV* NMQ; 
REAL SUBROUTINE DAY; 



08317200 
08317300 
08317400 



T 0000*0 
T 0000*0 
T 0000*0 



08317500 
08318000 
08318100 



0000*0 
0000*0 
0000*0 



8EaiN|STREAM(M»X*O#Y*0#2>O); 

BEGIN OI*LOC x; 0S*2« IIT"O0O«.0xU1y2G2V303T4a4 5>''; 

situoc XI sr»si*wi sit-si^M; 



08 3i9200 
08318300 

9 3 ia<iop 



t 0001*0 
T 0002*3 

T 0006 *t 



J0 



Di^-LQC m; oi«-[ji+6; ds4-2 chr; 



08318500 T 0007*2 



• • 



n 

2 
3 
4 
6 
6 



PAY«-p; 



END dav; 
labeu days; 

L A 8E L 9N ?;» 



08318600 
063lfl70U 



0006«l 
0.06. 1 2 



06316800 
08316900 
Q83190Q0 



0006(3 

000910 
Q OQO K O 



IF NOT CNCV*((jT>0) J THEN X NOT PRINT ONLY 

btCilN 

i^THFAHCQAlEtir f NM(j»DT » U U 3 ) , THEN PT f.L^l QATEjRttYiJi 



06319700 T 
0831*900 T 

0a3?QQQ0 T 



00101 1 

00HI3 
Qni2»i 



BEGIN SI *■ Loc Date; 
os«.2 uct; di*di 



SI ♦ SI+3iX 
'16; 05*3 OCT; 



08321000 T 
08322000 T 
08323000 T 



0015*3 
0016*1 
001710 



10 

11 

12 

13^ 

14 1 

16? 

16 

17 

18 



IF Y 



BEGIN 



= ANL Y 
IF D = 6 



SiM. 



/ then* 

THE NX 

.N h.».2i. ..RQ 






QH end; 



08324000 T 
08325000 T 
083,26000 T 



0017*1 
0019*2 
0.020*3 



06327000 T 0022*2 
0832^000 T 0025*0 
08329000 T 002*5*0 



IF DAYiD 

d<-D"Day; 



THEN (jO on; 



08330000 T 
08331000 T 
08332000 T 



0026*0 
0030*1 
Q.Q3.1»-Z- 



19 
20 
21 



IF M<2 THEN PCY-l*MfU) EL^E P(Y#H-n; 

P(26i"<i'2*»*lO*I0V*0* + ,XCH/P(DUP)»C36*103' + # + »7'R0V#5'lSN); 
;; PC.Q&YS»*>LQnw , 



08 332100 T 0033*3 
08332200 T 0030*0 
083 32 300 T 004 2 * 2 



22 
23 
24 

28 n 

28 H 

27 

26 

29 

30 



M ♦• M ♦ U 

END ELSE PCWEEKdaYJ; 

STaEAMCM»CM],NHG^NCv»|^DV«-rACrDATE]»B»Dt<«-UEEKDAY3); 



08332400 T 00^3*3 
08332500 T 0045*0 
08333000 T 0045*3 



BEGIN NMGCJUWP QUI TO NQHSq); 

Si*loc m; Si*si-i6; 

NCV(Sl4-SU2; JUWP OUT TO NOCNV?; 



O833400O T 
08334100 T 
Qaa3 4 'i Q0 T 



0047*3 
0049*0 
0149*? 



NCCNV 



DS«-hDS; Si«.Sl-6/ 
DI«-b; DS«-9 LIT" DATE 



IS 



DS«-6 



DS«-S LIT"DAY/ "J B»Di; NCVCJU^P 



chr; 



NUt.CV). 



0833450C T 005l«0 

08334700 T 0051*2 
0833490G T 0053*2 



31 
32 
33 



NCMSGt 
NLLHS: 



Sl*y} NMG(0I*B> jump out TO NULMSW 

di^moy; 

os»4 dec; ds»2 dec; ds»2 dec; 



08335000 T 0056*O 
08 335200 T 0017 » 3 
08 335400 T 005810 



34 
35 



NULCVJ 



NMGCJUMP OUT TO GXiT); 

si«-mdy; si«-si+2; 

DS»2 ChR^ 2(DS»LIT 



DI«-B' 



'/"; US4-2 CHH); 



08335600 T 
08335800 T 
08336000 T 



0058*3 
0060*1 
0060*3 



37 
38 
39 



OXIT 



ENQi 



DS 4- LIT '•*"; Si ♦b;* 
3(0! ♦> b; DS •• fill; si 



♦ S1+3; 8 *si);x 



0B337000 T 
08338000 T 
06 339000 T 



0062*1 
0063*0 
0064*2 



40 
41 
42 



IF DTaO THEN 

IF NUT NMG THtN 

PCX IT;; 



SPDUT(B inx memorycb-iJ ); 



TUES**»'*WedNE&'**" tHiJRS«>" FRI**'" SAtUR"* 



08339500 T 0064*3 
08340000 T 0065*2 
08340100 T 0069*2 



♦5 



DaYSJ » J 






MON*',*' 

SUN"; 



ENPn 



08340200 T 0069*3 
08340300 T 0076*0 
06341000 T 00?7*0 



46 
♦7 
18 



DEFINE DATEQUT(DATECOTl3 = Gll^f^DATEcDATEOuTl*0)#; XChANqE DATE & SPoUT jT 
PROCEDURE SETDaTECbUFF); VALUE BUFF; REAL BUFF;X 



SJZE* 0078 WORDS 
08342000 T 0000*0 
08343000 T 0000*0 



49 

50 
51 



BEGIN REA4. DY*MN#YR; InTESER 0»0YJ REAL B»T«MN; 

^AL suBRogTiNE c; _^__ 



START OF REL 



segment; disk 

06344000 
06344100 



ADDRESS s 00234 
T 0000*0 
T 0000*0 



52 

a 

S4 



dEGlN;STREAMCC<'0:B*-tB]j; 

BEGINX 

SI ^ b; ai «■ sit5; 



SI «■ sc;* 



08344200 T 

08345000 T 
08346000 T 



0001*0 
0002*1 
0002*1 



55 i; 

58;, 






'MiiMi 



:v;QO^' 
MM 



TO x;x 



08347000 T 0003*0 
08346000 T 0003*2 
O ft 34^000 T , ff Ot 4» .,l 



55 

56 I 
5^ 



enl;x 



08350000 T 0004*3 



1 

2 
3 



19 
20 



22 



k: if SC i "0" THENX 
R£ g^N TA LLY «• 1A,LlYti;i 



08351C00 
063'li2n00 



0004»3 

..aoo.s.u 



Si «• si+i; GO TO K end;* 

DI *• &i B ♦ si; si » LOC 61 OS * WOSU 
ST » BJ a «• TALI Yl Dt » LQC Ct% 



08353000 
08354000 

Qfla'iSnoo 



0003*2 
000610 
0Q 07IQ 



SI 
XSEND^X 



«• si-w; us ♦• B oct;x 



08356000 

06357000 
0835ftQ0n 



0007 « 3 
0008>3 

ono9>o 



END c; 

B «• BuFFi* 
MN»C> DY»CJ 



YR«-c; 



08358100 
08359000 
Oft3ftOnOQ 



0009 « I 
000912 



buFF ♦• BUFF,[l55lbJ-li% 

IF MN > AND MN i 12 AND* , 

LY > AKn DV i n ANpai 



08361000 
08362000 
08363000 



YH > Then* 

BEGINiSTREAM(M*MN"l»X*0#Y«-0#2 + 0); 
BEGIN DI»LQC Xf 0S»2» LlfOOO^Oai 1 . 1Y262V 3D3T4A# 



0017 12 
0019«l 
.002,l«n 



5>"f 



Sl*-LQl 

ai*-LQc 



x; 

m; 



Sl«-SI+Mi 

oi«-Di+6; 



si«.si+m; 
os«-2 chr; 



06364000 
08365000 
0fl36SiQ0 



0023*0 
0024t0 



t^Np; 



08365200 
08365300 
0P3fc540C 



0030«1 
0031 «2 
0Q3?»1 



oy*p+oy; 

IF YR MOD 



;4 - 
IK 



■ ANP MN 

ma 400 fe 



> 

0) 



! ANOCYR 



MOD 100 )i ORX 



08366000 
08367000 
OBifie oOQ 



0032 » 2 
003112 
O 37 I O 



DY «• oY + i;x 
u *■ iH MOD 100 X iooo + dy;* 

ST(jiEAM(D»A«-CDATE3 ^}% 



0836^000 
08370000 
O fl 37lOO C 



0038»3 
0040>2 
QQ42'3 



2S 

26 S 

17]. 

28 

29 

30 



BEG I IV SI «• LOC 01 OS * 8 DEC ENO;X 
C:HA.NGtD:ATE,(8.UFF>.;* 
ENB ElSE SPOUTCBUFF IkX MEMQRrCBUFF -iJ); 



08372000 
08173000 
6374QOO 



T 0043 
T 0044 
T 0045 



•3 

12 



end;x 

PROCEDURE CHaNGEDAtECBuFF); VAuUE BUFF> REAL BuFFiX 



08375000 T 0048'1 

SiZe« 0049 

08376000 T 0000»0 



WORDS 



33 

34 
35 
36 



BEGIN REAL B»C*0*T;x 

SL£EP{nOGLE3>HOLfjWASK); 



START OF HEL SEfi«ENT; OjSK ADDRESS • 

08377000 T 0000»0 
08378000 T 0000<0 



00236 



LUCKTCiG(HDLDMASK); 

B 4. 3fcTSPACE(30»0#0)f2^* 

DlSKWAiT(-B*-30*DIHECT0RYT0p); 



08379000 
08380000 
08381000 



T 0002 
T 0006 
T 0008 



«2 

«0 

a. 



38 

39 ;V 

40 
41 
42 
43 
44 
46 
46 
»7 
•8 
49 

51 
52 
K3 
54 
55 
56 



MtB+i] <■ date;x 

M[e.»ieJlaxCLOCKj 



Dl3KI0CT*fl-l*-30'UlREcTCRYTOP;; 

IF BUFF;<0 THEN 

BEGINS 



08181100 
08i83000 
OR3B3tOO 



T 0010 
T 0012 
T 0014 



10 
«0 



oatequt cauFF)rx 

Ci» GETSPACE(5#9>0)+2JX 



08384000 
0838410C 
Op38apOO 



T 0016 
T 0018 
T 0019 



»0 
«1 

«0 



O83850OO 
08385100 

oa-aaspoo 



T 0019 
T 0^20 

T ooaa 



12 



M[C+3JJs d;x 

STREAM(DATE»Ai=C+l )i 
LlNKUP(17.C);ai 



BEGIN Sl»=LaC date; DSl'8 OCT; EnU;X 



08385300 

08365^00 
08385500 



T 0026 

T 0028 

Jt 0030 



«0 
«0 



tHQit^ ■■•.;■■■■•■ 

^■$L.ii*^t,.f : |:: 3*|fil* A^S^«''>I * 



08385600 
08386000 
0B387Q00 



T 0031 
T 0031 
T 0032 



»1 



UNLOCKTOGCHOLDMASK); 



end;x 



08388000 
08369000 



T 0033 

T 00 37 

StZE» 00 



«2 

«0 
3^ 



imORDS 



^. 



PROCEDURE SETIMEtiuff ); VALUE dUFF; REaL SUFF;* 
BEfilN REAL 8*BUFF*TJX . 



06390000 T 000010 
START OF REL SEGMENT; DiSK a00«C»S » 00236 
Qft39l000 T OflJialCL 



REAL I»R;% 



08392000 T OOOO'O 



• • 



>r 



LABEL EXIT;X 



4iiiiii"'«Biiiiii'c.K in 



08393000 



0000«0 

ooooin 



09395000 

06396000 
0fl397nQO 



0000«0 
0000«3 



UtCilN SI «• B>» 
LS IF SC = " ' 



THEN* 
SI <■ STf W 



Gn TO I £.M)?»- 



08398000 1 0002»3 
08399000 T 0003»0 
OflAOQnQO T Q0,Q3. »2 



, IF SC < "0" THEN GO TO x;X 
K« IF SC i "0" THENX 
BEGIN SI * SI^ll TALLY » TALLY^lIii 



08<«0l000 T 000410 
OBKOSOOO T 000«(3 
Qfi 4Q 30QQ T OQQS»t 



10 

11 

12 

133 

16 ! 

16 

17 



B «• Tally; si 



/«« 



GO TO K ENDU 
♦ SI -8/ DS »■ 8 



OCT;* 



oe'to^ooo T 

08^05000 T 
Qa^O^OQO T 



000i>»3 
0006«0 

POOZM 






Ifg/iiatf M % fjQ THEN* 



08607000 T 
06408000 T 
08409000 T 



ooo;h 

0007*2 
0009M 



BLGIh RJ« GETSPACE(5*9#a)+2;X 

MtR+2]J« XCLOCK;* 
CLCKt= (T DIV 100 X 60 » 



T MOD I00?x3600;a; 



08410000 T 
08410100 T 

oa^iOgoo T 



001310 
0015*3 
0017:3 



19 V 

20 



CLOCK * (CLOCK OR P77)+i;X 
TIMEOUT CBUFF)n 

Mfflu* MCR-n]t» q;x 



08411000 T 0021 10 
08412000 T 0022*3 
0841 21 0Q T 00 2 1*? 



22 

23 



24 

26 1 
26? 



STREAMCOAT£,AJxR+l);X 
BEGIN SU=LDC DATE; DSr 
LINKUP(i7#R);a; 



8 Oct; ENOix 



08412200 T 
08412300 T 
0841 24QO T 



0026«3 
0028«1 
0029»0 



27 ( 

28 

29 



GO TO Exit;* 
tNo;x 

SPOUTCBUFF INX MEMORY CBLFF'U ); 



09413000 T 
08414000 T 
Qfl4 lSQ Q T 



003010 
0032 «0 
003 2 1 



EX ITU 

Ei^o;* 



08416000 T 
08417000 T 
Ml 



14£ 



0034»2 
0034J2 

0035 WORD S 



31 
32 



33 
34 

36 



REAL PROCEDURE FORMfcSSCBuFF #Hn ; VALUE BuFF, Hi; rEal BuFF*H1; 
BFGIN REAL S*H>U>Mi; 



START Of REL 



08418000 

S£r,¥ENT; OiSK 

OB416500 



T OOOOtO 
ADDRESS a 
T 0000*0 



00240 



INTEGER i; 

LA8EL aGaIN'EXITmwAY; 

Mll»M[dUFF,[l5!l5]-2]' 



08418700 T 0000*0 
08419000 T 0000*0 
06419100 T 0000*0 



37 
38 
39 



STREAMCBUFF* ); 
BEGIN SIisSUFF; 

L* IF SC«" " THEN 



BEGJN SH«SI»i; GO TO L ENq; 



08419200 T 0004*0 
0841930O T 0005*0 
08419400 t 0905*1 



40 
41 
42 



BUFFIsSi; 

end; 
bUFF8=p; 



08419500 T 
08419600 T 
08419/00 T 



0006*1 
0006*2 
0006*3 



(3 



AGAlNi U*»FOHMESSl»UNlTlN(TlNU'BUFF); 

IF US31 THEN BEGIN SlEEPC CTOGLE 3»ST aTUSMASk ); 
IF LA6ELTABLECU3 < THEN* 



08420000 T 
08421000 T 
08422000 T 



0007*1 
0009*2 
0012*1 



*6 
47 



BEGIN i>TRtAM(A*»TINU[U]»B«"B« = SPACE(5)); 

BEGIN SI *• LOC a; SI «• SI + s; OS * 3 chr;x 

DS>g24LIl" IN USECTO BE REApIED)*"; 



08424000 T 
08425000 T 
06 4 26q00 , T . 



0013*1 
0017*0 
0017*3 



49 

50 



B1? 
S2 
53 
54 






end; 



IF HI THEN GO AWAY ELSE GO TO EXiT; 
LA8ELTABLECU3*''g^l4&HUll47» 13; 



06427000 T 0021*0 
0842/100 T 0021*1 
08428000 T 0023*1 



08429000 T 
08429500 T 
08430000 T 



0024*0 
0025*1 
0025* 



t 



55 i 

58 i 



^^:ijl^!:liM'midiiU:H::^\ 



i?iisiliiiiii5^ 



■Mtt 



BEGIN B JsNOT 1; H I«I JaOJ 






mSk 



0028*3 
0030*0 



08434000 T 003l«3 



57( 



h 



2 

3 
4 
6 
6 
7 
8 
9 
10 



11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26- 



27 
28 
29 
30 
31 ' 

32;; 

33 



34 

35 

36 

37' 

38 

39 



40 
41 
42 



45 
46 



•8 
49 ~ 
50 
51 



52 
S3 



S4 

56 



IF 1 = 23 ThtN H!=P( .READEHA); 
IF ljg2^ Th£N H»-PC.HEADERB?; 



IF H/0 THEN 
BEGIN UMTCDDECU-g33l«*0; 
TF C*Hi.CrF]|t Q ThFN 



BEGIN FGRGETSPACE(*H-2)i 

E NC/ 



ENDi 
READY 



» READY AND B OR lil 



RRRMECH «■ RKRMECH AND B OR li% 
SAVEWORD *■ SAvEk^ORU AND B OR 1'*% 

end; 



EXIT! IF NOT HI THEN 

BEGIN IF U GTR 3l THEN 
BEGIN STR£AM<BUFF#(jtgBI»SPACEC5n; 



BEGIN DSlsiO LIT"INV KBQ RY"; 
SlJsBUFF^ DS5»3 CHR; 
0S:=LIT"»"; 



tmy 



end; 

SPOyiCf INX Ml); 



STREAMCOK J=0»BUFFt ); 

etaiN i>i: = BUFf; 

3(IF SC»" " THEN JUMP nUT; 



IF SC*"*" THEN JUMP OUT; 
IF 5C = »'*" THEN JUMP OuT TO 

sngSTt) }; 



L3; 



Ll« IF SC*" " THEN 
t2» BEGIN Sll*Sl+i; GO TQ Ll 
IF SC'^^f" THEN Gr Tn I?? 



end; 



_kil 



ttUFFmsi; 

IF SC^"**' THEN 
UKtsTALLYJ 



tally«»i* 



end; 

BUFF«=P; 
IF P THEN 



goagaik; 



AWAYI 

end; 



end; 



FGRMESJ>t»*i; 



PROCEDURE 3uSTATUS(A*DDDfB); VALUE A,DDD,B; REAL A*B; 



0843^100 
06^34200 



08434300 
O84344OO 
Qfi4a45QQ 



003a«2 
0Q3ft?2 



08434600 
08434700 
Ofl^34flOQ 



003812 
0039U 



084 34900 
08434950 
08 435000 



0043«1 
0045»1 
0046 »^ 



08436Q00 
08437000 
Qfl43y050 



0t46l3 
0046 IS 



08437100 
08437150 
08437200 



08437250 
08^37300 

8 ^373 50 



0048'2 
0050 »1 
Q05.2'.0 



Q0f2<0 
OftS2»2 
Og53t3 



0057«i 
0058«3 
0059:1 



08437a00 
08437^50 
08437500 



03437550 
08437600 
06437ft5n 



0059«3 
0060<0 
09^1*1 



084 37700 
084 37750 
08437800 



OO61J1 
0062«2 
006213 



0064*0 
006SI0 
00 66 10 



08437850 
08437900 
Qfl4-^795(J 



08438000 
08« 30050 
Q fl 4'^8 lQQ 



0066 '2 
0067«0 
Q067t2 



0066 S I 
0068*2 
Q669*t 



08438150 
08438200 
0fla38?5Q 



08436300 
03436350 
064 365 



0069*2 
0069*3 
0070*1 



007l»0 
0072«0 
007210 



PROCEDURE OUTPuTLABElCB); 



fcrward; 

VALUE 6; real Bit 



Sizes 0073 words 

array DDDt*J; 08438900 T 0000*0 

START OF REL segment; disk address » 00343 



begin real bu»b#u,t^a;» 
real &*<j;x 

heal tusta^temp; 



06438910 T OOOOIO 
08439000 T 0000*0 
start Of REL SEr^MFNT; n[SK A npRfSS « 



00 2 43 



BOOLEAN SCRTOG; 

label exit;» 

SUBROUTINE QPITfit 



08^40000 
08441000 
08441 050 



begin; streamca«-tinu[u jjb);» 

BEGIN si <■ LQC a; si *■ SI + s; DS «■ LIT" ";* 

OS « ■ 3 chr; OS ♦■ jjl" "; a ♦ pi eno;x 



06441100 
08442000 
08 44 3000 



OOOOIO 
OOOOIO 
00 00*0 



ooooio 

0000*0 
OQQ QIO 



'"'msmmn^m'^^'^'"^""^ ■■■■ 



08444000 
08445000 
08446000 



0001«0 

000312 

0003*2 



STREAM(BI=TeMP*V«s(U LSS 16)#A); 



084A7000 
06447100 
08446000 



T 
T 



000413 
000611 

000910 



08448050 T 000913 



IP 



# • 



>r 



P V 

3 

4 

6 

7 

► 

9 

10 

► 'V 

12 

I3rt 

IS I 
16 

18 

) 20 

21 

22 

( 23 

24 

26 i! 

I Ml 

27)1 
M 

M 

31* 
( 32 f 

33 

34 
I 36 

36 

37 ~ 
I 38 

39 ■,■■,■ 

40 
I 41 

42 

43^ 
I 44 , 

45 

«6 
1 47 

•8 

*9 
50 
61 
92 

53 
S4 

S6 Jj;-' 
56 i;i 



BE.GIN Si:=LCC v;Si:aSI + 7; 

IF SC NFQ "0" THEN BEGIN bltm^nr 



B^PSts&OFr. FHiil 



iLSt IF T « *»IH 
BEQ!»i 



0SIS9LIT" SCRATCH*." 
OR T « 9214 THEN* 



END 



STR£AM(SAVJ = ((TW0(U) and SAVE^>0RD) NEQ O^'A)' 

BEGIN 
DSt glOLlT"NOT READY»"J 



END 



SAV<DIt*0I-i; 

END 



0Si*8UlT»(SAVE0 )*•"); 



tLSE IF ABSCDspaU THEN 
3TREAM(BtsTtMp»V> = (Ll LSS 16)*A); 
BEGIN SI»»LC C V; SlJaSI+7; 






tuSE begin;* 

STREAMcKleT<OJ TEMP* V«»U<16' Aj; 
BEGIN vcSi;,LQC TFMP; nSi=5 p ec; nstsi i th 



lABl 



End; 



cii*ci4Ki €0 TO lab; 

DS»»6 UIT-IN USE"; <50 
0S;»7 LIT^LABELED"; 



-liX 



TO l; 



ds:slit'' "; k»"di; 



IF 

IF 



X thenx 



(NTl ♦- ROCTABLECU3.C8I63) 
JARRQW[NTl3 f THENX 

BFfiTNt STHFAMf ■.H-,iARftnif<fMTn>^Tl .A);» 

BEGIN OS «• 3 LIT -BY "; SI ♦ j;* 
Jil ♦■ SI + i; US *■ 7 CHRiX 
PS *■ LIT "/"; ST » Sl4lJit 



OS * 7 CHRJ OS ♦ 111 ♦'»«;X 
SI*L0C NTi; DS«-2bEC; 
ns » LTT "I"; J «. nit% 



Dl^DI-3; 

END'* 

A <• ?/% 



ds«-fill; 



END ELSE ELSE 
IF T<0 AND <U»23 OR 
BEGIN 



U»24) THEN 



STREAMCSJsO 

BEGIN 
DS;=22LIT"BY 



St •01 J 

■ - ENOf 
At«Pj 



A); 

ALTO LOAD CONTROL 



IF 

IF 



END ELSE 

U GEO 20 AND L LE(i 22 THEN 

LAB£LTABL£[U3.Cl«53»t'21 THEN 

BEGIN STREAMCSJ»OlA)i 

;.,.. .-BEGIN. ■■■■::..■=,>:..■■..:■;.„■■. 

£SaK:..;v"'.;S.: ■ ^'^ -O'&'^flf ^:f t T^ »8:Y^"'ScHE'D^UUE0 



eno; 



0S»»13 

s:»Di; 



LIT "PRNPBT/DISKI 



TTT" 



mUMMiu 



A»»p; 



1 14 : i6 j;b;?VDC f ABLE t U 3 ;ffi» S 17 3 . C-RDC TABLE 1 1 J . i 



08448100 
Qfl^ABllCl. 



06446130 
06449000 
0fl4«S0n0O 



0012«0 
Q0I2»? 



08450100 
08450200 
08450^00 



001312 
00i5«0 

ooiy»g 



08450400 

06450500 
Ofl4^0AOQ 



08451000 
0845U00 
08451200 



T 

T 

JL 



ooie'o 

0020»2 

o o ao' ? . 



0022*0 
0024lt 
00 24 M 



oa#si2io 

06452000 
0fl452tQQ 



0024 » 2 
0026«0 

opzefi 



002813 
002913 

Q31I? 



08453000 
08454000 
0fl454'sQQ 



08455000 
08455500 
Q84S6QQn 



003112 
0032J1 
O03 5« Q 



08457000 
08458000 
Qfl4'i90Qn 



00 36* 3 
003712 
QOJflM 



08460000 
08461000 

oa4ft?onn 



0040»0 
0040«3 

on4i»o 



0G4l»2 
0043*2 
000510 



08463000 
08464000 
08465000 



08466000 
08467000 
OftflAft<?nn 



0047? 1 
0048«1 
0048»3 



08468500 
06469000 
Qfl47Q0QQ 



0049^2 
0050U 
0050^3 



08471000 
08471010 
08471020 



08471030 
08471040 
08471050 



005l«2 

0052»0 
Q052«l 



003213 
005311 

005612 



08471060 
06471070 
08471QS0 



0057«0 
0058' 1 
005aM 



08471090 
08471100 
08471105 



0061U 
006112 
0061*3 



0062«1 
0062«1 
006412 



08471110 
0647U20 
0847U30 



08471140 
06471150 
08471160 



006612 
0068«1 
0068 » I 



T 
T 
T 



it4?li70 T 

084 7 3000 T 



0070«1 
0072«1 
0072 «2 

O075«0 



1^ 
i( 

3 
4 
6( 

6 

7 

84 

9 

10 

11 < 

12 

13 

14 < 

15 

16 

,7< 



19 
20 
21 
22 
23 
24 



• 



25 

26 ' 

27 

26 

29 i 

30 

31 

32 ( 

33 

34 

36 i 

36 

37 

38 ( 

39 

40 

41 < 

42 

43 



44 

45 

46 

47 

48 

49 

50 

51 

52 

S3 < 

54 

55 

66l 



m 



£? 



# • 



h 

2 
3 

4 
5 
6 
7 



10 
11 
12 



13 

14 



IS 
16 
17 
18 
19 
20 
21 
22 
23 



24 

ZS 

26 

27; 

28 

29 

» 

31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

t2 

«3 



»5 

»7 
•8 



«9 

SO 



51 
K 
M 
S4 



C4l;7]*A); BEGIN SI *■ LOC Kj» 
2(SI «- SUl; PS » 7 CHR; DS «• LIT 



DS 
DS 



JlLL 



dec; 

dec; 



OS 
OS 
J1S_ 



s*pi; 

ENU; 



LIT 

LIT 



»f 






A«-p; 



IF UJ32 THEN IF CIDRDWCU 
STREAM(DK«.CIDTABLECU 



-323^0 THEN 
-32*23#A)i 



$ SET OMIT s i^OT(PaCkETS) 
i SET 0^1TT « PACKET^ 



oi<-ui-i; 



$ POP OMIT 



05*6 LIT "^OECK «; 
ST»Lnr nKi Sir*.ST*^ i 



US ♦•7 

ENC; 



chR; 



ENQ; 



SPOUT CB 

a * 01% 



INX tusta); 



FNfViit 



TUSTA<-MCB.[lb;i5]-2]; 
IF (U *- UNiTlN(TlNU*BJ 5S PSEUQUMaXT 
tJFGiN B <- B.ClSU JiJ' i a 



THEN 



IF CU OR 

00lTi% 

GO TO EXTTJ% 



1)»19 THEN SUSTATUS(B INX TUSTA,0#U) gLSE 



end;x 
set omit * sharedisk 

scrtdg «• u = pseugomaxt 



XL 



$ POP OMIT 

i SET OMIT « NOT(SHAREDISK) 
STREAH(A»0»B);;t 



BEGIN Si «. b;% 

L» IF SC * " •' ThENSi 
BEGIN SI «■ Sl4i; 



GO TO L end;* 



Q * 



01 ♦ LOC a; ot 
p; B » iiCi5ti53"i;!t 



> Oltd; OS 4- 2 CHRIX 



FOR U «• STEP 1 UNTIL PSEuDOMAXT DO 
IF TlNUCU3.t30!l2J * Q THENX 
IF CG «■ LABELTARL£tuJ)XO AND GXPllA 



AND G^»)2U 



ANtf NOT SCRTOG Oft e»0 AND SCRTOQ THEN 

BEGIN IF B * THEN 8 ♦ GETSPAtE( iO#0,0 )+2; X 



end;* 

IF B X TiiENX 

begin;stream(q<b);* 



BEGIN DS ♦ 6 LIT 

SI ♦ Lcc q; 

DS «• 7 tIT • 



" NULL ";« 
Sl *■ Sl+6; DS «> 
TABLE*";* 



2 chr;x 



end;x 
spoutcb inx 



tusta); 



£nd;x 



-iliiiiiiiiiiiiMiiiKiil^ 



08'')7«000 
Qa^75000 



0077»0 



06476000 
08477000 

0fl^7anQQ 



0060«0 
0080t3 



08478500 
08476600 
Qfl476700 



0082>1 
0082«2 
Q0a2«3 



08478000 
08478900 
06479000 



00B3M 
0086 «0 

on 68 t 8 



08479i00 T 
08 479109 T 
Q8479t99 T 



0088>3 
008910 
008910 



00479200 
08479201 
0647^300 



0089t0 

0090»0 
009010 



08479^00 
08479500 
08479600 



0090^2 
009013 

no9ito 



08480000 
08481000 
08 4 83000 



08482050 
08483000 
08484000 



009110 
0092 «1 
009310 



08484500 
08485000 
08466000 



009311 
0098«2 
0lQ0»3 



08487000 
0848709V 

08467x00 



Ol03«0 
0l06»2 
QlQS^O 



0108 » 2 
0i08«2 
0l fl » 2 



08487101 
08487i99 
08488000 



OllOU 
OllOM 

oiion 



08489000 

08490000 
08491000 



08492000 

06493000 
08494000 



0U1»2 

Olll«3 
0112»1 



0112*3 
On3[»2 
OtU»3 



08495000 
08496000 

0B497000 



08497lOO 
06498000 
08499000 



0ll6«0 
0117»0 
01l8»2 



0l22»Q 
1 24 1 3 
Qi2&*3 



08500000 
08501000 
08502000 



0i30»0 
013251 
Q133«0 



08503000 
08504000 
08505000 



08506000 
08507000 
08508000 



0134*2 
0135*2 
0l36»l 



0137«2 
0137»3 
1 39 « 



■•o^iioiiiisiiiiiiiio . 



START Of hEL SEf.,MENT; DiSK ADDRESS » 00?48 



• • 



h 



10 

11 

12 
13 
14 
IS 



16 
17 
18 

19* 



20 

21 

22 

23 

24 

26 ■> 

2C 

27 



28 
29 



M 

3^~ 



33 



34 

35 

36 

37" 

38 

39 

40 
41 
42 



45 
46 
47 
«8 

*9 

50 
51 
52 
53 
54 
55 
5« 



VALUE 






xi 

JO. 



BEGIN INTEGER T* M/ M> S* CHT^ 10T» ETi 
SET OMIT a NOT^PACKETS) 
RFttt StiBROuTT^c r nMvrpTTMFi 



BEGIN S «. T-60x(T «■ T CUV 60); 

M ♦ T-60x(H 4- T rjiV 60); 
STRFAM(R4.n; A4.rnn; 



TNni 



BEGIN OI*tOC r; 0I«-D1 + 2; SI4-AJ 3CoS*2 DEC) 
CONVEftTlME ♦■ POLISH 



end; 



T ♦ JARtXOJ+PRUCTIMECX]; 
* SET OMIT « NEWLOG^ING 
TF X«P?Mrx OR x»PlMTy rhFi. 



$ POP OMIT 

» SET OMIT n NQtCNC«t,06GlNG) 
T * T»eLQCK<PtRTR)l 



T *- T/6O; CRT ♦• cdnvertime; 

T *■ JAREX#«HI0TIME[X1; 

ViHlLf T< Q UU T «• T-t-CLUCK-t-PfRTRW 



T ♦ 

T ♦ 



T/60; lOT «• cdnvertime; 

((CL0CK*PcRTR))/60)-NF0tCX-l)xNDX+23,Cl»l7 3; 
CnNVFHTlMEi V 



S T RE AM C J «->J aHRCJ^* t X ] , X * T 4. [ cPT 3 # B ) ; 

BEGIN DS*10 LIT " TiMt FOR «; Sl«-j; Sl«-Sl + U [)S«-7 CHR; 

STtSTti ; nS4.i iT "/"; riS4.7 chR* us4.ljT"s»; 



si*LOc X; DSf2 dec; X4.D1; 01*01-2; oS+fill; 
Di*x; DS4.6 LIT " IS; cP""; si*t; si*si4'2; 

3fQS«-LlT 'M«tj nS4-2 CHOM 



x«-Di; DI4-DI-9; DS^-a fill; di<-x; 

DS*-5 LIT ♦'* 10*"* i>I*Sl + 2; 
3(DS»LIT "8"; DS»2 CHH)i 



X4.01; DI^DI"?; 0S»6 FILL; OI*X; 

03*3 LIT " IN"; SI*SIf2; 

3CDS4.HT "I"; 054-2 CHR); nS«-LlT **. 



ui*-oi-io; 
end; 
spoutercb inx 



0S4-8 FIuL 
MEH0hVEH-l3,LNlTN0,l ); 



End; 



C OMMtNT MESSAGE PHESENTLT 72 CHARACTERS LONG; 



REAL PROCEDURE ANVIL(lL*Z);VALbE ILpI} REaL IL*2;* 
BEGIN REAL b'ZfU = + i}% 



06526000 

Qfla?7noo 



08928000 
08528499 
Oft'iB^OnO 



T 

T 

T 
X- 



OOOO'O 

QOOO»n 



000010 

0000 1 

onnoto 



08530000 
Oa531000 

8 5 32 C0 . 



08133000 
08533100 



000 1 « 

000353 

00n6»2 



0853 34 00 
08533499 
08^33500. 



000713 

0009»2 
OOQOtg 



08533501 

08533599 
QAS^37Q0 



001 010 
O0H«O 
OOl^'O 



0015*3 
001513 



oass'iooo 

08535000 

08536000 



08537000 
085 38000 
Q85 3R5Q0 



ooia'o 

0020*2 
0022«3.. 



08540000 
08540i00 

08540200 



0026 tl 
OG29I2 

Qo 34 in 



08540300 
08541000 
0B5»2fl0Q 



0035«2 
0037«1 
0n^9«2 



0041 «0 
00421 1 
0Q44 I t 



08543000 
06544000 
Qfl544^Q0 



08544200 
08544300 
08544400 



0045»2 
0046»2 
004713 



08544500 
08544600 
08544700 



004910 
0050*0 
0OSl*O 



0052«3 
0053»1 
0Q53«2 



08544800 T 0056*0 
08545000 T 0056*0 

SIZE* 0057 WOROS 



START OF REl 



ReAL 2z; 

LABEL exit; 



08546000 

segment; Disk 

06547000 



NAMEIDCU*ZZ); 
NAMEIU(U*Z2); 
IF U»"/ " 



06S4705Q 
06547J00 
08 54 7 200 



T 0000*0 
ADDRESS » 
T 0000*0 



00250 



0000*0 
000010 
0000*0 



THEN 



BEGIN U*»Z.C15*15); GO EXIT END EL^E 

IF (U •■ UNITINCTINU*B)) S PSEUOOMAXT THEN 
BEGlNIi 



08547300 
08547400 
0854/500 



IF LABElTABLELU) = (*ll4 QR LABELTABLE I U ) = 

HLQIN 
STREAM(A>»TlNUCU]*SAV»c((TWQ(U) 



(iSH THEN* 
AND SAVEWORD) 



08547600 
08548000 
08549000 



0001*1 
0002*1 
0003*1 



JttiiiafeiiiaitiiiMiiiigTOR ;: 

DS:=nLlT" NOT READY*"; 



X )* 



T 

T 

X 
08550000 T 

08551000 T 
08551100 T 



0004*0 
0006*0 
0010*3 



0011 n 

0013*2 
0014*0 



08*51200 
08552000 



0016*2 



08553000 T 0018*3 



10 

111 

12 



15 

16 

17 ( 

18 

19 

20 \ 

21 

22 

23 ( 

24 

25 

26 1 

27 

2« 

29 % 

30 

31 

32 t 

33 



34 

35 

36 

37 

36 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



• 
• 



m 



1 



SAV(uit = Di-i; us:=bLir"(SAVEO)«-"); 
en d; 



oass'^ooo 



T 0020«2 
4 — 0,02.213, 



2 

3 
A 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 



U ♦ PSEUO0MAX7 + 1/ 
END ELSE 
IF t AflELTABLFrUT < Q THgMJ 



08559000 
08556000 
06'i5700n 



T 002310 
T 002dti 

4 onaati 



0£GIN;STREAM(A«-TlNUCIj]'X«-Z.tl5«15]-U;» 
BEGIN SI «• LOC Ai SI *■ SI + S^X 

. ns *• 3 CHR? ns, 1- a LIT ** in use»^,»» 



08558000 
08559000 
08560000 



T 0025'3 

r 0028«2 

J — 00^9*0 



■ .ENOi'X-' 
ii * PSEUOOMAXt + 11 



f NDM 



oeseiQOo 

08S62000 
08563000 



T 0030«a 
T 0030»3 

-4 — no3a»o 



IF U S PSEUDOMAXT THEN 

tABELTABLEClJJ * -(IF IL THEN *P(DUP) ELSE e31^)U 

txn» ^ND^ end; , 



0856«000 
08665000 
08566000. 



T 00 32 «0 
T 0032' 3 
J 00 36' 2 



PROCEDURE LOGOUTCA); VALUE a; REAt AJ 



09568000 
$T A R T or R Et SErMFNTI qi S k, 



Size* 003f WORDS 
T 0000*0 
ARDR g^S » Q?52 



BEGIN REAL RCW=+0; 
REAL MSCWs-2; 
INTEG E R I=RCW*1J 



08566100 
08568125 
QS56S150 



T 0000 »0 

T 0000«0 

J QQO0>n 



20 

21 

22 . 

23 

24 

25 

26 

"to 
28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 

38 

39 

«0 

41 

«2 

♦3" 



Real j»i+i# l«j+i; 

LABEL exit; 
PfO*0>GFTSPACEC335*0*0)»2); 



% L MUST BE LAST DECLARATION, 
X INITIAL IZ€S L ._ 



O8S682OO 
O8S663OO 
08568600 



T 0000«0 
T 0000»0 
T 00 00»0 



IF CJI= 

begin; 

ST 



D I REcTQRYi'EAF<Ch( "SYSTEM "^ "LQG 
REAM(L); 



«*^))bO then 



08568700 
08568800 
08 56890Q 



T 0002*1 
T 000^«2 
T 0005 »Q 



end; 



BEGIN DS{ = 10 LIT «-NULL LOG*-" END) 

GO TO exit; 



08569000 
08569i00 
06569200 



T 0005»3 
T 000712 
1 OOlOtQ 



If logfree gTr o then sleePci-lqgfreeJ'-O); 
logfreet»absclugfree); 

SET OWiT g NOTcShAREDlSK) 



08569300 
08569^00 
08 969 ^99 



T OOIO'O 
T 001310 
T ,00H<0 



M0VE(30 
H[L+103 
DC BEGl 



N 



INX 0#L}J 
GETUSERDlSKc(MtL+83*MCL+e3 + l0)); 



X GET XTRA TEN 
X To MAKE COPY 



08S69600 
08569700 
08569600 



T 00i4»0 
T OQld»0 
J 002212 



END 



DISKWAIT (-L-31*300*MC J + 103 + I ); 
DISKWAlT ( L + 3lO00»MtL + 10] + I)i 

UNTIL (I*I-*-10)>MCJ*a3; 



X SIMPLER 



08569900 
08569910 



T 0022 I 2 
T 0026«1 
T 0029 » 3 



LCGFREE * M[J+103; 
J«sJ INX 0; 
McJ3isMCJ»23t«M[J»33t»0j 



08570000 
08570300 
0a570a00 



T O033«l 

T 0035»1 

1 0036* 2 



M[J*13J 
MtJ+43« 
MrJ*5]« 



sM[ J+8]x6; 
-"DISKLOG" 
MJ 



08570500 
08570600 

0fl ^70/0Q 



T ooaiJ2 

T 0045*1 
T 0047 « 1 



ts 

«6 

♦7 

«a 

♦9 
50 
51 
52 
53 
54 

55 ,;, 

B6; 
S7 



DlSKy(AIT(J*30»LQGFREE}; 
SET OMIT » NOT(ShAREOISk) 
LCGFREE»NABSaQGFRE£); 



P(DIrectorysearcm(-"system "'"log •M4)»del); 

If HOLDFREE=e THEN SLEEP( [ TOGlE ] #HOLOMASK )/ 
LCCKTOGCHOLDMaSK); 



DISKWAIT (-J#-30#0IRECT0RYTQP;; 
II»(MC*;<*203,t8U03+l) MOO lOOO; 
MrJ»20 3»n{*PCDUP3)&It6*36tl03; 



08570800 
06570849 

08 570870 



T 004911 
T 00S0t2 
T 005012 



08570880 

08571000 
0657H00 



T 0051*2 

T 0053 U 
T 0056t? 



08571200 
08571300 
08S714 00 



T 0060*0 
T 0861*3 
T 00 < ^ 5* ! 



diskwait(j*-30*oirectorytop); 
unlocktog(hqldmaSk); 

STR£AM(J«'[ACTDATE3*D»[n); 



08571500 
08571600 

Ofisnfioo 



T 0068*2 
T 0070*0 
T 73 *2 



iiiiii 



1^ 



forgetspace(j); 






X a076lfl 



06572400 T 0076*1 



^ 



• • 






3 

4 

6 

7 

9 
10 

12 
13 

IS 
16 

IS 

19 

^ 20 

21 
22 

24 
26 
\ M 
27 
28 

I M 

90 

31 f 

33 
34 

I 35 
K 

37" 
I 38 
39' 
40 
41 
42 

43 ~ 
«4 

45 ':; 
•6 
•7 

ts 

«9 
50 
51 
52 
S3 
54 

55 ;'••• 
66 i'P. 



y[L+4]:eC*P(DUP)U0tl!43:bl<iUU»47sn&OCl2i4/JM]; 
MrL4l-|»XCI G^K4PfHT(^)i 



STREAMC0ATE#»*0^84.L^1 ) J 

BEGIN SU UOC OATEiOULOC a;US«.8 OCT^SULOC Al 



08572500 

ow')7?;sin 



ENTfc.Ru5ERFlLt(-I*"iiYSLlJG 

STREAMCI'LJ; 

BFGIN DSI =2l LIT"**** t^rw 



end; 

EXITI 



oSt«7 cHR;os»«a lit^'/sysloq*-*' 



LUG F ILE IS ";sit=LQC lisn^ai^i; 



08572520 
OaS72530 



0077»0 
00fl2U 



008413 
0086t2 
QOfly<g 



a 572 600 

08572700 
08$72fl00 



spauT(L); 

IF A THEN 



08972900 
08573000 
0flS73iQQ 



008813 
009 1 » 
009 2>0 



End; 



KILLCCMSO*]); 



08573200 
08573300 
08573a00 



0095»2 
0097*0 
0097h 



;:iiiBiwii|iPiii^ 



0097 J 1 

0098«0 
00 99 » 3 



BEGIN REAL A»B'T.U* I*MW 

lABEU AGAIN, Exit; 

Ml«=M[B.|.i5» IH]-^]; 

STREAMC8* >; 
BEGIN SiisB; 
L» IF SCm^ » THEN BEGIN SHaSl-H; 



AGAIN! 



SI2C« O1O4 WORDS 
08575000 T 0000»0 
START OF REL SEnMENTI DISK ADDRESS » flOgSa 

08576000 T 0000 «0 
08576100 T 000010 
08577000 T OQQQl Q 



B«ssi; 



GO TO L EMDi 



end; 
Bt«p; 



Tt*SPACE(lO)J 

IF (Ut«UNITINCTINU»A)) 



GTR 31 THEN 



BEGIN 



USSslO 



mq 



l,IT'UNV KBD 

siisa; ds«»3 chr; 



ijV"; 



LABELf A6l£[U3 2 THEN* 
BEGIN LABELTABLECU] «• 



IF 



9U4;% 

^ULTlTABLE[U3»RDCTABLt:EU3»0; 
RRRMECH •• RRRMECH OR li% 

Ready ♦ ready or m 

SAVEWQRP In SAVEWQRD QR U 



I 



ELSE 



ENG* 
BEGIN 



SAVEWQRD » SAVEWDRD QR I;X 



1 <■ « TO BE";* 

end;x 

STREAM{A«-TlNLItU3^ I>T);ai; 



BEUIN DS «• LIT ♦♦ ";X 

Si *■ loc a; Si «. si+s; ds «■ 3 ch";* 

ST 4. SH-g; DS 4. 6 CMRll 



ENo;x 



ENo;x 



DS «. 7 LIT « SAVED*''^ 



spoutct i nx mu; 
streamcokiscai ); 

BEGIN SlicA; 



';.M/i^l!i} 






Mmm 



siissi + n; 



kML 



08577100 
08677200 
08577-^00 



0B577<j00 
06577500 
0H577AQn 



0003(2 
OOO4I2 
0004 H 



08S77700 
08578000 



0005*3 
0006*0 



08578200 
08578 300 
0fl578^t00 



0006*3 
0009*0 

OQn*i 



08578500 
08979000 
0B580Q00 



0012*3 
0914*1 
0014*^ 



08581000 
08582000 
08562100 



0015*1 
0015*2 
0017M 



0858 3000 
08984000 
0858«l00 



0018*3 
00l9*3 
0021*2 



08585000 
08586000 

085 870 



T 

T 



0023*3 
0025*0 
Qfr26*l 



08588000 
08589000 
08590000 



08591000 
08592000 
0fl593nOQ 



0027*2 
0028*1 
00 28 *1 



0031*1 
0032*0 
0032*0 



08594000 
08595000 
08596000 



0033*2 
0034*0 
0034* 1 



08597000 
08597050 
08597100 



0035*1 
0036*2 
003 6*3 



,.o,8i;fiiii 

05597200 
0i39y>50 



0036*3 
0038*0 
0039*^ 



mmmf 
till 



1^ 



i 

i 
i 
« 
i 



19 
20 \ 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 ( 

36 

37 

38 I 

39 

40 

41 ( 

42 

43 

44 ' 

46 



• 



47 

48 

49 

50 ' 

51 

52 

63 1 

54 

55 

66( 

57 



m 



08597300 T 0042*3 



h 



10 



12 
13 
'4 



16 
17 
18 



19 

20 

21 

22 

13 

24 

25 

28;,: 

27?; 

28 

29 

M 

31 1 

a 

a ; 

34 

35 

36 

37"" 

38 

39 

40 

41 

42 

♦3~ 



45 

«e 

»7 
•8 



Ll« IF SC«" •' THEN 
L2» BEGIN SI:=SI*i; 



IF 

All 

_L£. 



si; 



GQ TQ 11 &ND; 



l-3« 

end; 
Atsp; 



okjstally; 



THEN GO TO L2i 
THEN TALLYl»ll 



08597350 
96597,400 



0S5974I50 
0i59r500 
QflSC/'iSQ 



0043«1 

9Q43,»3 



ENo;x 



IF P THEN GO again; 



08597600 
08597650 
0ft597700 



0044 U 
0045*0 

QQ » s n 



0046«0 
0046>1 
0Q46 » 2 



BDQtEAN PRQCEOuRE *Vhy slEEP( MASK ) > VALUE MASK; REAL MASK. 

b|; qin 



06597730 T 0047*0 
08598000 T &04rt3 

SlZF« 0049 WORnS 



START QF REl 






08599000 

serment; disk 

Qa,60QQQ.0. 



THEN 



BJsSPACE(KEYM5GS2); 

DlSKWAIT(-B,KEYMSGSZ*MESSAGETABLEt2],[22«26]); 
STREAM(B*MASK/TtcO,0;sO,0>aO»A:8A;aSpA C E (4)); 



08601000 
0S6Q2OO0 
0860 3Q00 



T 0000 I 
ADDRESS « 

J QQQ0«n 



00259 



BEGIN 
SIi«LOC mask; 

bcif sc»**o" then 



08604000 
08604100 
08605000 



0000<0 

ooooto 

O0P i»3 



T 
T 
T 



0002»l 
0605 »1 
0bO8«l 



GO TQ next; 



IF 



SC'VWY 
BEGIN 

ui«»a; 



THEN 



08606000 
08607000 
0fl60BOQO 



US>s3LiT" Qb"; A8»Dl; GO TO NEXT; 



end; 
T»»iSi; oi»' 
si'^LSc c; 



08609000 
08610000 
08611000 



0012»l 
00l2»l 
Q 12* ? 



0013«2 
0014«0 
0014»0 



RJ 



sijsb; 

SIIaSI+6; 
IF SC*"*" 



=LOc o; Di»»DU7; ds»*chh; 

DI»»LQC D; QItsDI*6; DSl»2DECj 



08612000 
08613000 
08614000 



DI«=DI-2; 
THEN X END 






UF FIRST PART OF TABLE 



08615000 
08616000 

0fl6l7nQQ 



0015»2 
0015*2 
00 16*g 



^1^0:^fQ^N.E-xT'; 



NEXT; 



IF 2SC NEa DC THEN GO TO R; 
Si:=SI-6; DIS=a; dS:=LiT" " 

si:gsi-nj; 



06617500 
08618000 

0ft6ia«f0f> 



0017*2 
0017*3 
OQlfl'l 



0018*3 
00te*3 
OftiQ«l 



US!»2CHR; AJ«Di; siJsT; 



.«; 



oi«=a; os»*lit"«-' 
en0 stream statement; 

SPQUTCAi; 



08619000 
08619500 
Qfl6?0nQ0 



FURGETSPAceCBj; 
END % IF "WY" 
ELSE WHYSLE£P»«TRUE ; 



08620500 
08621000 
0B621S00 



END TROCEOURE WHYSLEEP; 
PROCEDURE CHAn6£0PTI0N(BUFF>RS);* 



08621600 
08622000 
08622500 



0019*1 
0020*0 
0021*1 



0022*1 
0023*0 
0(>23M 



0024*0 
0024*3 
0024*3 



49 
SO 



VALUE BUFF, KS;REAL BlFF'RS;* 

Begin real b^t/qp^bus^mask^opter; 



star! Of Rel 



52 
S3 
54 

55 



SLEEP( CTOStE J,HOLPMASK ) i 
LOOKTO«(HOfcDMASK); 

BUS » BUFF.ClsriS3»li 



SEg^'ENT; DISK 
08625000 
0B626QQQ 



B » GET5PACE(3Q^0>0i»2;» 



elSKl0(T»l-B,-30»DlR£CTURYT0P-SYSN0); 
OPTER *■ SPACECOPTIONSZ^; 
DlSKWAIT(/'QPTER>QPTlQNSZ>M5SSAGETABLEEQ].C22t26J W 



06627000 
08626000 
01629000 



ADDRESS * 

T 0000*0 

J 00 00* 



00259 



0000*0 
0003*0 
O Q 6I2 



STREAM(BUFF*T«.0»0PTER*R*tOPJ );X 



08630000 
08631000 

oa6Jiio.a 






..Ml ^■■v.S.l,*.^.-..:,:..:£L.SK..JUMPV;Oi,].,Tl. 



TO L); L« IF SC GEO ♦•0" THEN GO L4; 



06632000 
08633000 
Qft6^4flfla 



0010*2 
0013*1 
.06 lilt 



0019*1 
0020*3 
on>Q«^ 



08635000 T 0022*1 



T< 



08623000 T 0026*Q 

Size* 0027 words 

08624000 T 0000 <0 



• • 



•n« 



>r 



10 
11 
12 
13 
14 
IS 



16 
17 
18 
19 



20 
21 
22 
23 
24 

16 



17 
28 

29 
10 



31 S 

32* 

33 

34 

K 

36 

37" 

38 



39 
40 



46 
46 



48 
•9 
50 
51 
52 
i3 
M 
SB 
56 



6 3 ( I F is C ^ " • 

8(ir sc*" " 

IF SC*"*" 



THEN i>I«-SI + n; 16(IF SC = " " THE.N Sl«.Si + lJ;* 



Then 

THEN 

Then 



JUMP 
JUMP 
JUMP 



OUT 
OUT 
OUT 



TO 
TO 
TO 



Ds«-i chr);li!% 

TALLY4-0;BbFF«-Si;Sl«-0PT£RU 
63CDI<-tnc T; IF iaC^JQC THEN 



Ll ELSE* 
Ul EUSEX 
^1 EtSEX 



BEGIN IF SC««*" THENI 

BESIN TALLY^^aijUMP OUT Tq L3 EnD* 
Ei:S£ TALLY »TALLY* 11 



END lUSL jump out TO L2 ) ;T ALLY*48;G0 Tq L3;L2«* 
IF SC-s"*-" THENX 



(jEGI Nai 



si*-buff;63(if sc<*'0" then si + si + i ELSE JUMP Out 

TO LA)HaiOI«"LOc T^SuSi + iH 
IF SC<"0" THEK begin 5I«-SI«iJ DS*1 OCT ENn gi^Sg 



Lhon 



BEGIN 5l4.Sl-i*D5*.2 OCT END;X 

tally«-^7;tctally«-tally+63);x 



ciNo;x 



L3»T«-TALLY;Sl4.L0C T ;0 I«-R;dS«-WDS;X 
IF QP<47 THEN 



13EGIn;sTHEAMCA *■ If RS 
O^-OPTeR INX QPj»OP 
BEGIN PS » I , IT " 



'M 



THEN " RESET" ELSE 
«• 47-0P*BUi>);!li 
SI *■ LOC QP^ PS 



SET"*X 

» 2 Drc;x 



L« 



OS ♦ Lit •♦ •'J SI ♦on 

8 (If sc«o THEN JUMP OUT To l; os«.chr ) i i 

SI * LQC Ai Si * Sl»gj PS » 6 CHRU 



qS ♦ LlT"<-'*;% 

end;x 
MASK«-TwriCnP);i 



MCBUS-i3.£9l93JaG; 
SPBUT(BUS INX MfBuS^lMf 



SLEEP([T]/ lOMASK); 

mi;b]*uption«-if Rs then option and NOT MASK Else option or mask; 

DISKWAtT(B^-3Q*DtR|.CT0HYTUP«SYSN0); 

FORGETSfiACECOPTERj;* 
F0RGCTSPAC£CB)I* 

unlocktogcholdmask); 



ENDiX 

PROCEDURE TYPQPCKTR^PU); VALUE KTR^PO; REAL KtR^PO^ 



06636000 
08637000 



08638000 
06639000 
0fl6ft0000 



002313 

onzftti 



086^1000 
08642000 
08643000 



0026<2 
002810 



08644000 
08645000 



0030»2 
0031«0 
0031 '3 



00647000 
08648000 
08649000 



003213 
003311 
0Q3a»n 



08650000 
08651000 
08652000 



0034»2 
003610 
00 3ft t 2 



003612 
00 38 to 
0039M 



08653OO0 T 
08654000 T 
08655000 T 



08656000 

08657000 
0663 8000 



0040*2 
004110 

QQ4 2«X, 



0865V000 
08660000 
08661000 



004211 

0043M 
00431? 



00^'HI 
0046'3 
0048«3 



08662000 
08663000 
0866 4000 



0049 » 3 
0050* 2 



08665000 
08666000 

Qfl6ft7nQn 



08667100 
08668000 
0fl669000 



0053 «0 
0053«2 
0053*3 



0055»0 
0058»1 
5 BU 



08670000 
08671000 

08673000 



08674000 
08676000 
0R677nQQ 



0060*3 
0062*1 

0065 * 2 



0069*0 
0069*3 
0Q7Q*9 



08678000 T 0074*0 

Sizes 0077 ^ords 

08679000 T 0000*0 



BEGIN HEAL VASE*TuSTA,N*X#OPTERi 
LAeCL iNGRi 



iJETT; 



REAL SUBROUTINE 
BEGIN 
STREAM(OPTi=[OpTlON]:QPTER*N#NBi>J*47-N,VAS£); 

ifGiir^ ■ ^ 

DI»*DI*4; 

SI»OPT£RJNCSI»SI*e>MF SC*"*" THEN 60 



START Of REL SEfiWeNTI OlSK ADORESS • Q0?62 

08680000 T 000010 
08680500 T 0000*0 



08681000 
08681100 
08681200 



0000*0 
0001*0 
000l»0 



TO exit;x 

aciF SC<"0^' THEN DS*-CHR EL5E D5«-l LIT" ");DS*2 LIT" 

SI i«0PT; SKIP NBS sb; 
IF SB Then tally :=i else 



^T 



08681300 
08602000 
08683000 



0003*2 
0a<Q3l2 

000313 



EXIT: 



BEGIN DS|a3 LIT^NOT"; TALLYts2; 

0S«-5 LIT" 5ET*«;X 

Pl*«VASEf SiiatOC NBSj OStJ^LIT" 



uptjstally; 



end; 

i 



08684000 
0868'*500 
08685000 



08665500 
08686000 
08686500 



0005*3 
0908*1 
0009*0 



OOIOIO 

0011*0 
0012*0 



08687000 T 0013*3 



1^ 

3 
4 
54 

6 
7 



9 

10 

11 I 

12 
13 

14 < 

15 

16 

17* 

IB 

19 

20 i 

21 

22 

23 i 

24 

25 

26 I 

27 

28 

29 1 

30 

31 

32 < 

33 



34 
35 
36 
37 
38 
39 
40 
41 
42 



• 

• 



47 

48 

49 

50* 

51 

52 

53* 

54 

55 

56 < 

57 



11 



• • 



h 



10 

11 

12 
13 
14 
15 
16 



17 
18 
19 



20 
21 
22 
23 
24 
25 
26 
27 
28 



29 
10 



J1 
32 
33 
34 



37 
38 



41 
42 
43" 



44 
45 



46 
47 
IS 
49 

50 
61 

a 
w 
54 

55 

56 
5 



end; 

S £TT«-P; , 



END sett; 

SLEEP C£TOGLE3#HOiOM ASK Jl 
LUCKTOGCHQLPMASKH 



TUSTA»=MtCVASE:;=KTh,ClS» 153-1)- 13; 

OPTER *■ SPACE(OPTlONSZ)JiOPTiaNSi:C8538J10]; 

DlSK>^AlT(-UPTER»aPTlQNSZ»MESSAGETABL£[03, L?2»263); 



IF" PO THEN 
BEGIN 

STREAMCBUFF'«KTR# 



BEGIN SI*-BU^'F;63(IF 5C 
IF Sc GEO "0" THEN GO T ^ 



TisQ^ OPTEH^ D»»IN3); 



W M 



THEN 

Li»; 



si<-si + i ELSE JUMP OUT TO L);l; 



ecir Sc«** ^ 

IF SC"''*" 

TF sca'^o" 



THEN JUMP OUT TO Ll ELSE 
THEN JUMP OUT TO Ll ELSE 
THEN JUMP OUT TO Li ELSE 



0S«-1 CHH); H» 
TALLY*-0> BUFF«.SI; SUOPTER; 

63fr)T*-i ac IMF 8 sc/nr. then 



BEGIN IF SC*"*** THEN 

BEGIN TALLY*4t8; JUMP OUT TO L3 END 
£ISF Tftl,LY»TALLY»t 



ENq else JUMP OUT TO L2J; TALLY«-48iGa TO L3;L2J 
IF SC = "«-" THEN BEGIN SI«-8UFF;63C I F SC<''0»' THEN SUSl + l 
ELSE jgwp QMT TC mU I ^ ; QT^-LOC T; STi-Sl + i; 



IF SCX^O" THEN BEGIN SlfrSI-lj DS*l OCT ENO ELSE 

BEGIN Sl>SI*i; DS*2 OCT ENO; 
TALI Y*47} TtTAl I Y»TAtt Y*A>IW 



l3« t«-tally; 

FNo; 



end; 

3I«-L0C T; 



oi*d; ds«- wds; 



IF N LSS OPTe«,C8»103 THEN PCSeTT^DED; 

spbut(vase inx tusta); 

END ELSE 



begin 

stream(kth! j; 

BEGIN JJlisKTR; 



INCRJ 



end; 
xj=p; n:s-i; 

NtaN+i; 



IF SC*"S" THEN tALLYj»i ELSE 

IF SC»'»«'' THEN Tally t»2Ei.SE tally»*3; 

><TRi«TALLY; 



IF {<KTHl»SETT) A«0 K3^ THEN 
BEGIN SPOUTCVASE INX TuSTA)! 

yAa£j»spACEc3)j 



GO TO incr; 
end; 
if ktr=q then 



IF X;f3 THEN 

BEGIN STREAH{XI*Xai» VASE); 
BEGIN DS»«12 LIT" ALL OTHERS "J 



XCDSJs^ LIT"NOT •♦); 
DSlaa LIT^SeT*-"; 



end; 



end; 






08688000 
Qfl0fl9n0Q 



00689100 
08689200 
0^689100 



00U»0 
OO HM 



08689900 
08690000 
08690020 



00Ut2 

0014*3 
0017*3 



0Q21»1 
0024»3 
0029 »? 



08690080 
08690090 
066901 00 



O86901I0 
08690120 
0B690130 



00 32*2 
0032*3 
0033*1 



08690140 
O069O1SIO 

Qaft90iftn 



08690170 
08690180 
08690190 



003413 
0037*0 
QQ37*3 



0038*0 
0039*2 
Q0fl0*3 



O8690200 
08690210 

QH<SQOg?» 



0042*0 
0042'' 2 
0043*1 



08690230 
08690240 
086902^0 



0044*1 
0044*3 
0045*2 



T 

T 

X- 



0045*3 
0047*2 

0049*0 



06690260 
08690270 
Qft6902fln 



0050*3 
0052*0 
0012*8 



08690290 
08690300 
08690310 



O869O4OO 
08690600 
0fl690ft00 



0053*3 
0053*3 
0054*3 



0033*0 
0058*1 
0059*3 



08691000 

08691200 
O a69UQ0 , 



08691600 
08691800 
08692000 



08692200 
08692400 
08692600 



0059*2 
0060«0 
0061 *0 



0061*1 
0062*1 

0063*9 



08692800 
08693000 
08693300 



0063*3 
0064*0 
0065*? 



08693^00 
08693600 
08693q00 



0066*3 
0069*2 
0071*1 



06494000 
08694200 
06694400 



0073*2 

0074*0 
007a»0 



06694600 
08694800 
08695000 



0074*3 
0076*0 
0076*0 



0079*3 
0081*1 
0062*0 



06695200 T 
06699400 T 
0a<>95600 T 



0062*1 
0083*2 

P f94»l 



08695800 T 0084*3 



Ti 



• • 



rf 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 



rGRGETSPACE(aPTER)>X 
UMOCKTUGCnQLDWASr;); 



ENon 



S SFT QW I T « N OTCQIS K LQG) 



06696000 
06696100 



T 0064*3 
Jt- 008')«2 



08697000 T 008910 

St2E« 0090 WORDS 
06A97099 T aOjOOAO 



X THE FOLLQWlN^i THiit 0£Fli\|£S mU^T EACH BE 
% DISK ROW SIZt OF PBO AND PUD FILES IS TO 
DFFINE PRDROrtS^ =_ 



CHANGED IF ThE 

BE CHANGED, 



08699000 
08699050 
08699100 



T 0000 
T 0000 

JF nooo 



«0 
«0 
14- 



% 

JL 



900# 
PSOROrtSZ IS THE DISK RQ*i SI2E» IN SEGMENTS* OF PBO AND 
Pun FliEs. PflnRQi«s7 MUST ar a Mut tiplF nr j^^w^f. 



08699150 T 0000«0 
08699200 T OOOdO 
Ofl69925o T OOOQiQ 



»PaDRECS * 

3001 
P^nRFCS'PBi)H(j^§Z/3 t NQ, Op UQfilcAL Kf-cQRpS PFR, RU>^ , 



08699 3OO 
06699350 
Qflfl99aQ0 



T 0000 
T 0000 
J QjOfliX 



10 
»0 
JJL 



Ul 



♦PBDTOTRecS » 

6000« 
PBDTnTR£cS<jP60R£CSx20 I MQ. OF ToTAl RECORDS PER BACk^UP FIlE* 



08699£t50 
O86995OO 
0e699'5S0 



T 0000 

T 0000 
T 0000 



to 
to 

10 



p«oceduR£PBIQcAlpha, POINTER)' vAutE alpha; real Alpha, pointer; %p 

START OF f^EL 



08 

SEGMENT 

iia 



700000 

; diSk 

700900 



T 0000 
ADDRESS 

J QQQO 



«0 



iSL 



00265 



19 
20 
21 



X THIS PROCEDURE HANDLES IQ F C" THE CREaTIqn QF BACK'LP 

% DISK* IT OBTAINS NEW ROWS AND NEW FILES AS NECESSAHy, 

1 OUT OF FILES* HEAnERt53.Ca>U IS SfT ANn THF JQr TF_RMI 



FIteS. FOR 

IF IT Runs 

NaTph* LEaVtNG 



08 

08 
_0fi 



700910 

^00920 
7 00930 



T 0000 
T 0000 
T OQOO 



»0 

to 

iSL 



22 

23 
24 

26 y, 

»? 

27;;;' 

28 

29 

» 

J2| 

m:-; 

34 

35 
36 

37" 

38 

39 

40 

41 

42 

«' 

44 

«5 

46 

47 

48 

49 

50 

51 

S2 

S3 

M 

iS 

56, J 



% ONE BLOCK Foa THE LABEL AND US MESSAGE. 

% 

% ALPHA IS ADDRFSS qF TQP I/Q nE^CRTPTOR* <Q MEAnS REAU 



-XSL. 



08 
08 



7009^0 
700950 
701000 



T 0000 

T 0000 

J 0000 



to 
to 



POINTER I 

BEGIN N 

R F AL T* 



S FIBCl 
AME HEA 
-2^100/ 



41 

oer; 



XP 



08 
08 



?02000 

703000 
70fl0QQ 



T 0000 
T 0000 
T QQQO 



to 
to 

JLO- 



INTEGER I'IOD; 
LABEL ok; 

PO INTER , [FF3«-P0INTLR INX j^i. 



%P 



08 
08 



704100 
704500 

FQ5 Q90 



T 0000 
T 0000 

T Qq o Q 



to 
«o 

10. 



IF CHeA8ER*POlNTER»C3llb3)^o THEN 
BEGIN 

HEADEH ig tMt(*H£AOER)33; 



XXXXPB ON DISK XXXXX %P 



If H£ADERC7] GEQ PBDTCTRecS-2 THEN X c^ECK FDR NeW fILE 
BEGIN 
S SET OHiT « PACKETS 



08 
08 

M. 



7 06 000 
707000 
707500 



t 0003 
T 0005 
T 0005 



11 

to 

UL 



IF HtA0ERC6].C30t I6js''999" THEN 
NOT PACKETS 

IF HEA0ERC7] GEQ PBDTQTrECS TH£N P(J<IT) ELSE 



08 
08 
08 



708000 
708200 
708400 



T 0007 
T 0009 
T 0009 



to 
to 



$ SET OMIT • 



U HEADERi:5].l4» 
BEGIN STREaMCF:* 



08 
08 
08 



708600 
708&QO 
709400 



T 0009 
T 00 U 

T oou 



»2 
»2 

ta 



n THEN GO TO OK ELSE 
PRT[P1MIX*33 INX McMtAL 
]* H«eHtsNABS(SPACE(l2) 



PHA-33 iNx 43, 

)); 



08 
08 
08 



LlTwfOO MANY BACKUP R£ 

chr; DSt»i.iT"/**; sit»isi 



06 
06 



709500 
709600 

^o'aoo 



FlOOOO 
F 10200 
71O4OO 



T 001 4 
T 0018 
T 0022 



tl 
t2 
t2 



IT 
»1 

12 



BEGIN 51 t»F 
0St«24 

■..;.: .:. pSi»7 .■ 



cs ON ••; 

♦ 1; DSt»7 chw; 



T 0026 
t 0027 
T 00 30 



DS!=2 LIT"**"; 

End; 

HEA0ERC5J,t4t l]»si; 



08 

08 
08 



710600 
710800 

711000 



T 0031 
T 0032 
T 0032 



t3 
«l 
t2 



IF 



GO TO ok; 
end; 

HEA0ERC73 GEQ PBQTOTRECS THEN % GET A N£H FIlE 



00 

08 

_01 



711200 
711400 
7U600 



T 00l5 
T 0035 
T 0035 






BEGIN 

IF I JsHEADEHCb3. 
H*-SPACEC30); S«-M 



[3»13 THEN HEADER 
[HEADER INX NOT 



t53,C3tl3jsO; 
3; 



08 
08 
08 



711600 
712000 
712100 



T 0037 
T 0037 
T 0043 



tl 
t3 

to 



UISKWAITCH«30,S 

:iMft «iaRi«liiiis ;i 



« 
©? 



08 



7i.2iio: 



I 0047 

.|,l;::;;:;0:tl|ff 



12 

m. 
m 



DISKWAIT(H*30»S), 



0R712140 T 0055»0 



M[H + 7]«-M[;h + '; J*-o; 



0(j7l2l50 T 00S6M 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



MCH+51*(*P(DUH)) OR m; 
HEA0eRC53.C3«U»«i; XSeT CP IK UP TOq 

H(^ADERC73 »» O; ^ •'■. i 



0B7i2i70 T 006212 
08712200 T 0065«1 
0ft7l2HQa T QQ6fl<Q 



HEA0ERL3] Ja XCLQCK ♦ PcRTK); 
3TrtEAM(0NES=l' H J « C HEADER [ 6 JJ )i 

BL qiN § n=L Cc one ; Ds»s a a p q; 



O8713O00 T 0069»2 
08713250 T 007lt2 

08yi3i)Q() T QU73»0 



DIl«DI+24; 20(0SJ»6 LIT^O"); 

end; 

MCH*73«.PflnROKSZ DIM ■il 



087137SC T 007312 
087iaoOO T 00/5»2 
Qfl7Hil,n T O07«it3 



HtADERC93«-MtH+9]»-i; 

HLAUERI10 3^MCH + 1O]>GETUSERDISK(-cPBDROWS24.i)); 

NtHFADFR INX NOT 01 ?» FUFC-'CIF I THEN "PUD 



08714120 7 
087H130 T 
Qfl7HHQ T 



0078 «1 
008112 
QOaflU 



13 

14 
15 



ELSE "PBD ")#HEA0EfiC63*H-l); 



« SFT QMTT a 



FORGETS? ACE<H)i 
PACKETS ._ 



oa/tniso 7 oo9*»o 

087l«i70 T 099g»2 
0»7lfli99 T OQftaii 



16 
17 
18 



$ POP OMIT 



IF P8DREL OR ORNmESS THEN 
FILEMESSaGfCCIF I thfn '♦pud 



JL_LLS£. 



08714200 T 

087 14201 T 
9 8714^00 T 



0093 « I 
0095 5 
Q0 9 5«Q 



19 
20 
21 



"PBO 
"OUT 



«HMEADERC6H24I6|243, 
" &HEADERt63t30«30«l8n 

'*»0»Q»0< 



08714310 T 009510 
00714 320 T 009510 
08714130 t 009510 



22 
23 
24 
25 

26; 

27 

28 

29 

30 



CP8DREL OR OPNMEiiS)); 



END/ 
END ELSE 



08714340 T 
08714400 T 
Q fl ?l 4f ) QQ T 



0095«0 
0l02»3 



IF HEAOERC73 MQO P80RECS*0 THEN xGET NEW RqW 
BEGIN Hl«SPACEC30); SI»MCHEADER INX NOT 03; 
DlSKtvAITCH^30^Si; 



0Q715000 T 010213 
08715100 T OlulO 
QayiBsOQ T 01 1 610 



HEADERC9 + HEADtRi:93*-*P(DUP)*l]* 

GETUSERDISK(-(PbdrOWS2+1)); 
M[H-»9->-HEADERi:9 3]«-HLADER[9-t.HEA0ER[9]3; 



08716Q00 T 
08716010 T 
08716100 T 



Oil7»2 
Ol20«3 
012310 



31 
32 
33 



M[H+93*HEA0ERE93; 
MI;H"»'73*HEADERC73 + 
OISKWAITCH* 30»S); 



PBDR0rtS2 OIV 3; 



08716110 T 
08716200 T 
0fl7t6^0Q T 



0l28»l 
0l31«0 
Q13 «« 3 



34 
35 

36 

37 ~ 
38 



FURGETSPACE(n); 

end; 



OKI 



bTR£AM(A4-I«.HEADERCHEADERC9 3 + 9 3 + CHEADERE7 3 
PBORECS)X3#D*POINTER.CCF3«1); 
BEGIN SI*LOC a; DS*8 DEC ENOi 



06716500 r 

08716600 T 
08716800 T 



0l36»0 

0136»3 
0136»3 



MQO 



%P 



08717000 T 0136»3 
08718000 T OXHOil 
Q8720QQ0 T 0H3lg 



40 
41 
42 



HEAOERCn*.C*P(DUP)) + i; 
IU0«-(*1413J0100477777; 

END ELSE %% QN TAPE *« 



%P 



XP 



08721000 T 
08722000 r 
08723000 T 



0l44«l 
0l46»2 
014711 



iai*92l3205O0000000&MCPDlNTER INX NOT 13E3M4I43; 
I0REQUeSTCMIAUPHA3>P0 INTER JNX jQD&AiPHAC24l 1 » l3# 

HCPOINTER INX NOT 13>? 



%P 

%P 
%P 



08724000 T 
08726000 T 
08727000 T 



Oi47tl 
OlSiti 
Ol5§tl 



46 
47 
48 



MCT3«-IGD IfsX M tT3iiOC26»iJ6J73&0[l9l 19»13 

IF H t,s3 Then 

BEGIN TERMINATF(PIMIX); 



AND NOT m; 



%P 



08728000 T 
08728500 T 
08728600 T 



0l57«l 
0162'3 
0i63»2 



49 

50 
51 



T£RMlMAtMtSSAGE(H); 



END 



end; 
PBio; 



XP 



09728700 T 0i64»3 
08728900 T 016SI2 
08729000 T QH5^2 






PROCEDURE TIMERELAXERCKTR#TYP£#MiX);a; 



START OF REl , 



SIZE* 0167 WORDS 
03730000 T OOOOJO 
SEfiHE N T; D I S K AD DRESS ^ , 27 1 



55 

56 



VALUE KTR*TYPE*«IX;X 

REAL JtTR^TYPE^MlXl* 

n n fi iN T Esen agPF|i»HT# iQ TfT*Pi#i i i ii 



08731000 T 
08/38000 T 
Qfl73lo0 T 



0000*0 
0O0«l0 
Qt O Q tO 



55 

56 ' 
57 



LABEL SPIT;-* 



08/34000 T OOOO'O 



>T 



DEFINE VCT » 29#/ % CHANGE TIM£ LIMITS 



$ SET OMIT 



VTL » 3l#i X PRINT TIME uiMlTS 
COMMeNTI THIS ROUTINE SHOULD 8E BLAMED ON WWFiilX 
» NQT(fACKETS) 



08734010 
QH/.i402U 



08734030 
08734t00 
0ft7 34tt99 



OOOOJO 

Qogo«n 



000010 
OOOOfO 



10 

11 

12 
13 
14 
15 



16 
17 
18 

19 
20 
21 
22 



23 
24 
2E 

2efi 
v'}i 

28 
29 
M 

ill 

a ; 



33 
34 
3S 
36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
46 



♦7 
•8 



*9 
50 



5' 
52 
53 
S4 



55 1 

5fl '(i 






BUFF * KTR.Cl5U5]-i;X 

IF TYPE NEQ VTL THEN BEGIN; 

STHEAMCiaT^-O^PRT^-O^CGp^^^O AlR-jit 



BEGIN SI*KTR; 
IF Sc«" " 
IF SC*"*" 



IF SC3" " THEN BEGIN Lil SI*SI+1IX 
THEN GO LI end; IF SC"*"*" THEN qO Ls^X 
THE N Q Q l2 ; IF &C<^0^ THEN GO £ylTJ« 



KTR«.Si; L3J TALLY4-TALLY-».i; Sl..Sl + i; 

IF sc2"0" THEN GO l3; si«-ktr; cooe«-tally; 
0I4-LOC prt; us»cooe Oct; TALLY4.o;it 



LSI IF SC*" « then begin L4l SUSl + liX 

IF SC»*» « THEN «0 L4 ENOI IF SC 
IF SC»*'»'* THEN TALLY»1I GO EXiTlX 



H^n 



THEN GO LgfX 



L2J 



3i«-si + i; 

IK SC«" " 
IF sea"*" 



IF SCs" "THEN BtGIN Lfil SI^SI+i;* 

ThfcN GO 1,6 END ; KTR«.Si;X 

THEN flFGiN TALLY«-1J Gi1 EXIT ENQjai 



IF SC<^0" THEN GO EXIT; L7I TALLY«.T ALLYf liX 
5l*SI + i; IF SCi"0" THEN GO L7; DI*- LOC IOT;x 

si»ktr; cqde»tally; ds«-cod£ octj tally»iix 



exit» coqe«-tally;* 
ENQ stream;* 

if not P then go SPIT;* 



PRT * Pxaaoo; lOT * pj^saoo;* 

if TYPE»VXT THEN BEGIN 
: IF PRT/Q THEN BEGINX 



tNp;* 



PROCTIMECMIX] «. *P(DUP)-PRT;X 

JAR[Mix*3J ♦ *p(oup)+prt;x 



IF lOT^fO THEN BEGlNX 

lOTlMEtMIXJ ♦ *P(DUP)-I0T;X 
JARCMIX<43 » *P(0UP)-»IQT;X 



END END ELSE BEGiNX 

IF PRTxo THEi\ BEgINX 
PROCTIMEtMixJ » 



*p(dup)-»jarcmix^3]-prt;x 



JAR[MiX*33 
tND;X 

IF iot^o Then 



* prt;x 
beginx 



END END; 



lOTlMECMlXJ 
JARcMj;X#4J . 



«■ *P(DUP) + JARCMIX^4 j-IUt; 

■ iot;x 



STREAMCTEST*0J X«-JARR0WcMIX3^MIX»Z«-PRT''0»UIOT''0'X 

KjaTYpE«VXTjiTl»TI*GET5pACEClO#0#0) + 2); 
8EQIN DS^LlT ♦' *♦; Z{0S»4 LIT "PRT ^j TALLY^liX 



IC0S4.4 LiT"AnO ")); I(0S«-4 LIT "lOT "; TaLLY*1);X 

US4.8 LIT "ESTIMATE"; ZdCDS^LlT "S''));x 

DS4-8LIT" CHANGED"; K(DI«.Dl-7; DS«-8L IT" EXTfN nEn" 1 ;X 



0i»*5LiT" FOR"; si*x; si*5i4i; os*7CHR; si*si+i;x 
Di»*LiT»/"; o».«.7chr; ds^lit"*"; suloc z;x 

S|»SI*8I DS«.20EC; DS»LIT***"; te§t»tally; 



UU0l-3i 

END stream;* 

IF P then SPOuTER(T 



DS4.FILL; 

INX M[BUFF"1]»UNItN0m3 £LSE 



08735000 
0873600O 
QH7 3 ? 00U 



06^38000 T 
08739000 T 
08740000 T 



0000»0 
0003 M 
Q004»2 



O00«ti 
0007*1 

oooa«a 



067 41000 
08742000 
0B743HOO 



00101 1 
00U«0 

0012' 1 



08744000 
0874S000 
08746000 



00131 1 
0014*0 
0015* g 



08747000 
08748000 
Q8749q00 



0Ul6>2 

0017«2 

M13AZ. 



08750000 
08751000 
08752 Q0Q 



0019«2 
0020*2 
00 21*3 



08753000 
08754000 
08755000 



0023*0 
0023*1 
00 8 3* ? 



087S6000 
08757000 
0ft75an0Q 



0024*0 
0026*0 
0027*1 



08759000 
08760000 
08761000 



08762000 
08763000 
08764000 



0028*2 
003012 
0033*0 



0033*0 
0034*1 
0036*1 



08765000 
08766000 

09767Q00 



0038*3 
0041*0 

0042*1 



06768600 
06769000 
08770000 



08771000 

08772000 
06773000 



0045 » 2 
00«7*1 
0047*1 



08774000 
06775000 
08776Q0Q 



0048*2 

0051*3 
0053*2 



08777000 
08778000 
08779000 



0053*2 
0056*2 
0fl59*3 



0876POOO 
08781000 
Ofl7 ftgQO0 



006113 
0Cj65«1 
0068*2 



0072I0 
0074*0 
007S*g 






08782500 
08783000 
08784000 



..a^iiiiiiawi. 




0076*3 
0077*1 
00 77*2 



0061*3 

6083*1 



63 ' 

S4 

55 

56< 

57 



• • 



rf 

2 

3 

4 
S 



8 
3 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



20 
21 



22 
23 
24 



27; 

28 

29 

90 

31 " 

32 'f 

33 



34 

35 
36 

37 ~ 



38 
39 



40 
41 



44 
45 

46 
47 
18 

19 
SO 
5' 
52 
S3 
S4 



55 f: 

5« * 



Pi ♦• (PKT ♦• P DIV 3600;-60x(PRT ♦• PRT DIV 60)i% 

IF P(JAH[MIX,z<3>DUP)sP3777y7777777 THEN PCnEL) ELSEX 



08768000 
QB7»VnOQ 



006513 
.00.9.1 ».2. 



n «- (lOT * P OIV 3600)-60xCIOT •■ lOT DIV 60);* 

STREAMCX^JArtROWCMIxJ* MXX*PRT*P1 # lOT* 1 1 #8UFF ); 

ptTflTN nS»i7LTT'* TT Mf l>MtTs rnR"; SI*XI Sli-SlfVf DS»7cHRi1i 



0S790000 

06791000 
08792000 



009410 

oioo»a 
Qioitn 



Ps«-LrT*vv si*-si + w ps<'7chr; Ds«-LiT"a"; 5i»LUc mix; 
us«-2Utc; Mix«-ui; ui«-ui-2; os«-fau; OI*MiX; 

l),S«-lOi.lT" AHE; PhTs'S IF SCg"f" THEN 



BESIN Sl«-Sl + 16; DS*aLlT"NO UlMiT" END EUSe BEGINX 
DS«-80£C; 0S*LIT«J"; 0S*20EC; BUFF*Ol; OI*Dl-li;x 
0S*7FlLU; DI»BUFF ENP; DS«-6LlT"; IOT"*'; iF SC****** 



08793000 
08793500 
0879000(1 



T rig N 



08795000 
06795500 
0fl796Q00 



010611 
108 10 



0lll»l 

oiu»o 

01 lot g 



MH 






DS«-10|.IT"N0 LIMIT.*" eUSe BEGIN DS«-8DEC; DS*iIT "I «; X 
0S*2DtC; DS«-2UIT".4."; DI*DI^13; DS<.7FlLl. END; 

stream;* ^ __^ . ^ „ 



00796500 
08797000 

0aO75lQ 



^:lit':li:iiii*fiii«Ji:i^iiiii:).;. 



00798000 
08798500 
Qa799nOQ 



0ll6»2 

oii9ro 
QiaOM 



m 



012012 
012012 
Oi23tn 



PROCEDURE chanGeF"actqr(buf'F/tF); value: buff^t^; real Buff; 



BOOLEAN tF; 

start Of 



Size* 0125 wORDb 

08800000 T OOOO'O 
KEL segment; disk ADdReSS » 00276 



BEGIN REAL FACTOR, B,T; INTEGER TtMP»T; 

LABEL TYPE0UT#EXIT; 
BUFF » ((B»BUFF),n5»l5]«l)&MCP(DUP)-13[9t9t9]; 



IF TF THEN GO TYPtOUT/ 
STREAM(ANS«-0«B J; 

BEGIN si*b; DIALOG b; 



1)S«-8L IT "00000000"; 0I«-DI"2; 



t» 



IF 

if 
If. 



sc 
sc 
sc 



MQft 
My" 



THEN 
THEN 
THEN 



BEGIN 
GO TO 
GO TO 



Sl«-SIfl; 

IF SC < "0" 

IF SC S "9" 



5i*si+i; 
Li; 



GO TO L end; 



Then go TO onechr; 



THEN BEGIN SUSI-U' 0U0I*"2; DS«.2 CHR; END 

ELSE ONECHR) begIn si^si-j) 01*01-1; ds*i chr; end; 

IF SC a '*.** THEN GO TO L2 ELSE GO TO L3; 



H» IF SC " "." 
L2' Sl«-SI + lJ 
IF SC < "Q" 



THEN Gu TO error; 
THFN gu to error; 



IF SC > 

os*chr; 
IF sc i 



"9" THEN 60 TO ERROR; 

"O** THEN IF Sc i »9» THEN OS*CHr; 



L3> IF SC = " " THEN 

IF SC = «*" THEN 

ERROR JDI*LQCANS; SKIP 



GU CONVERT; 
GO CONVERT; 

1 dh; DS4- 10 



set; go TO exits; 



CONVERT; SItLOCB; SI*Si*«; OI^LOC ANS; 0S*4 OCT! 

'ExltSr'.- ,•■■■■••.-. 

; ENl>"S'T.RE.ft.M:J:.. V-.' •'-■■ ^■;: '^ ■^■■' .- .v.- , '■ .- ;.-.■■-. 



PC, FACTOR**); 
IF FACTOR < 

.. C ORE . C^' HJ 



Then go 
factor; 



TO exit; 



sleepcctqgleI'Holomask); 
b * getspace(30*0*0)+2; 

0lSKWAlTC-8>"30«Dt«£CTQRYTUP 



locktogcholdmask); 

SYSNQ); 



MCB+93 * CORE> 

D I SKWAlTCB*-30» DIRECTOR YTOP-SYSNO); 

FURf;ETSPACE(B); 



X CHANGE Factor 



■ai%;<v.i*»iiiiiiiiiiiiiis^ 



WM 



STRFAM(I*(FACrOR«-cQRE,t^5 HJ ) DIV 100» FR* (TEMP*F ACTOR MOq lO0)f 



08801000 
08802000 
06802500 



0000 to 
O0O0«0 
0000 10 



08803000 
06604000 
0r8Q5o00 



0005«l 
0006» 1 
0007»2 



08606000 
06807000 

oflaoaooo 



0009 « 2 
00 10 12 
00 1 1 11 



08809000 
06810000 
Qfl.fl 10500 



06811000 
08012000 
oati3ooo 



0012*0 
00l2«i 

001 3»n 



Oftati 

0014M 
OOlStl 



0B814000 
08815000 
08816000 



0016«2 
0017«1 
001 7 »? 



08817000 
06818000 
08819000 



0018«1 
001910 
0Q19M 



06820000 
08821000 
06622000 



002012 
002111 
0022 »0 



08823000 
08624000 
06835000 



O023»O 
0024*0 
002410 



06826000 
06828000 
08 9 2900 



002411 
0024 » 3 
02 6« Q 



08830000 
08831000 
08832000 



0027t3 
0032«3 
003310 



06833000 
08834000 
QB835000 



0883^000 
08836500 
OgfliygOfl; 



003711 
0039«1 
004H1 



004210 
004ftt2 



08838000 T 0046»3 



• • 



>r 



1 

2 
3 

4 
6 

e 

7 
B 
9 

10 

11 

12 

13" 

14 

IS 

16 

17 

18 

19 

20 

21 

22 



23 

24 

2S 

2« 

27 

28 

29 

30 

SI? 

12 ? 

M 

34 

35 

16 

37 ~ 



40 
41 
«2 
43" 



46 
46 
»7 
•8 
«9 
50 
B1 
52 
» 
54 
55 
56 



MX4.(Tt:wP*-C0RE.[Cr]x64XFACT0R/l00J* 
BETiIN, n.S«-9 HT'TACTUR = 



US«-C0RE,CFF]X64, BUFDi 



SI<-LOC i; DS«-2 OEO I*01j 
DS*13 UIT"> MAX CQHE « "i 



dec; 

p s »7 p ec; 



08839000 

o a fl g n o o o 



END STREAW; 
EXIT* SPQUT<8UFF)J 
End CHANGEFACTORf 



i«-Di^ Di«-oi-7; os«-e fill; oi*I' 
OS* 8 LIT"* USING "; ds«-7 dec; DS«-LIT"*"; 
Di«-Di-6; Ds»6 fill; . 



08941000 
088A2000 
Q88fl3Q0O 



00b0«0 
005412 



009610 
005712 

0QS8K 



08644000 
08845000 
08 8 46000 



08847000 
08848000 
08849000 



T 0060V2 
T 006112 

J 006a»2 



0064*0 
0064*1 
065 * 



PROCEDURE SHEETulDOLERCBUFF^TYpt^SlD); VALUE BUFF* TYPE' SlD/ 



START OF HEl 




WEAL 8UFF*TYPE*SId; 
COMMENT TYPE « 6» PS -- CHANGE PRIDRlTV Of 408 IN SCHEDULE 

» 81 XS ** EXECUTE ^08 IN SCHEDULE (FORCE 3ELEcTlQ N) 



SIZE* 0066 WORDS 
08850000 T 0000«0 

SEfiMENi; DISK ADDRESS > n0279 



= 7« ES -- ELIMINATE JQB FROM SCHEDULE 
,: 5} TS -- TYPF nUT SCHEDUl E^ 



CFURCE 

Then 



selecTiun, 



BEGIN REAL 100* T'PRIORI TY; 

INTEGER LEVEL*NEXTLlNK*THlSLlNK*LASTmNh; 
INTEGER ES*EM,EH; DEFINE £T » EH<t; 



SET OMjr » NQT(DArACOM ) 

BOOLEAN uASTPA5SED*ATlEASTDnE; 
ARRAY SC*]*DLNK[*]; 



SET OMIT = NQKPaCKETSJ 

LABEL C0NTINUE'Ci*ReAdIN*GNX*TS*TSI*TS2* 
XSES*ESlL,PS*PS1/PS2*SPiT*EXIT; 



SUBROUTINE GETNEXT; :i READS IN NEXT JOB SHEET ENTRY 

BEGIN 

CONTlNUEt LASTLINK «• THISLjNKJ 

IF (Thislink*mxtlinK) 



Cll 



if (LEVEL«-LEVeL*l) > 
BEGIN LaSTPaSSEO ♦ 



^ THEN GO 

mixmax then 
True; go to gnx 



TO readin; 
eNd; 



readin» 



LASTLINK *■ inEXTLINK <■ O; 

IF (THlSLlNK«-SHEET[LEVEL3,CCFi) = THEN 0° TO ci; 

DlSrtIC(lOD,-(S INX 0-1)#30,THISlINK); 



SLEtPc[lQD3* lOMASK); 

NEXTLINK ♦• S[29J; 

IF S£0].C36:63»ei4 THEN 



GO CONTINUEiXPASS LH ENTRY 



GNXJ 

END getnlxt; 

SLEEPCtT0GLE3*i>HEETMASK)j 



LOCKTUG(SHEEtMASK)j 



S *■ CMCGETSPACE(3l*2*0)+23H3o£8t38ll03; 
LEVEL ♦■ -1; LaSTPaSSED * false; 

TF BUFF/O THEN 



BUFF ♦• (CT*8UFF) , [lb: lb]-l)«.M[P(DUP)-l] [919193; 
SET UMIT a NOTcDaTaCGM ) 

IF TYPEr.5 THEN 60 TS> IF TYPE GTR 6 THEN GO XSES; GO PS; 



Ts» atleastone «• false; 

TSII CETNEXt; IF LASTPASSEO THEN GO TO TSgJ 
IF SIQ NEQ 63 THEN BEGIN IF SC33, [81103 NEQ StQ THEN GO TSl END ElSt 



IF ATLEASTONE THEN BUFF , [ CK 3 *GE TSPACEC 1 2* 0* )+2 ; 
ET*( C CLOCK +P(HTR) )/ 60 )-SC233, [241243; 
ES «• ET MGD 6O; ET » FT DIV 6O; EM » ET MOD 60; 



EH » ET DIV 60; 



oeasoioo 

08850200 
06850300 



0000*0 

ooooto 

OOOQtO 



08850400 
08850500 

o a e soaOQ 



08851000 
08852000 

Ofl 852500 



000010 
OOOO'O 
OPOO »iL 



O8852599 
08853000 
O fl flSAQO Q 



0000*0 
0000*0 

Q COQtQ 



OOGOiO 
0000*0 
0000*0 



08854fl99 
06855000 
0B856Q00 



0000*0 
0000*0 
0000*0 



08858000 
08859000 
OB86Oq,O0 



O886O5OO 
O886IOQO 
08862000 



0000*0 
0001*0 
O 0Pl * 



08863000 
08864000 
06865000 



0«0l*3 
0003*2 
0005*1 



0007*0 
0008*1 
0010*3 



08866000 
08867000 
O666800O 



T 
T 
T 



08869000 
08870000 
08880000 



0013*3 
0015*1 
0016*1 



0018*1 
0018*1 
0018*2 



08881000 
08882000 
08682050 



08882500 
08882599 
08883000 



0027 »2 
0031*1 
0033*0 



08884000 
08885000 
08865500 



0033*3 
0038*3 
0036*3 



004t*3 
0042*2 
0045*0 



STREAMCTU*S£233«C9«43*8UF*Sc233ai4*43* 

RT»»St2l3,C9*«3 NEQ 0*C»»LEVEL* Jl*«CSt03 tSS 0) 0R((CSC03 EflV 

'*Ll§MAlN**>»t)iaT aiANDttSc-U EftV «tOI8K "XwNOT 0) ?>>J2»S t273* 



08886000 
O88863OO 
08886600 



0048*1 
0052*1 
005511 



J*S[*],lD«-o[33,Ctt« 103,EH*F.M,£S,A*-S[203x64*BUFF); X 



OBiisrooo 

08887001 

QBgeroiQ 



0960*1 
006212 
0-06S«3 



08887100 T 0069*3 



_!? 



h 



12 
13 



16 
17 
18 



19 
20 
21 



24 
2S 
28 



28 
29 



31 
32 
33 
34 
35 
36 
37" 



38 



40 
41 
«2 



43 
44 
46 



BEGIN 



SI«-L0C 

OS«-U . T' 



c; 



DS4-6 DEO Dl«-DI-6; 0S*5 FlLli DI*'QUFF } DUUI+6; 

^ suj; susn-i; ds»7 chr; Ds*Ln^/»; si»st-»i; 



RTfDS«.6 LTT ** FROM "J Sl»LQC TU; OS<>g OFCi X 



DS*i LIT "/'•; si^Loc buf; ds*2 dec;); % 

on*-? tiT" IN FOR"; SULOC EH; 

3<"S > UT"iMj ps»2 ot:c?; £ S* &i; 



jiiti 



DS*8 



;ilfMy:WEE.o'S- "1: 



DI«-DI*9; ps«-8 fill; 



■■■ffiiiliii*': ,,„„ ,„,. 



SPQUTeRCBUFFMF SIDX63 TH£N UNITNO ELSE OM); 
IF SID NEQ 63 THEN BEGIN TYPet«5;G0 EXIT END; 

atleastqne»true; 



TS2« 



IF SID NEfl 63 THEN 



TYPEt»5 ELSE* 



XSESJ 



stream(buff); ds *• 15 ht 
spoutcbuff); go to exit; 
getnext; 



NULL SCHEDULE***;* 



%WF 



AL 



IF LaSTPaSSEO then begin If BUFFXO THEN SPOUTCbUFF); 

GO TO exit; end; 
st33.C8«i03^siD Then go to xses; '^_____ 



SET OMIT s N0T(0ATAC0M ) 

SC2],CIS2]»=CIF TYPi-ad THEN 2 E^Se 
DISkIQCIQD^S INX O-UiO.THISLINK); 



GO TO SPIT# 
PSt STREAMCPRIORITYIT); 
BEGIN SI»T; 



3); % /"Es^e-'xs 
Sleepcciodj^iumask); 



N< 



K) 



IF 

IF 
IF 



SC*"*" 
SC<''0'* 

SC>'*0'! 



THEN GO TQ X; 

THEN BEGIN SUSI + i; 

THEN IF SCS"9" THt:N 



GO TO n; end; t*si; 



XL 



yESiN TALL¥*TALLY*tl 5I*SI*U GO TO K ENO; 
Si*T' 0I*L0C P«ldRlTY; T*TAUV> OS«.T OCT> GO TO H 

di^lOc priority; skip obi DS*ti set; 



2: 

END stream; 

^^ CPHIQRITY«-P)<0 



THEN BEGIN SPOUTCBUFF); GO TO EXIT END; 



PSII GETNEXT; IF LASTPaSSed THEN BEdlN "SpfiUTCBUFF ) ; 60 To EXIT EnD; 

IF scsj.canojxsiD then go to psi; 

QELTNK ANn RELINK THIS ShFFT ENTRY 



DLNK ♦ CM[GETSPACEC31,2*0) + 2])&30[8«38a0J; 

IF NEXTLINK s THEN SHEET ELtVEL ] , IFF J ♦ LASTLINK; 

IF LASTLINK » THEN BEGIN SHFETC LEVEL 3 . CCF T* NEX TL INk;gQ P.s2 END; 



46 
47 
18 

49 

SO 



PS2J 



OlSKieciOO'-COtNK INX 0-l)»30fLASTLlNK); SLEEP C C I0d3 'JOMaSK); 

0LNKE293 * NExTLINK; 

DlSKlQdOO^'t-tOLNK INX 0" 1 ) QO^LASTL INK ?; SLEEP C [ I0D3 > lOMASK); 



S[2],£CF3 ♦ IF (SCI834-PRIOHITY) > 
LEVEL «■ IF PRIORITY > MiXMAx THEN 
IF SHEETClEVEL3.[CF3 ^ THEN 

:.'li»li}sitii»iiiif i^*''€iiiif S'lii^' ^ Q-i'X*ii*ii*i»iiEVEL.3 * i ff j j ; 



32767 THEN 32767 ELSE PRIoHITy; 
MIXMAX ELSE PRIORITY; 



a 



DLNKE293 » THISLINk; 



54 






DISKIOCIQd*+CDLNK INX 0-1)'30*SHEETCLEVEL3,[FF3); 
SLEEBctld03#I0MASK); 

ELSE sheet[leve:l3 » thisljnk; 






forgetspacE(Dlnk); 






08888000 
OflflS^QOQ 



08690000 
08ft90QlO 
QflB9QlOQ 



007312 

00/5?0 



08690200 
06891000 
08892000 



007710 
0079H 

QQfl OH 



0082(1 

0083*2 
008510 



06893000 
O86990O0 
QflgQQOOO 



08901000 
08901500 



008710 
008812 

Q09oyn 



08903000 
08904000 
08904050 



0090«1 
0091 «0 

SMMM. 



00«6I3 
009711 
009811 



08905000 
08906(300 
0R910nQQ 



08911000 
08911050 
06912000 



OlOOM 
010410 

105 M . 



08912099 
08913000 
08915000 



T 
T 



010610 
010813 
P3 1Q9U 



t 
t 



08915100 
06916000 
06917000 



Olll»l 
Olll»l 
011513 



08918000 
08919000 
0R9g0Q0Q 



012010 
012012 
l 2 l»3 



08921000 
08922000 
08983000 



0l22«0 
012213 

0124»0 



T 
T 

-I- 



012910 
012SI3 
12 711 



08924000 
08925000 
0fi9?60Q0 



08927000 

08928000 
Oa039nOQ 



012810 
0l28«0 
QlZflM 



013110 

0134»0 
OtSAtf) 



08930000 
08931000 
OP932Q00 



06933000 
08934000 
08935000 



013610 
0139«3 
l43« 



0146*3 
0l5l»l 
0l52»g 



08936000 
08937000 
O p93 8QO 



08939Q00 
06940000 
08941Q00 



0l56»3 
0161* 3 
0164*? 



08942000 
08943000 
8944QQ , q ; 



0166*0 

oirotz 



08944900 
06945000 
0a9«^0QQ 



017311 
0177*0 



iliiiiii 
Q iaan 



08947000 T 0190*2 



56 ' 

i-: 57 



h 



SPIT« IF BUFFXO TH£i\l 
$ SET QMTT ' NQTCPACKETS? 



FORSETSPAceC«UFf )J 
EXITI UNUOCKTOSCSHEETMASK); 
FORQETSPACECS?; 



0894/100 



08947600 
08997000 
08998000 



019112 
04921 4 



0}.92»l 
019312 
0l97tq 




IF TYPEXb THE^ BEGIN 



KErBDARDCQUNTER 
SEUECTIQN^ 
KEYBUAi^OCOUNTER 



*. keyboardcuunter-i; 
♦• keybuaRdcounter-»i; 



08996200 T 

oe998aoo T 

0fl996/s00 T 



0l98»0 
0200 » 2 
02QU-^ 



end; 



End SHEETOlOOUERi 



Q6996800 T QaOSXO 
08999000 T 0203tO 

SllFJ> QgOa WORDS 



10 

11 

12 



$ SET OMIT » NOT(0CSPO AND 
$ SET OMIT a NQT(Qli»KLQG) 
PROCEDURE WHATlNTRNSlCCBUFFjj 



DATACOM ) 

VALUE buff; 



REAL buff; forward; 



08999999 j 0000«0 
09299999 J 0000»0 

09^0qoqo T QOQ O»Q 



13 
14 
15 



$ SET OMIT « NQKAUXMEM) 
PRQCEPURE INTRINS1CTABLE9UILDE«(FH)J 



START Of REL 



VALUE fh; real fh; 



seqI^entj disk 

09400099 
09300000 



ADDRESS • 
T 0000 »0 
T QOOQIQ 



00^86 



16 
17 
18 



START OF REL 



BEGIN 



CALLED WITH FH= C-p^ TRANSFER TO AUXMEM ONLY 



REAL DISkAD0R= + 1'T3 + 2*inTL0C**3*T17Si2E'»*4^MAXINT»+S; 
S SET OMIT = NOT{AUXmEM) 

P(0i> c* Q* o» 0); 



segment; OjSK 
09500500 
95005 10 



ADDRESS « 

T 0000 ?0 
T OQQ0 »-O- 



00286 



19 

20 
21 



095QA0PQ T 0000«0 
09901SOO T OOOOtO 
. 0950<ts7Q T O QQO*0 



22 
23 
24 
25 
26 
27 
28 
29 
30 



IF (TJ=FH.[FF])*0 THEN T:sSPACEC30); 
$ SET OMiT s NOT(AUXMEI^) 

ni.«;KWATT(-T> 30> DISKAOnRisMLFH TNX lOl^i 



095o5oOO T OOOl'l 
09505100 T 0005«3 
095 5500 T 0005 «3 



MAXINT t» MET3 + i; « NUMBER Of 
T17SIZE «« MtT INX l/l.tSMOj + i; 

FORGETSPACE(T); 



INTRINSICS 
X InTr,#17 



+ I 
SIZE+1W0,F0H 



diSk.audr. 



09505600 T 
09505700 T 

095057 S0 T 



000910 
00ll»0 

Qou»n 



INTRNSc«=tMClNTL0ClsGET3pACECMAXlNT + Tl7SlZE^0*n + 2] j& 

(MAXIiMT+Tl7SI2L)[8»38: lOi; * 3PACE FOR INTRINSIC TABLE + INT,J»17 
PI SKWAITCUNTRNSC jNX Q }> MAX INT. D ISK A D Dft? ; 



09506000 T 00U«3 
O99O61OO T OOIB'O 
09506*^00 T . 0Q2 Q» 



31* 

32 

33 



MCINTRNSC INX NOT 01 l« 0^ MAXJNT 1= MAXINT -i; 
FOR T I" 1 STEP 1 UNTIL MAXJNT DO 

INTRNSCCT3t«NABS(CP(*PCUUP).DtjP),£8tlQ3*lNTSlZE) & 



09507000 T 
09507500 T 
09506000 T 



002211 
0026t0 
002710 



34 

35 

36 

37^ 

38 

39 

40 

41 

42 



(PCXCH) IMX + DISKaDDRU6«21J273?; 
DISKWAIT(-(lNTLaC»=:lNTL0C + MAxlNT*2),(Tl7SnE' 
TKTRNSCC173 I' (*PcQuP))<vrNTL0C[CTC3; % MARK 



n»iNTRNScu7],c6:iin); 

PRESENT 



O95O85OO T 002911 
09508600 T 003ftll 
OO-SOfl/QQ T Q03fl»? 



MClNTLOC-n«»0«(T17SlZE-nCCTF3; 

0ISKADOR»30«il[4U7»lJ^ 
INTRNScC23i«*B(DUP) OR DISkADOH; 



X DUMMY MARKER FOR DUmP/ANAlYzE 



09508800 T 0040»2 
09509000 T 00*3*2 
09S09«^OQ T 004511 



FOR T»Bl8 STEP I UNTIL 2o DG I NTRNSC t T 3 J**PC DUP ) OR DIsKaOOR; 
SET QMlT = NQT(AUXMEM) 
INTSIZE»s(INTHNSCEO] -» 3 ) D I V 4; 



O95IOCOO T 
O951O5OO T 

0953<*50Q T 



0047M 
0052«1 
00 5 2 »1 



45 
«« 
47 
•8 



S SET OMIT « NOT(PaCKETS) 

END INTRINSIC TABLE BUILDER) 



PROCEDURE CHanGEInTKInSIcFIlECBUFF); 
BEGIN REAL A»B^ lOD> I * J»K#L; 



09534999 T 0054 «1 
09537000 T 0054»1 

StZE* 0055 WORDS 



VALUE buff; real 



bUFF;x 

START 



09600000 T 0000*0 

OF KEl segment; DjSK ADDRESS »» 

^__ 09601000 T OOOOIO 



00288 



49 
SO 
51 
52 
53 
54 
55 
56 



REAL FH#T*It; LASEi EXI T#WI tHQUT; 

REAL SI2E»I*OISkADO«*T»U0C'»IT>WI«j; 
BOOLEAN SUBROUTINE NULiMix;* 



09602000 T 
09602100 T 
09603000 T 



0000<0 
OOOQtO 

ooooto 



BEGIN PBLlSHCn;* 

IF INTSIZE;<0 THEN 

ra« 1*1 STEP 



BEGIN INTSIZE ♦• O;* 
1 UNTIL MIXMaX pox 



09604000 T 
096o5o00 T 
09606000 T 



MM 



S;^MIMIilillii:ii«»il 



•fiOi 

ii 



■»»tySTEM't; 



JOB 



09612000 T 



ooono 
oooni 

0003 «1 




55 

561 
57 



UTTTTT 



2 
3 
4 
B 
6 



end;x 



P^LISHiX 



09613000 T 001<J»1 
09fll^nOQ ,T Q.D.l.Ct.4. 



END NULLMIX;X 

SuBKDUTINE FQRGETEM;* 

BEGIN SLEEPCCTOGlEJfSTUREMASK?/ LQCKTOQCSTOMMASK >; 



09615000 T 0014* 2 

09616000 T 00i«t3 
09617QO0 T 0,01510 



WHILE (t« *■ MCL]).[CFJX0 OQX 
BEGIN IF K>0 THENX 
IF K,C3! 12] = P700 THENit 



09618000 T 
09619000 T 
096 20 000 T 



OOZO'O 
0023>0 

0023' 3 



FORGETSPACE(L+a);X 
♦ K.CCF3;X 



ENo;x 



09621000 T 002512 
09622000 T 0027«1 
Q96g3Q00 T 0028 «? 



10 

11 

12 



UNLOCKTUGCSTOREMASK); 
$ SET OMiT » N0T;AUXMEM) 

FORGETi>PACE(IMRNSC 



INX 0); INTRNSC»0 



09624000 T 002910 
096 24010 T 00 3212 
09624100 J 0032»2 



13 
14 

15 ■: 



END FORGETEMiX 

DEFINE ERROR » 60 TO EXIT*IX 

SLEEPCCT001£3> FREEMASK); 



INTFREE » FALSEIX 



09625000 T 00)410 
09626000 T 0035»0 
006^0000 T QQ3SI0 



16 
17 
IB 



T ♦• OUFFJ* 

NAMEIJ{A,T); NAML10CB*T); NAMEIDC 8* T ) ; I 

I F , (FH;«'DlHEC TORYS LAHCh(A^H ^ ; 7 j? = TH^ N fRRQR^ 



09631000 T 
09632000 T 
09633000- T 



004013 
0041 « 2 
0044 «P 



19 
20 
21 



IF CJ«-MCFH + 43,t36»6])X0 THEN 

IF j^dcintype and jxtssintype 

BE GIN at UONT allow CI DN KNtQWM 



THEN 
NPN'INT RIN SIC S TI lE 



09633100 T 
09633200 T 
0963 3 30Q t 



004711 
0050U 
00 5 2«? 



22 
23 
24 
2S 
26 
27 



STBEAM(A/B*M1« = BIFF,C15M53-1); 
BEGIN DSJ.2LIT"* "i &I«=LQC A; 

■ ^itg siti i [,)S;»7ChFi/ ns>=LiT"/'*i 



09633400 T 
09633500 T 
09633600 T 



0053»0 
0055»l 
056 »0 



SlJsSl+i; DSJ*7 
Ubta24 LIT" NUT 



chr; 

an intrinsics 



FILE*"; 



ENDi 



09633700 T 
09633800 T 
QftA 33900 T 



005710 
0057»2 
006013 



28 
29 
30 



fqrgetspacecfh); 

fqrgeti)pace(directqrysearch(a'bm6)); 
errq h; 



09634000 T 0061«0 
09634100 T 006H3 

0963^100 I flill|2 



31 

32 

33 

34 

3S 

36 

37' 

38 

39 



074276 30 



ACCIP ENTA I, 



end; 

IF NOT HULLMIX THEN COMPlExSLEEP< NULLMI X); 
ENTRY AT NULLHIX 






IF lNTRNSC/0 THEN 
$ SET OMlT » SHAREUISK 

IF MCPFREE=0 THEN 



forgetem; 

SLEEP CCTGGLE3»MCPMASk); 



09636000 T 

09636999 T 

09637000 T 



0Q72»0 
0075»0 
0075 »0 



LQCKTOGCMCPMASK); 
$ POP OMIT 
T*^G£TSPAC£(30>0#0J*2; 



09638000 T 0078»1 

09638001 T 0081»3 
0963 90Q Q T QQ ai»3 



40 
41 

•2 



DlSKWAlT(-T'-30>0); 

UsT + 13 + 5xS¥5N0) 

IF CIT^aDIREcT0RYSi-ARCHC^^Ll3*M[I■^^l]#16nx0 



THEN 



09640000 T 
09641000 T 
09642000 T 



008410 
008513 
0088*0 



40 
41 ( 
42 



FORGETSPACECITj; 
M[I*13>«B/ 



0964 3000 T 0092 il 
09644000 T 0093' 2 
09645Q00 T 009510 



t6 
«8 



DlSKWAlT(T*-30i»0); 
$ SET OMIT * ShAREDISK 
UNLQCKTOGCMCPMASK); 



09646000 T 0097»0 

09646999 T 0C98«2 

09647000 T 0Q9a »2 



«9 

50 
51 



$^»op.:,..QMif- ■^■mmjm: 

$, :se T.^^,»«i*:::M?iiiiwi.)^Mi:ii)« 



09647001 T oioato 

09*47999 T 010**0 
09648800 T QJOSiQ 



S2 

54 

55 V 
56'- 



intrinsictablebuiluercfh.ccf]); 
forgeTspacecfh); 

WHATINTRNSlC(BUFF,Clb»l53); 



£151153*1); 

islPii 

filE^ on 



09657000 T 
09658000 T 
09659000 X 



Ol02t3 
0104 to 
0;04«3 



iillil 

tSSitffiSMSft', 
"fNDCHTNtfNG 



iiipiiiili 

TnT 



!iisiii^v:^iil«ii*ti:: 



*•; 



"uIeR DISK With MANY PRECAUTION*;* 



•Oltpiiigf''': 

09679000 T 6ll2»3 



0l06»0 
0l«9»l 



57) 



• • 



>r 



PRQCER URE CHANtiFMCP( BUFF ); vAl UL HUFF ; REAi RUfF 



BEGIN 

REAL 



mmm^iBrnM^.: 



LA8EL exit; 

ts=bufk; 
KAMb:m(A*T){ 



Size* oiu words 

096791Q0 T QOQfl>n 

START OF REL SEqMENT^ OiSK ADDRESS • 00292 

09679200 T 000010 
Q96793Q0 T QSliUllIi 



NAMEIDCB.TW N AWE I n t R. T 1 ; 



10 



SET OMIT » SHAREOISK 
IF MCPFREE*0 THEN SLEEP ( [TCGLe3 ,McPM ASK ); 
I n(!KTnfif MCPMASK); , 



12 

133 



POP QMIT 
ZS «GET3l>ACEC 30/ 0*0 +2; 



# 



IS 
16 






BEGIN 



18 



19 
20 



IF (T8 



!DlKfeCTDRYStARCHlA*Bvl7))»0 ThtN 



21 



STREAMU» = CA]*T!s8UFF,[15» 153-1 >j 
BEGIN 0S»«fl3 L1T"*N0 MCP FILE "i SH «A; $1 1 «sSI*U 
PSla? CHRJnSl-LTT'*/";STI«ST.HJnSti»7 CWRJ 



24 
25 



us«-Ln"^'V 

end; 

GO TH exit; 



2< 
27 
2S 



ENOl 

IF (nTi«-m£T+4].C36»63)X0 ThEN IF NTl^MCPTYpE THEN 

BEGIN it DOM Al 1 DW CM HM KNiQwM M QM^MCP FIIF 



30 



STHEAM(Al«£A]#T!*BUFF.Cl5Jl53-i)j 
BEGIN OSlsaLiT"* ** i 51 « «A; sn = 5i*i ; 

USt=>7CHR> nStsLTT'V; i3^lsSj*\i 



33 

34 
35 
36 
37" 



B5la7CHR; DSI»12lIT" 

End; 



NOT AN MCP*"; 



rO«GETSPACEcDIRECTURYsEARCH(A*B#i6)); 

GO TO exit; 



end; 



36 

39 



IF MtBA5E+23-2^McPBASE ThEn 
FURGETSPACECOlRECT0RYSEARCH(Mi:8ASEJ*MCfiASE + l3*I6)); 

mcbasejisa; 



$ SET 



M[BASE + n«=B; 
M[BASE+2]:=M[T+10]; 
OMIT a NQTCAuXKiEM) 



45 



forgetspace(T); 
end; 

STREAM(Ats[A3»T8«BUFF,[ iSllSJ* 1 ) t 
BEGIN DS»»18 LIT 



47 

48 



NEXT MCP WILL BE " ;b I I* A;b I « sS I + l ; 

DS!«7 chr;ds:5lit'V";si : = si-h;ds»s7 chr; 
ds«-liT"<-"; 



49 

50 



End; 

Me33«-NA8SC*P(DUP)); 

exiti 



X set flag for wm 



54 



diskwaitcz*-3o-po^; 

SET omit * NQTcNOT SHAREDISK) 
UNLDCKTOG(MCPMASK); 




09679^00 
09679800 
09 67990 Q 



OOOOIQ 
000010 

Qoo?«n 



09679999 
09680000 
096flQlQQ 



09680101 
09680200 
09680300 



000510 
0005»0 

oooaii 



09680i(00 

O968O5OO 
QQftftOAnn 



00ll«3 
0CU»3 



001513 
0018*0 
0030 M 



O968O7OO 
09680800 

0968090 



09681000 
0968U00 
096fil?QQ 



002311 
0023«3 
00261-Q- 



09681250 
09681300 

096817)00 



002612 
0028«2 
.0031*0 



09681500 
09601505 
Ogftal^lO 



0032«1 
0032»3 
0033tO 



0QJ5I0 
003510 
00?9ll 



09681515 
09681520 
0968 1921^ 



09681530 
09681535 
Q96R154Q 



00 39 « 3 

004113 
0042*3 



004113 
0<J«5*3 
OOflAtn 



09681545 
09681550 
096fll«,5-^ 



09681600 
09*81650 
09681700 



09681800 
09681900 
09681909 



0046*3 
0048*2 
049 * 



0049*0 
005112 
0055*3 



0057*1 
0059*1 
0062*2 



09682000 
09682100 
09662200 



09682300 
09682400 
09682450 



T 
T 
T 



006212 
0063*1 
096311 



0065*1 
0068*1 
0069*2 



O9A825OO 
096e2!^50 
09662600 



0070»0 
0070*1 
0972*1 



09682610 
09682619 
09682620 

" ! . ' ' ' ' ■ ' ". ' " • ■ • ■■ ' ■ • I ' ' ,. ' .. ' »■ ■ ),», ' I ■ ■ ■ ■ 



0072*1 
0073*3 
0073*3 



09< 



0076*0 



09683100 T 0079*3 



i;^ 



12 



17 
18 

19 



23 ' 



27 
28 
29 ( 
30 



33 
34 
35 I 
36 



38 ' 
39 



41 ' 
42 



46 



50 ' 



52 



56 ' 
57 



>T 



BOOLEAN PRUCEDUHtL SYSTLMF ILl. CA.B ) ; VALUE A>B; REAt, A^BiJ 



SlZE= 0081 wORDJ) 
Q970Q0Q0 T 00001,0 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



BEGIN LABEL Dl SK^ LOG » TRUTH* DlR# SYS# REM* UECK^MASK* TEST; 
LABEL nMPi ___^_____________^ 



START OF REL 



SEGMENT) DISK ADDRESS « 00295 
09701000 T 0000«0 
Q 97015QQ T Q0QO»n 



LABEL maim; 

$ SET QMIT » NOT(STATISTICS) 

n£F lN £ T"PnRUTH))>j% 



09701550 T 0000»0 
0970159<; T 0000*0 
0, 970 20. 00 . T QOO OfO 



ir (B EQV PC0ISK5}3T THEN* 

P((CA EQV P(OIR))»T) OR 
itk EflV PfLQfinsT) QR 



09703000 T 0000»0 
09704000 T 000112 
Q9rQ4lQQ T QOQ U l 



((A EQV PCDHP)J«T)3 
ELSE IF (B EQV P(LOG))*T THENV 
PU U EQV PCSYS??«T J 



09704500 T 0004«3 
09705000 T 0006 «0 
09706000 T QOQfl« . 



13 

14 



15 



S SET OMIT a 



SHAREDISK 

OR ((A EQV 
OR ftA FQV 



PCMAINT))»T)» 
PCRFMllaTil 



09706049 T 0009*3 

09706050 T 000913 
0970<StOO T OOtt to 



$ POP OMiT 

» SET QMiT = NgTfS hARE DI SKJ 



)* 



ELSE IF (A EQV PCD£CK))*T THENX 

PCCCB^NO P(MASK)reQv PtTEST))«T)X 
it. SFT QMTt * MflTfSTATlSTTnS^ 



09706i0l 
097061 50 
09706x99 



0012 » 2 
0012»2 
00 12 < 3 



09707000 T 0012<3 
09708000 T 001412 
09708099 T 001613 



23 



26 

28 
29 



M 
31 
32 
J3 



D ISK 



EtSE P(0);* 
PCHTNJ;* 

;;t "DISK 



LOG lU 

Truthmi 
JUR LLL 



"LOG ^;X 
«?3777777777777777i» 
•*0IRCTRY"J» 



09709000 
09710000 
097U0QQ 



SYS 

Rem 
DECK 



: i : 
1 1 i 
; i : 



"SYSTEM 
"REMOTE 
"DECK 



";% 
";j; 

" ; % 



09712000 
09713000 
9 71 506 



00 16 » 3 
00 17 « 2 
0017' 3 



MASK ;U P77000000007777;X 

Test :t: «»iaoooooooo37i4;x 

DMP Ml "QMPARLA";* 



09716000 
09717000 
97 19 000 



001910 
002010 
0021*0 



002210 
0023»0 
00 2 )» «0 



09719000 
09720000 
O972QS00 



0025»0 
0026(0 
0027*0 



34 
35 
36 



MAINT: » 
SET UMIT 

end;x 



"MAINT ";X 
= NQTCSTATISTICiJ) 



09720650 T 0028*0 
09720699 T 0029*0 
097 21 000 T 00 29* 



37 
38 



$ SET OMIT » N0T(0E8U<iGlNG) 
S SET OMIT g NQT(WQHKS£T); 



SIZE* 0030 WORDS 
09999999 T 0000*0 
lP2Q0n0Q T 0000*0 



«o 

41 
42 



45 



REAL PROCEDURE PRnPbTSPECASE 1 C ^i ) ' 



% 
% 

% 



THIS PROCEOUHE HAnOlES THE FOLLO^^lNG FUNCTIONS FOR C0M19> DEPENDING 

ON THE VALUE OF. It 

FINDS THE NEXT REEL OF TAPEt 



12500000 T 0000*0 
START OF REL SEqMENt; DISK ADDRESS « 00296 

12500100 T 0000*0 



12500110 T 
12500120 T 
12500130 T 



0000*0 
0000*0 
0000*0 



46 



49 
50 



52 



55 

56 ) 



% 1 FINDS THE NEXT REEL OF A BACK-UP DISK FILE. 

X 2 HANDLES THE OT ••• OR - MESSAGE. 

% 3 INITAILIZES A NEW FILE COR PACKET). 



X 4 
X 

Value 



z; 



HANDLES TERMINATION OF A FILE, 

REAL z; 



12500140 T 0000*0 
12500150 T 0000*0 
12500160 T 0000*0 



BEGIN 

REAL 
ARRAY 



12500170 
12S00180 
12500500 



ARRAY 



RCWsfO' MSCW*-2» C0MMCN»*4* 

INRECs->-i[*3j 

rfiiiiiliiii#|iii:v;'j^Wliiiif^^ header»uoginfo+i c* 3; 

i^m^MMmmxmx^xmm^mmmmm *i' mfio«copy4i» fio^mfid+i' 



REAL SEARCHVALeB+1* CURROW^SE ARCHV AL+1* Fl RSTF ID=CURR0W+ l# 



12501000 
12501500 
12502000 
12502500 
12503000 
it2SQ3S0Q 



0000*0 
0000*0 
0000*0 



0000*0 

0000*0 

0000*0 



oeooio 

0000*0 
OQOOIO 



12504000 T 0000*0 



• • 



10 

11 

12 
13 
14 
IB 
16 
17 
18 
19 
20 
21 
22 
23 



24 

26 
I 26" 

27 

28 
I » 

30 

31^ 

I 32 ; . 

33 

34 

I 35 

36 

37"" 
I 38 
39 
40 
41 
«2 

43 "" 
44 
46 
t« 
•7 
•8 



•9 
50 
51 
52 
i3 
>4 
55 

5fl : . 



REAL 



SEGN8»FlHSTFID+i; 

X: »SFARChVAL* NUMsrijRKaw. RFrOUKlT.SFKMR; 



BOOLEAN SIGnEDON-SEGNR+1, FOHMTOG«SlGNEOaN+ 1/ A80RT£D»FORmTOG+ U 
BOOLEAN TERmFLAQ«LQQINFO* N0CONT«riRSTF ID j 



BOOLEAN TERmFlAQ«LQQINFO* NOCONT«FIRSTF IDi 
SET QMTT 9 NflT PaCKFTS 



SET OMiT = PACKET S 

REAL pfirstfidsfirstfid*>copy = cdpy; 

SET QMTT e NOT RJE QR PArKFTS 



Label 



LABEL 



SWITCH 

dffinf 



RO' Red* spacend' nomore* nofile* aut* bOmbeR* nextfile* 

PNCHLK^ PRlNTHAGAlN* EQF, PRnTDS, PNCHdS. TAPEmD. COmT INuE. 

RtTuSNFALSE^ REMOVtM* TEST* TAPECL* STOPTlME, RETljRNTRUt* 

RETuRNT0CnMi9; 

LOOKaTAPL, NOMOHEELS* QTSPEc/ INITIALIZE* STARTANEWFlLJi 



SW f« 



an 19 

L00K4TAPE, NOMOREELS* QtSPEC* INJTIALUE* STARTANEwFIlE^ 

SMJl » (T£RMtX.C(iF3i»PiMTXl»> 



QTtO 

VF 

UNITE 



CDPYF 

NUMF 

NnTP 



= (PRT[Pl^^IX#e'25]^0J*» 

s 30*6#* 
» 2218** 
* pqM<(* 



$ SET OMIT 



CQPYO 

3 PACKETiJ 

RE M I ND 



S 
$ 



SET OMIT 
SET OMiT 



a NOT 
« RJE 
STA 



Packets 



' 21S1*' 
30 » 1 8 g * 



» 0»f 



$ POP UMjT 

SEPARATION = U6»} % FOR 6 LPI« SET IT TQ 70 FqR 8 LPI, 

%**^'*^l^'**********^|*^'******^l^,ii^,*^,**^,■k*^,^,^,■k^,■^,^,^,1,^,i,^,i,■k^,^,^,^r^,^,^,^,^,^,1,^,^,^,^,^,^^,^,^,^, 



SUBROUTINE RDYTaPE; 
BEGIN 



ENDi 



B»C18»9]:=6'5a; ~~~ 

P(WAlTiO(PiiilOOOOOOOO*C*UNiT )'DEL); 

P(^^AITlOCb*Q*uMT)*>^AlTlO(e*g4o*uMT)*DEL*QEL)* 
REC0UNT»«P7/777; ^ ._____,__ ^ __ 



%********«<lr***tf[r** 



**************************************^,*jk***j^*^*^*^^^^^ 



SUBROUTINE RE»^1^^; 



BEGIN 



ST0PTIMIN6(0*1023); 

P(WAITlQ(g<t200000000^0*UNlT)fDeL)i 

IF (SAVEWORC AND T^*O(UMT))«0 AND PRNT ABLE[U M T ] . [ I « 1 ] 
AND NOT (bVPBT OK QTED OH NOCONT) THEN 

lNDEPENnENTRUNNER(P(.PURGElT)*UNlT*64^ 



ELSE 

BEGIN LABELTABLECUNIT3**n4i 

MULTI TABLE t UN I TJ*RDC TABLE E UNI T]*Oi 



end; 



SLEEP C t TO GLE]* STA TUSM ASK); 

READY*KEADY AND NOT NT l«-ThO(UNIT )i 

RRRMECH«.NOT NTl AND RRRMECH oR NTl AND SAyEWORD; 



PSlit 



ij^iiMMiiMMumMMMMk 



'iMmk 






******************************* ************* **************************** 



1250^500 

ipsoaoQQ 



1250S500 
12506000 

i2'sn65no 



12509500 
12510000 
I2'5l050n 



0000«0 
QOOQ«n 



ooooto 

000010 

oonoio 



12512000 
12512500 

igsiaooo 



oooo»o 
00 00 10 
Qoonio 



12513500 
12513750 

12514000 



ooooto 

0000»0 
0000*0 



12514500 
12S15000 
IgSlSSOQ 



0000«0 
0000»0 

0000 «0 



12516000 

I25l6i00 
12516150 



ooooto 

000010 

ooooto 



12516200 
12516250 
12516 300 



0000 JO 

OOOOJO 
000010 



12516 350 
12516500 
12517Q0Q 



OOOO'O 

ooooto 
ooQotn 



12517500 
12516600 
12518700 



ooooto 

OOOO'O 
OQOQin 



12S16800 
12519000 

1?91,9500 



ooooto 
ooooto 

000010 



12520000 
12520500 
12521000 



12521500 
12922000 

12522500 



T 
T 



ooooto 
ooooto 

OQQ O . tQ ,, 



12523000 
1 25 2 350 
t^S2#000 



T 

T 

T 



ooooto 
ooooto 

OOQltO 



OOOltO 
0002' 3 
0004tl 



12524500 
12525000 
12525500 



0007 tj 
0008 to 

miiio 



12526000 
12526500 
12527000 



12527500 
12528000 
, 1 25 ^ 8 500 



oouto 
ooiito 

OOlltQ 



12529000 
12529500 
12530000 



OOlltO 

oouto 

00l2t0 



0013t2 
00l5t2 
0020t0 



12530500 
12531000 
125 31500 



002112 
0021 t 3 

0025 tl 



■■■mmmm 



0027t2 
002910 
0031 1; 



I2i33500" T 



003»ti 

003411 



^fiSi 



1^ 



i 



10 
111 
12 

13 



14 ' 
15 
16 
17 I 
18 



19 
20 I 
21 
22 



23 ' 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 i 

39 

40 

41 4 

42 



46 

46 

47 

48 

49 

SO t 

51 

52 

53 ( 

54 

55 



11 



J? 



# • 



N 

2 
3 
4 
5 
6 



BGOL£A N SUBHQUTI NE LO UK K OHTAPE; 



12534000 T 003««1 
125345QQ T. Q.03<Hl 



T1^ 



BEGIN 



TtaRDCTABLEtUMTi; 

Rt:wiNn> 



HtWtNUJ • — i— '.■.-' i :' — ■■ — 

If SIGnEDON then FPB[4J JsFPBt4]-U0GINF0C2'»]''CU0CK-PCRTR); 

IF P((T«sFlNDlNPUT(>^FID'Pl222123425a6447,T.n'»«l0J+l#T,C24Jl7]* 

■0#Q>TtaO>0»0>On GEQ 0* PUP) THEN 

BEGIN 



12535000 T 
12535300 T 
12536000 T 



003510 
0035(0 
003610 



1 

3 

4 

M 

6 
7 

9 
10 

12 
13 
14 < 
15 
16 

'H 

18 
19 
20 { 

21 
22 

23 < 
24 
25 

26 ( 
27 

2e 

29 { 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 



12536500 T 
12537000 T 

125375 0Q T 



0037 JO 
004i«0 

0Q 43»Q 



10 



13 
14 
15 
16 
17 
18 



ROCTABUECUNIT»aT3,C6«63»«PlMIXi 



FPB:sPKTCP1MIX,3]; * findinput calus STARTIMInG 

IF SIGNEOON Thf.N FPB [ ij3 I »FPBC 43 +LOGINFOt Sal + CtOCK + P (NT« ) ^ 

rdytape; ^ 



12538000 
US38S00 
I3539n00 



0047»2 
0048t0 
0051*0 



125 39500 
12540000 
1P54059Q 



0052 M 
0053' 3 
0Q 57 M 



end; 

LOOKFORTAP£»«Pi 



ENDi 



12S41000 T 0059*0 
125«IS00 T 005910 
lPSA2nOQ T QQS 9f1 



%******************•**•************************************************* 



12542500 T 0061*0 
12543000 T 0061*0 
125^3500 T 0061*0 



19 
20 
21 



REAi SUBROUTINE REAOTaPEJ 
.:BtGIN 
RP* IF OSED OR PRttPlWlX/g25l*5 THEN &E6IN PCS); GQ TO RED EmD; 



12544000 T 
12544500; T 
12545000 t 



0061*0 
0061*0 
0061*0 



22 
23 



IF WAITI0(B'?2000040*UMT).C42» l3 THEN 

BEGIN 
P( WAIT IOC B*e20000 40^ UNIT )>DEL); 



1254550C T 0065»1 
12546000 T 0067*0 
1 25 46*^00 T Q0 67«2 



25 
26 



27 
28 
29 

30 



IF MCB INX 3J THEN 
IF LOOkFORTAPE THEN 

PC3); 



GO TO rd; 



12547000 T 
12547500 T 
uS^anOQ T 



0069*0 
0070*2 
0072*-^ 



GO TO red; 
end; 

for T»s17 STEP 18 UNTIL 8V DO 



12548500 t 0073*0 
12549000 T 0075*0 
12549500 T 075*0 



31 
32 
33 



reo* 



IF McB INX 
PCT>200); 

readtapeisp; 



T3, £20*13 THEN T«»256; 



12550CO0 T 
12S50500 T 
12551000 T 



0076*0 
0081*2 
0062*1 



34 

35 
36 
37 ~ 
38 



end; 



I******************************************************************** 



*** 



12551500 T 

12552000 T 
125S250Q T 



0082*2 
0082*3 
0082*3 



ecOUEAN 
BtGlN 



SUBROUTINE spacetofiwe; 



12553000 T 0082*3 
12553500 T 0082*3 
13554000 T 093 to 



40 
41 
42 



x*»num; 

WHILE (X* 
BEGIN 



iX-1) GEQ QC 



12554500 T 
12555000 T 
125 55500 T 



0083*0 
0083*3 
0086*0 



45 



DO UNTIL <T*sREAOTAPE); 

IF T G£Q 3 THEN BEGIN Pdj; 



GO TO SPACENU end; 



FNPJ 



12556000 T 0086*0 
12556500 T 0088 »0 
l2!S«i7000T 009040 



46 
»7 
IS 



SPACEND* 



P ( ) ; 



SPACETOFaE«=p; 



12557500 T 
12558000 T 
12558500 T 



0090*2 
0090*3 
00 9 0* 3 



46 

47 ( 

48 

49 

50( 

51 

52 

53( 

54 

55 

5«< 



«9 
50 
51 



end; 



^'!]i» #.» * ♦:#.»:*».«■» » if* *.♦..« »;* *.*»:»..*i* »■;»-»*:.*»'♦ t *.4 ■♦■*■.»:*■ *;*'»^»* *** *»■»■*.*** *************** *■* 



12559000 T 009110 
12559500 T 009l*l 
12560000 T Q09j I 



LU4- 



52 



BOOLEAN 
BFGIN 



SUBROUTINE FlNDFlLE/ 



12560500 T 
12561000 T 
125615QQ T 



0091*1 
0091*1 
0092*0 



55 
56 



IF <HEA0ER»»DIRECT0RYSEARCHCMFI0#-FI0#SEARCHVAL)) L5S 64 THEN 

GO TO nqmOre; 
HEAOE«t»€MCHEAO£R3 3*30£a*3e*103J 



12 162 000 T 00^210 
12162500 T 0094*2 
l 2 H^n QQ T 0Q » 5* . 8 



_^ 



S£6NR«»0; 



12563500 T 0097*2 



• • 



CURROWiajO; 
..I..F....A.BaRTE.n?rH£AQER[^).t2U] THEN 



NQMORgI 



IF HEADERC71i 
BEGIN 



'0 THEN 



12564000 
1256.0500 



i2S6S000 
12S655Q0 
13S666Q0 



009811 
0.0.9.9 t 



oioota 

010210 
01 02 12 



4 
S 
6 

7 ;,■•■ 

8 

9 

10 

11 

12 

13 

M 

IS 

16 

17 

IS 

19 ~ 

20 

21 

22 

23 

24 

25 

26 

" 

28 

» 

31 1 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

♦3~ 



GO TO nofile; 
end; 

LABELTaBLE[V]i-NaBSCFIQ)j 



12566500 T 
12567000 T 
1? 567') T 



010213 
0l03«l 
0103M 



,:■.,•.? CO 5 J.;. ,■."•■.■ 
NOF Ii€<^J^'''^" Flflif^tCC I »P' 



12568000 T 
12568500 T 
12569000 T 



0l04f3 

oiosto 

010 5*1 



Xv^** ********** Hr ************ ********it ************ ************************ 



12569500 T 
12570000 T 

t257P'SOq T 



0l05«2 
0l05»2 
QVQ5«2 



SOOtCAN SUBrBUTINe NOMOR£REEt.S; 
BEGIN 

IF HEAD£R»CCF3 OEQ 64 TH£N FORGETSPaCECHEADER )i 



■l:ti7M00'^T' 

Itf^lA'fii-f:. 



0l05«2 
010610 
0106»0 



IF FID.[R££LNQ]=0 THEN 
BEGIN HEADtrtJ«0* 
P(l)i 



12572500 T 
12573000 T 
12573500 T 



0l09»0 
OllO«l 



END ELSE 
BEGIN 

STREAM(QN£<-1^ FtatFlP]); 



12574000 T 
12574500 T 
1 2575QO0 T 



Olll » 3 
OlllM 
Oli2»l 



BEGIN ^n*LOC QNt; Di3:*a ADO END; 
P(FINUFILE); 



end; 



12575500 T 
12576000 T 
1 2576500 T 



0113U 
011410 
0115«0 



NQMOREREELS»»P; 
END' 
S SET OMIT » NOT PACKETS 



12177000 T 
12577500 T 
12576000 T 



011510 
0115M 
QU9«2 



X*********************************************************************** 



12587500 T 
12588000 T 

12189500 T 



0ll5«2 
0ll5>2 
11 5 « 2 



SUBROUTINE REMOVElTl 
BEGIN 
TtaDIRECTQHYS£ARCHCMFlU#'CFIDI»PFlRSTFlD)/SEAHCHVALn 



12S89000 T 
12589500 T 
12590000 T 



0ll5»2 
011610 
116»0 



IK T Gt(i| 64 THEN 
1 SET OMiT « NOT PACKETS 

p(3 IF FlOaiq p T H EN G Q A UT UNTU NQMQRE RE E LS^ 



12590500 T 
12S91000 T 
^ 2592 500 T 



OU0J3 

0ll9»2 
0n9»2 



S SET OMIT a NOT PACKETS 
AUT» 



12993000 T 
I25945OO T 
12 599QQ0 T 



Ol22»2 
0l22»2 
0l 2 2f? 



X*********************************************************************** 



12595500 T 
12596000 T 
1 2596 500 T 



Ol22»3 
0l22»3 
0122*3 



SUBROUTINE PAGEwECTi 
BEGIN 
$ SET OMIT * NOT Rij£ 



12597000 T 
12597500 T 
125^8000 T 



012213 
012310 
0123*0 



46 
47 
18 
49 
50 
61 
52 
53 
S4 
56 
56 



P(WAlTID(P40001000t)0'0'V)* deU); 



end; 



I26OO5OO T 
12601000 T 
12601500 T 



0l23t0 
012412 
0l26»0 



X******************************* *:** * * * * * * « * * * * * * * * * * * * • # *t * * ************* 

SUBROUTINE wRiTESj • ■•V//:'/;;,,.;;;,: \^^:' ■>;/■. :: , r'/'V" ^ .■,'■ '•;'/•■ 



12602000 t 
126029OO T 
12603000 T 



0126*0 

Ql26»0 
Ol2#tO 



BEGIN 
S SET OMJT « NOT RJE 
P(WAITI0(B INX g2lOl04QOOOoO>0#V)^ DEL); 



12603500 T 
12604000 T 
12607000 T 



0i26t0 
0l20«0 
0126*0 



Mas 



IpBiMiiiigiiilliiil^ *.*■* t * *:*:*'»^'^ * * » * *■** * * 









i.ip 



12609000 T Ol30»0 



# • 



>r 



SUBHOUTINE 
BFQIN 



idletimer; 



STOPlOGCPlMJiXfUJ 
PCilMiX)) PiMIXtwOI 



1260950C 
l?6ignQfl 



piMixJsp; 

S SET OMIT » NaT(NEWLOGGING) 
STARTLOGCPlMlx^O); 



12610100 
12610500 

126 It OOP 



0l30«0 
0130 «0 



12611500 
12611899 

I26l g0 00 



013010 

■Ofia.1,2 

0l33*g 



0l34t0 
013^12 

1341 ? 



END idletimer; 

X** ************************************** ******************* ************ 



12612500 T 

12613000 T 
12613500 T 



Ol37«0 
013711 

Ql 3?ti 



10 

11 



SUBHQUTINE 
BFGIN 



SETUHlNHEC; 



12614000 T 
12614500 T 
1P615QQ0 T 



0l37«l 
013711 
Ql3fl»n 



13 

14 
IS 



INR£C««CM£t3 INX 
INRECC173»=0; 



CUNlT»l8)3l4iat8t38»103; 



end; 



J26|5S00 T Oj38iO 
12616000 T 0141U 
12616500 T Olftgtg 



16 
17 
IB 



r****************************i^«**«i^**ilr*******4r ************************* 



12617000 T Oi42»3 
12617500 T 0i42»3 
UftlBOno T — 0142*3 



19 
20 



21 
22 



24 

26 



27 
28 



29 
30 



34 

35 

36 

37" 

38 

39 



42 



47 
18 



49 
50 



52 



56 
56 



Subroutine iNVAtioNuM/ 

BEGIN 

rILir»<ESSflNVALrn"^"FlL£ 



'>0#*'NuMfl »"#N(jM*1*0»OW 



ENOi 



12618500 
12618750 
126l90QQ 



014213 
014310 
014310 



12619250 
12619500 
1P62000Q 



X 

X 



P(DEL»Z*MSCW*STF); 
GO TO SXEP]; 



12620500 
12621000 
126215QQ 



014513 
0l49»0 
0H9»Q 



LOOKFORTAPE FINDS THE NEXT HEEL. 
INREC IS MOVED DOWN TQ SKIP IT, 



THE FIRST RECORD Is A LABEL SO 



12621900 
12621910 
; 262 1920 



0l49t0 
0149(0 
Ol5 Q«? 



Oi53»3 
Oi53«3 
O15 3 1 3 



U00K4TAPEI 



P(LUaKFDRTAPE); 
IN:REC«s(NOT 17) 
RFCUUNTlaO; 



12621930 
12622000 
12622100 



iNX INKEC; 



GO RETURNTQC0Mi9f 



12622500 
12623000 
12623500 



015313 
O1S313 

015313 



Ol53«3 
0l55«0 
l 5 $ «3 



NOMQRFELSt 



126240OO 
i262'»400 
12 6 2 45 OQ 



T 

T 



015712 

oi5e»o 



P(NUMOREREELS); 
G C RETMRNTgCOMl^J 



1262*600 

12625000 
126255 0C 



0ib8»0 
0l58»0 
0159>0 



OTSiEC« 



PRTtPlMlX#*'25]:=U; 

P(T); 

IF UMTslB THEN 



12625900 
12626000 
Ig6g6t0& 



% BE CAREFUL OF THIS, 
X DISK PORTION 



BEGIN NT2»»(T,C9<243 OIV 
lODJaCHEADERCaj DIV 
IF (T««3xNT2-»SEQNR) 



5)<iT[il2in; 
3)x3; X 

LSS THEN X 



12626250 
12626500 
12626750 



015912 

015912 
0|59I5> 



Ol59t2 
016111 
016112 



CALCULATE TrUE 
SPACE BACr<WAR0 



ROW SIZE 



DO IF 
BEGIN 



(CURHQW««CURRQW-1) LSS 10 THEN 
IF FlU'FIRSTFID THEN gO TO BOMBERj 



X TO A PREVIOUS FILE, 



12627000 
12627500 
1 2626 00 



12628500 
12629000 
12629500 



016211 
0l65«2 
0167*2 



If SEARCHVAL»3 THEN PtOXRCCTORYSEARCHCMFIO#FIO,l3 ),DEL); 

F056ET»I»AC£CHEA0ERJ^ 

STREAM;ON£f»l# rt»if|.03?;, 

Begin ^i:=lgc one' ds:«8 sub end; 



0l69)3 
0172J0 
0172«2 



i26.|iis:it;, 

I2*30«ii:: 
■l. g 6.. |l:ill|a 



017313 



12631500 T 017813 



58 ' 



• • 



h 



IF (HtADER»'BDlKE:CTURYSEAF<CH(MFID*FID#5)) 

THEN GO bomber; 



LSS tii 



HE*OER««tMtHEAO£R3J&30C8»3BllO3i 

CUiROWl«HEAOERC93 .U3I53+9; 

WHILE H£ADERCCURROW3gO 00 CuRfiOh t »CuRRQW»lf 



1263200C 
12638 00 2 



12632500 
12633000 
126335 



0179»2 
0191M 



oieaii 

0i8At3 



BOMBER? 



IF CUHH0W<10 THEN 
BEGIN 
NTl>3"RANGE +' 



12634000 T 
12634500 T 
l ? 635nO Q T 



0l90«0 
0190 » 3 
0191M 



IF (NT2I»PRTCP1MIX»P253),C2»13 ThEN 
NTll»NTU*'-''C42U2«63; 
FILEM£SSf"TNVALln'S"QT **pO» 



12635500 
12636000 
1P6365QQ 



0i92J0 
0194*0 
Q l 96 lt 



10 

11 

12 

13 V 

14 j 

15 I 
16 
17 
18 



NT1*NT2. [91243. 0*0); 
PHT[PlMlX*«'253»=5i % FORCE A «T 
fjQlU} , % I.EFT AT 12626500- 



1263^000 T 
12637500 T 
12636000 T 



019711 
0i99t0 
200 » 3 






12638500 T OgOpO 
12639000 T 020510 
1?639«) 0G T 090510 



ELSE 
BEGIN 



IF T GEQ IQD THFN 



% 5PACE DISK FORWARD 
% TQ ANOTHER RO W,* 



12640000 T 
12640500 T 
1P 641 00 T 



0206 «1 
0207»1 
0207« X 



19 
20 



21 
22 



NEXTFILL: 



DO X CHECKING FOR NEW FILE 

IF (CURRQWt»CURROW+l) QEQ < HEADERC93 ♦ [43153 ♦10 ) ThEN 
IF NOMORERFFrS THgN fin TH flnWRFR __^ 



1264150C 
12642000 
12642SQ0 



23 
24 

25 5 

leg 
"a. 

28 

29 
30 

Jl| 
32 V 



UNTIL CTt»T-ItJO) L5S jOo; 
IF (CuHR0VN-10)xlUP + T GTR HEADEKl7]x3 
HO TO NEXTFI L E? . -_ 



THEN 



end; 
sesnrisT; 

P<t9vJ 



12643000 
12643500 

126 4 4000 



020e>2 
020910 
QglPtf) 



0214»0 
0217JO 

02 2 0^0 



12644500 T 022012 
12645600 I 0220 » 2 
12645500 T 022 1 1 1 



END ELSE 
BEGIN 
IF T , C 2 I1J TH E N 



4 TAPE PORTION 

a^ SPACE tJACtsWARp 



12646000 T 
12646500 T 
12647000 T 



0221»2 
0221* 2 
022210 



33 



IF CTIaT, 191243) LSS 

BEGIN IQ0»«(T*4) OIV 

DO P(WAlT!0f{89 



IN«£;cC173,CCF3 TheN 

5; 

INX B)ft7C22»45>33*Q*UNlT)>DEL) 



12647500 T 
12648000 T 
1^48100 T 



02221 3 
022513 
03g8»0 



M 

36 
36 



39 



41 



END 



UNTIL ClQD'slQO-l) 

recounti=5; 

ELSE CiQ TO BOMBEft 



LEQ OR OaED OR UTEO^ 

X REEL SWITCH NQT AlLQWED 



12649000 
12649500 
12650000 



023l»0 

0236J2 
0237«1 



ELSE 

BEGIN iaD«=tT, [91243) DIV 5; % 
00 UNTIL (XlsREADTAPE) OR (lOtl' 



IF lOD^O THEN 
IF XX5 THEN 

Recount»=q; 



SPACE FORWARD 
iIQO»l)»o; 



12650250 
12650500 
12651000 



GO TU bomber; X 5=DS-ED. LET IT FALL THRU, 



end; 

REcOUNtt»«CMtB 

p(i6>; 



12651500 
12652000 
12652500 



0237»l 
0237»1 

0239>2 



INX 173 INX NOT RECOUNT), tCF3i 



12653000 
12653500 
12654Q00 



0244«0 
0244«3 
g46«2 



oaftfti 

024711 
02§Q<i 



♦7 
•8 



% 



end; 

Fix up inrec* 



BuIlO 10 DEsC and OT message as NEXT TO BE WRITTTEN. 



12654500 
12654900 
12654910 



0250»3 
0250»3 
0250«3 



t9 
SO 



52 
i3 



54 



55 
56 



P(T»«b INX p(xCH)); 

INRECI«INR£C|PCXCH)CCTC); 

M[T-13« = (REC0uNT + l)i4M[ll:41»7 3&(VX22)[29l44|4 3; — — 
NT1»»P; % LEFT aT 12626500 

STREAMCA'gNTljtFF], QwNTl.U'U* PNCHtsV = 22» BlaT'lB); 



__ OS: 321 LIT" BACK UP F I ut SPACED "; 



12654920 
12655000 
12655500 



025013 
0250«3 
025210 



iMBS. 



12656000 
I26565OO 
12657000 

12658500 T 

12659000 T 



025312 

0258«2 
025910 

0J64I3 
026710 



0268' 1 



L^ 



n 

2 

3 
4 
S 
6 



cu=ci+c; GU TO 

FFRt dS>s4 LIT" FUR"^ 



FEH; Db!»a LIT^BACK"; GO TO L2; 



12659500 T Og^Hl 
l?660nOQ T 0373»0 



L2» DSJ»4 UIT"WARD"; 

sn«LOc a; osi»6 deci 8«»di; di«*oi-6; 

OStaS fill; DltMBi 



12660500 T 02r3»3 
12661000 T 027«»2 
12661500 T Qa7'il2 



LINI 
_Lli_ 



ci;sci+^nch; go tq lin; osjss lit" card"; go tq t,3; 

DSJS5 LIT" LINE"; 

nS»g^7 lr|T"S»B >>>>>>>>>>>>>>"; 



1266200Q T 0276 «0 
12662500 T Og/B'O 
12663000 T 027 9«0 



B(*oi; 
end; 

fiO KETURN 



Sn»B; Sll»SI-8; DS:a7 WDS; 



TRUEi 



12663500 T 
12664000 T 
12664500, T 



026112 

02ea»2 

Oaft8«3 



10 

11 

12 
13 

14 

is 



INITIALIZE* 



Handles misceua^eous setup TaSkS, incuuoing starting the timing for 

LOGSING, CHeCkInS ANO READYING THE INPUT FILE AnO SPREADING COMMON, 



12664900 T 0283*1 
12665000 T 0263*1 

12665100 T — oaasu 



X 



1266SU0 T 028311 
12665120 T 02«3I1 
12665130 T Qa»3*l 



16 
17 
18 



RCW.tCF]»«P(.C0M19*LQD) INX 
SET OMJT »« NOT BJE 
V»»CQMMflN.[VF]; 



1. 



12665500 T O'dQJH 
12665750 T 02851 1 
lS6ft775Q T 028511 



19 
20 
21 



IF PC.INHEC#LaO)«0 THEN 
BEGIN 
SET OMjT » NOT RJE 



12668000 T 0286«2 
12668250 T 0287«2 
I 26 0B5O O T 268 *0 



22 

23 
24 
25 
26 
Z7 



BEGIN 



IF LABELTABLECV] 
(JEGIN 



C1«5J/P21 THEN 



% PRINTER CL"ED 



1266V250 T 
12669500 T 
1 2 669750 T 



0288«0 
0288*0 
02 691 2 



IF CONITI*COMMQN,CUNITF3)<16 THEN 
IF LABELTABLECUNIT35«»2100000060606060& 
TINUCV3C6I jQllfl] THEN SETNQTINuSEC UNI TiO jj 



12670000 T 
12670250 T 
12670500 T 



0290«0 
0291*3 
0a93t0 



28 
29 

30 



GO TO INITIATE; 
ENO; 
.l. A gELTA Bl F [V3 .t 5*lJ«"0 ; 



12670750 T 0296*0 
12671000 T 029612 
12671250 T — 0296*2 



31 

32; 

33 



ENO; 

P«TtPlMIX*^25il«0i 

B**CG£TSpAC£(9l»0^1)f2)&90tet38*l0 3; 



12671500 T 02*9*0 
12672000 T 029910 
12672500 T 0300*3 



34 

35 

36 
37" 
38 
39 



end; 

SET OMIT a NOT HgE 
RDCTABLECVJtCeidJ tsPlMix; 



STARTIMING($'V); 
STARTlMING(0*UNnisCQMM0N.CUNlTF3); 
FPB*»PRTCPlMIXi;33; 



12673000 T 
12673500 T 
1 26750P0 T 



0304*0 
0304*0 
03 04*0 



COPY * "COMMON. C C OP YF J ; 
IF UNlTsia THEN 
BEGIN 



12675250 T 0306*2 
12675500 T 0307*2 
13675750 T 0309*? 



40 
41 
»2 



12676000 T 
12676500 T 
12677000 T 



0311*0 
0312*1 
313*0 



MFI0*«»IF V*22 THEN "PUO 
$ SET OMIT ■ NOT RoE 

FIRSTFlDl«'LABELTA6tECV3«C6t423; 



" ELSE "P&6 



12677500 T 0313*2 
12678000 T 0316*1 
12679500 T 0316*1 



«6 

«7 
«8 

49 

50: 



$ SET OMIT X NOT PACKETS 

FlD»«FIgSTFlD; 
SEARCHVAL« = 3; 



12680000 T 
12681500 T 
12662000 T 



0318*2 
0318*2 
3P «1 



•.■.",.>i-F, fll^CitmfcrvTH-ENvGO ;RETU^ftNFALSE;' 



12682500 T 
12684000 T 
12684500 T 



0320*0 
0321*3 
0|gl»3 



52 

a 
54 



ABORTED*»0; 

NaC0NT»«C(NUM«sC0MMGN.CNUMr3) 

HFID>»HULTITABLECUNIT3; 



OR COPY);'0; 



12686000 T 0326*0 
12686500 x 0326*3 
12687000 T Q329 *2 



55 ■• 

56 I 

el 



;iiiiiiiMiiiiiiiiiiiWiiiiilil 



mMMf::-^M. :■■ o.t-*E 0' 'W H I lE 



•.■■litiiiSi'i 

12667500 




B^ 



end; 



12687600 T 0333*3 



• t 



h- 



11 

12 



13 



15 
16 
17 
18 

<9 
20 
21 



22 



24 
2B 
26 
27 



90 

311 



32 

33 



34 
35 



36 

37" 



41 
42 



43 



47 
18 
49 
50 



53 
54 



55 
56 



FID>aLABEuTABLt:[UNlT]JsC*P(DUP))40C5»47J 1 J; 
ROCTABLEtUMT].[flth]>=PiMrW 



RRRMECH'sRRRMECH OR TWO(UMT)J 

ROYTAPEI 

IF SPACETQFILE THFN. 



BEGIN 



IF T-3 THiN InVaUIDNUmJ 
GO RETURNFALS^; 



* Set by readtape if eut 



END* 



Gc returntrle; 

STARTANF.WFn.FI 



X Handles the end or a fiue and fioures out what to do next, but 

-* first* THg log must BE TAKEN CA RE OF* fPQNT USE T BETWEEN HEfrF ANn 



% 
% 



The Test at 12705750,) 

IF ARQRTEn=? TH(::i\ GO TO TflPt^CL; 



IF SIGNEDON THEN 
BEGIN 

L0GlNFQ[l2jta*P(DijP)»PR0CTlME[PlMlj(3»CLnCK4PCRTR); 



L0GlNF0Cl3J«ai0TiMF:cPlMlX]-Ci0TlME£PlMiX]J=L0GlNF0(;l3]); 
OLDIOLETIM£»«OLUIDLETIME+LOGINFOC12]; 
PROCTlME[PlMlX]>s*PcDUP)''LOGINFOCl?]J 



lOLETIMERi 

LOGlNFOCU3»9jAR[PlMIxW]-(JARCPlMlx*73»«LOGINFOCt43)J 
L06lNF0U7JlsXCLQCK»PCRTR)i 



LOGlNFOtl8]:«(DSEDx2)&DATEtlSl8»3o3; 
L0GINF0[23]»»FfBC3J&Tli\U[UisiT]t24U8ll23; 
LQGINFQC28]UFPB[8 3&TlNUtVJ[2a>18tl2]f 
TlNU£UNlT3,Cl8U23»»Of T iNutV3 ,C18I 123 »»o; 
SIGNEOONI«LOGINrOC24 3+CLOCK+PCRTR); 
L0SlNFQC243»gL0GlNF0C29 3»gSlGNE00NJ 



FPBt«3l5(*PCDUP))-SlGNED0N; 
FPBC93 j»C*PC0uP)3-SIGNED0N; 

LOGSpAC£([LOGINFO[03 3^ JO); 



END* 



FORQETSl»ACECLQQlNFO)i 
SiGNEDQNteOi 



% 

% 



IF DSED OR QTED# SKIP THE CHECKS FOR COPIES. 



IF CTERMFlAGIsOSEd or QTEDX3) THEN 

IF V«22 THEN GO TO PNCHDS ELSE GO TO FRNTDS; 



X T IS SET U THE FIRST GET FAILS. THIS sHOULD ONLY HaPPEn AT THE EnD 
as OF A BAOK-Up TAPE, NOTE THAT IF A FILE imUmBER IS SPECIFIED* InITIaL' 
% IZE ONLY SPACES TO ITS START' SO WE MAY CATCH AN iNvALlO NUMBER 



» HERE. SINCE ONLY ONE FILE IS PRINTED WHEN a NuMbER IS 
X ARRIVE HERE* IT MUST HAVE BEEN A BAD NUMBER, IF IT IS 
X CONTINUE Oi^WN THE Ta'^E AFTER THE SPECIFIED FILE* THIS TeST WILL NeEQ 



GIVEN* IF We 
DESIRED 10 



% 
% 



TO BE CHANGED. 
IF T THEN 



THEN 






% FIRST GET FAILED 



GO TO tapend; 



126077OC 
12686000 



12688500 
12669000 
IgbgQ'iOO 



033313 
0:^36 M 



0339*1 
034110 
Ql42«n 



12691000 
12691500 
1?692000 



12692500 
12693000 
I2ft9^5fln 



03t3'0 
3 4 3 « 2 
0346*0 



12694000 
12694400 
12694500 



0346*2 
0346*2 
0346*2 



12694600 
12694610 
12694620 



0348*0 
0348*2 
0348*2 



0348*2 
0348*2 
Qa4at2 



126946 30 
12694640 
126948QQ 



12695000 
12695500 
12696000 



348*2 
0348*2 



0349*3 
0350*0 
0350*2 



12696500 
12697000 
12697?iQQ 



0353*3 
0357*0 
0358*2 



12698000 
12698500 
12699000 



12699500 
12700000 
12700500 



0360*3 
036210 

366*1 



12701000 
1270150X) 
12702000 



0368*0 
0371* 3 
0374*2 



12702500 
12703000 
12703500 



0377*1 

0382*1 
0384*1 



0386*2 

0388»2 
0390*2 



1270*000 
12704500 
12705000 



12705100 
12705110 
12705120 



0391*3 
0392*3 
0393*2 



12705250 
12^05500 
12705600 



0393*2 
0393*2 

0393*2 



0393*2 
0397*2 
0399*3 



12705610 
12705620 

12705630 



12705640 
12705650 

12703660 



0399*3 
0399*3 
0399*3 



0399*3 
039913 

0399*3 



12705670 
12705680 
12705750 



t2^0»SQ0 



0399*3 

0399*3 
399*3 



0401*1 



12706750 T Oa05»0 



J< 



12 

13 



17 
18 



20 \ 

21 

22 



24 



27 
28 
29 4 



32 I 

33 

34 

3S I 

36 

37 



41 ' 
42 



e 



52 
53 



55 
56 



• • 



)a 



12 
13 



16 
17 
18 



20 
21 



ZS 

26 

27 

28 

29 

30 

31 ' 

32 

33 

34 

3S 

36 

37" 



38 



41 
42 

43^ 



47 
«8 



49 
50 



S2 



54 

56 I 



END ELSE GO REMQVtM; 



IF CCQPYtaCOPY-li GTR THEN 
BEGIN 
Tf V«2? AND PUMCHL^K THEM 



X MORE COPIES OF FliE RQO. 



12707000 
U7 /100 



12707250 
12707500 
1 2707750 



0405«2 
040S « 2 



PNCHLK« 



BEGIN 



STREAM(PIMIX# T:=T»=5PACE(10)); 

arGlN 0SIS25 LTT")»PNCh LOrKm I PRNP BT/n ISK. 



12708000 
12708250 

1270850Q 



0405«2 
040711 
040713 



0409(2 
0410«0 
04t3«n 



£nd; 



SllaUOC PIMIX* 0Sli«2 OECi OSIsHT"*"; 

oiisoi^a; DSi'FXLi.; 



SPOUT(T); 

R£PUyCPlMlX3!=NABb(T»=VGK&VWYC36ta2t6j&VQTC30»42»6]j^ 
C0MPLEXSLEEP{REPLYIP1MIX]>0 QR OSEO); „ 



12708750 
12709000 
12709230 



0416>2 
04t7t2 
QAt fllfi 



09635000 ACCIDENTAL ENTRY AT PlMIX 

IF NOT WMYStEEPCT) THEN GO TO PNCHUK; 
IF OSEO OR QTED TH£N GO ST ARTaNeWFIUE J 



12709500 
12709750 

12 719 00 Q 



0419U 
0419t0 

04? 3)0 



12710230 



043l»3 



ENOi 

IF UNIT^ie 

BEQIN 



Then 



* DISK 



12710750 
12711000 
12711 250 



0*3512 
0435«2 
0*3««1 



$ SET OMIT 5 
PRINT IT AGAIN* 



NOT PACKETS 
FlQfFlRSTFlP; 



12711500 
12713000 
127135QQ 



043613 
0436)3 
Q436».l 



3earchval'»5; 

IF FInDFIuE THEN 



GU TO EOF ELSE GO TO CONTlNUEi 



ENO; 



IF ROCTABUEtUNlTlaHUO^l THeN 
REfilN 



TAPE 
% 



12714000 
12714500 
1 2715000 



THIS ISNT FIRST HEeI- 



END 



rdctablecunit] .[i4« lojjao; 

IF NOT LOGKFURTAPE THEN GO TO EOF; 
ELSE 



12715400 
12715500 

12716000 



04 37«2 
043811 
Q 4 40»0 



044010 
0440t0 



12716500 
12717000 

1 27175 Q 



4 044H2 



ENOJ 



roytape; 

IF SPACETOFILE 



THEN GO TO EOF ELSE GO TO CONTINUE* 



$ SET OMIT s NOT PACKETS 



12718000 
12710500 
42719 000 



0442»0 
0444(2 

0<t46»,? 



044612 
044ai0 
0A30»Q 



EOFI 



12719500 
12725900 
12726000 



X AT THIS POlNT^ wE ARE THROUGH 
X THE OUTPUT BEFORE COING ON. 



WITH THIS FILE OR PACKET* CLEAN UP 



1272*100 
12726110 
12726120 



0450«0 
045010 
0450(0 



0450(0 
045010 
0450*0 



IF VX2^ 
BEGIN 



THEN 



% PAGE EJECT AND SEPARATE 



12726130 
12726500 
12727000 



0450*0 
0450*0 
0450*3 



PRNTOS* 



pageject; 

IF SEPARATE THEN 



12727500 
12728000 
;272 a5 0Q 



045l»l 
0452(0 
0452*0 



BEGIN 



STSEAMCu8=UNIt*18' 

&XL . 



Xl3p(0uP)-l7* F|eFlD» A«sTINutV]* 



12729000 
12729500 
12730000 



BEGIN 






. FOU T 



0S:s3 LIT" --"; X(0Sia7 L IT''B5700"'" ) ^ 

si:ssi-3^ OSes chr; 

UCPSIBLIT" »i SIl»LQC F; SII«SI*|; DS>34 



os(5LiT" ♦•; 

CHR); 



12730500 
127 31000 
l27AilQ0 



0452*3 
0453*1 



045611 
045611 

Qita ai i 



12732000 
127 32500 
1 27 33000 



liti! 



iiWiiiiiiliiiiliKiii 

UNTIL SEPARATION 00 



12733500 
12734000 



0459*0 

0462*1 

0462 (3 



0464*3 
0465<0 



* SET OMir s NOT «JE 



12735000 T 0470*0 



• • 



PCWAlTl0(P40 0ii000000*0*V)* DEL); 
V Fni? Tl*l STEP 1 UIMTIL 5 DO rtR^TtEj; 


1273/500 T 
I?73t3n00 t 


4 7 » 
4 7 M ^ 


1 , • • • . . • ...:., .PAQC4ECT;::...,: . .:;rffi::\:'': -■■:•' 

2 ■■:-■•:■-■■■ : ENOI 

3 .■;.. . Emi 


12738500 T 
12739000 T 
19739S00 T 


0479*1 
048610 
048010 


pnchdsv 

' IF UNlTXia THEN % TaPE 
« BFGIN 


12740000 T 
12740500 T 
12741000 T 


048010 
0480«0 
Q490<3 < 


f IF teRmflag or nocont ok aborted then 

» BEGIN 
» TAPENni 


12741500 T 
12742000 T 
i??a2S0Q T 


Q«aiii 

0482»2 ' 
048^10 


" GO TO test; 

« END ELSE 


12743000 T 
12743500 T 
1P744000 T 


04a3»0 ' 
0464 «0 ' 
0484 «? ' 




12144500 T 
12745000 T 
13745500 T 


048412 ' 

04e5»0 

048611 1 


'• CONTINUE! SeTUPINREC' 
" RETURNFALSEI 

'8 p ( ) ; 


12746000 T 
12746500 T 
l?7ii7000 T 


0487«0 

0488«0 ' 

oaaaio 


'9 GO RETURNT0C0W19; 

^o ■■■■■-: ^ •#=■ ENSi 

^'■^■■: ■ ■ end; 


12747500 T 
12748000 T 
12748300 T 


488 « 1 ' 
049010 = 
0490 »0 = 


22 

a REMOVeM* 

24 


12748900 T 
12749000 T 
iP7aVlOO T 


049010 2 
0490»0 2 
0490«n 2 


M X DISK - cUOSe THE OPeNeD FILE^ AND' IF NOT QTeq* «EMOVe THeM, 

« % 

" I00»»IF SEARCHVAt»3 THEN FID ELSE NOT 0' 


12749110 T 
12749120 T 
12 749500 T 


049010 2 
049010 2 
0490»0 2 


M searchval«*i3; REMOvEIT; 

" FPB[4]l«C*PcDuP))*CLaCK+P(RTR); 

» IF TERMFLAGX3 THEN X NOT QT"ED 


12750000 T 
12750250 T 
1??50500 T 


0493«0 2 

0495»0 ^ 
0497J? a 


'' BEGIN 

^im:-' iooi«NOT o; 

» SEARCHvALt*7; REMQvEIT* 


12751000 T 
1275 1500 T 
12 752000 T 


0496 »1 3 
049813 ^ 
04991^ 3 


^ Test: % kOr continuation for autoprint Qr rJ£, 

» IF AUTQPRIM AND NOT CFURmtOG OR TERMFLAG) AND 
« CTWOCV) AND SAVFlNORDJsO 


12752500 T 
12753000 T 
iP753SO0 T 


0502«0 * 

05Q2S0 .^ 
0504:0 3 


" $ SET OHIT » NOT R^E 

*■■:■■■ ..: • ■■. •..•THE'N . . 

'^ IF CCOMMO!»i»«PRlNTDRPUNCHwAlTc*V*-STA));rO THEN GO To SToPTImE; 


12753750 t 
12735000 T 
12755500 T 


0505* I =• 

050511 

050610 3 


•" end; 

Tapecl' 

*2 COMMONlsO; 


12756000 T 
12756400 T 
12756500 T 


0509<0 * 
0509»2 " 
0509«2 * 


" FdRGETSPACECaji 

" ■■ - . ■:...■.■$ ''SET OMIT «'NOT n^t ~ 

« SFTNOTINUS££V*FORMTOG>i 


12757000 T 
12 757350 T 
12757500 T 


0510«1 ^ 
051 1*0 
051 1»0 


«« STOPTIME: 

»7 ST0PTiMiNgC5' 1023); 

« RETURNTRUE' 


12757750 T 
12758000 T 
12758250 T 


0512*0 * 

0512«0 

0513«0 *< 


P(1)J 

«> RETURNT0C0Ml9t 

51 P{0^rosm*suB'0>xch*cfx^stf;; 


12158500 T 
12759000 T 
12159500 T 


051310 
0513».'i .,,- . 
OSIJM 


« End of first printer backup special cases procedure; 

a 

'>* procedure PRNP8TSPECASE2(Z); 


12760000 T 0516»2 ^■ 

SIZE" 0517 words =: 

12800000 T 000010 =' 


■5 ■•:;,,,;•;•. ■■■y^^:::':;^-^^^^^ S-TArt of reu 

v'imM'^:',.:::.^,u]:::::\.,i::.,^:i'' .■^•■:./;,,::::al3«li»iiiii^^ cohi9. values of, i are* 


SEfiMENT* 0I$K ADDRESS » 003H s- 

12600100 T OOOOtO » 
128QQ110 T 0OCO»O sj 



INITAILIZE LOGGING. 



12800120 T OOOOJO 



X 1 WHITE ASORT or DSED MESbAGE AND CONSTRUCT ENDING LABEL. 
* .2 HAINP L 6 HAHI TY O N I NPUT HL Et 



12800130 T OOOOJO 
1?6QQ 14Q r QOQQ»n 



mm ly 

BgGIN 



REAL ii 



12800150 T 
12800500 T 
laflOlQQQ T 



000010 

OOOOIQ* 

QOOO»Q 



Real rcws+o* mscn*"?* cowMONs-ai 

ARRAY iNRECa+U*]; 

ARRAY rP8slNR£C.H[*]f LOGlNFUaFPB^l [* 3 » HEAOERsUOgINFQ-*- 1 C* 3 f 



12801500 
12802000 
1 2 802 5 00 



0000 »0 
0000*0 
OOOOtQ 



10 



12 



REAL UNlT«HEAOER*l* V«UNlT+U CQPYbV+1# MFID»C0PY*1, FlOuMFlQ*!, 

laO«FIO*l» T»I0D+1# 8»T+i; 

RFAL SEARCHVAU«B-»i> CURRO>^*SeaRCHV AL*!^ F IR$TFID»CURRQW41* 

SEGNRsFlHSTFlD+i; 

REAL XsS£archval# numscurrow* recOunt^segnr; 

BOOLEAN SIQNEOdNaSEGNR^K FQHmtuG^SIGNEDON* 1 ^ AB0RTED»F0RmT0G.|.1 ; 



12803000 
12803500 
12804000 



0000*0 
OOOOfO 
00Q0«0 



12804500 

12805000 
12805500 



T 
T 

X. 



0000*0 
0000*0 
OOOOjO 



16 
t7 



20 
21 



BOOLEAN 
SET OMIT 
SET OMIT 



nocqnt«firstfio* 
• not packets 

» PACKETS 



1280A000 
12806500 
lgaQ9'SOO 



0000*0 

0000*0 

ooooto 



REAL PFlRSTFIUsFIHSTKID* ^'COPYsCOPY; 
SET OMIT » NOT RjE OR PACKETS 



12810000 
12810500 
1P91200Q 



0000*0 
0000*0 
OOOQIQ 



LABEL SlEAP# rtHY# EXlTTOCOMi?; 

Label siqnin* abqrtmSg* parerrj 
sw i tc h sw %» 



12812500 
12813000 

ipfli3*inn 



0000*0 
0000*0 

Qoontc 



SIGNIN* ABQRTMSG^ PAHeRR; 
define DSEO = (TERMlX,CcF]sPlMlX)#* 
QI£I3 « (PRT[PlMlX/g25]XQ)<tf 



128H000 
128H500 
12815000 



0000*0 
OOOOlO 
QQQQ'O 



2S 



27 
28* 



VF 

UNITF 
CQPYF 



NUMF 
NQTP 
COPYO 



43*5** 

38*5** 

,30* 61^ 



22«8J»» 
29*1*' 
21!1#; 



12815100 
12815200 
1?6131Q0 



0000*0 
0000*0 
Q0Q0»n 



12815400 
12815500 



0000*0 
0000*0 
O QOQtQ 



31 
32 



;X ♦*■*,*,**** #**'^** **.**■*****.* ***^* *■**'*:*,♦*■** *■♦♦ 



12815900 T 
12816000 T 
12816500 T 



0000*0 
0000*0 
0000*0 



34 
35 



37 

38 ' ■ 



SUBROUTINE IDlETIMEH; 
BEGIN 

stqplqg(pimix*i); 



12817000 T 0000*0 
12817500 T 0001*0 
12817600 T 0001*0 



39 



P(PIMIX); 

idletime; 

PlMIXtmPj 



PiMixiBo; 



12818000 T 000312 
12818500 T 0004*2 
1281 9600 T 0005*0 



40 
41 
42 



$ SET OMIT a NOTCNEWLOGGING) 

startlog(Pimix*o); 

END idletimeb; 



12819399 T 0005*2 
12819500 T 0005*2 
1282O C00 T QQOfl«Q 



43 

44 

45 



X'4'*'* * «*.* *-'* ******* ** * *:*"* ********** *'* * «.* * * * *****.******"**:*'* *******'********* 



12820500 T 
12821000 T 
12821800 T 



0008*1 
0008*1 
000811 



46 
47 
48 
49 

50 
51 ■ 
S2 
53 

S4 

5S v|it 

w '-III 



SUBROUTINE 
BEGIN 



FNi; %% BUILD AND SPOUT FORMS MESSAGE 



XX 



STREAM(UtaTlNU[V3* P^MIX^ INREC* D »sT t^SPACE ( 10) )/ 



12822000 T 
12822500 T 
1?92J0QQ T 



0008*1 
0009*0 
QQ09»0 



BEGIN dS*»LIT'«»"; 

SIlsLOC Ui SIl«Sl45J 0Sl»3 CHRJ 
0S*«20 LIT" FM RQOIPRNPBT/DISK» 



!LL 



DS*g2 dec; 



12823500 T 
12824000 T 
1 282 450 T 



0013*0 
001312 
QH*1 



uj*Di; Dit*oi-2; dsj«fill; du«u; 

SlJalNREC; DSj«5 LIT" FOR " ; 
SH«SI-*-i; DSlq7 CHH; DS»»LIT"/**; 



12825000 T 
12825500 T 
12826000 T 



0017*1 
0018*1 
001912 



j'iiiiiiiii 

DSisLlT"*"; 



0S»»7 

iiiiti 

0Sl»7 






.■liiiiiiiifi 



0020*2 

ooai»3 

002113 



12828000 T 0023*1 



• • 



h 



2 

3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



# 
# 



13 j 

14 

15 1 

IS 

17 

18 

19 

20 

21 

22 

23 

24 

25 

25 

27 

28 

29 

M 



31 
32 



46 
I *7 

ts 

49 

I 50 

51 

52 

! W 
S4 

55 C; 

58 t :; 

di 



end; 

SPnUTCTJi 



EKD 



REPLYtPlMlXJ l» 

NA8S<TUv0K«VWYC36U2t6nvQTt30l42t6 3&VF«C24M2»^3)| 
FM SUBROUTINJ _^^ 



Padf . m ; xBUiiD AND Spout BAD FM messagf % 



SUBRQUTINE 



BEGIN 



STREAM<AI»TiNUtT3tHXJ«PlMix#TI»Tl»SpACE(10))| 
B£<IN DSl«t9 4IT**INVALID INPUT UNIT "J 

Sn-LOC MX; DSI»2 DEC;DSta2 LIT^FM"; 

siJ»Loc a; sii»si+5; ds«*3 chr; 

0S»8LlT '^♦"f DliaQI^a; pSt^FlLL; 



END BADFM SUBROUTIN; 



X ********************************************* vk^ ^^ * *^ ^ ^ * ^ ^^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 



SUBROUTINE WRITEBANDE^JECT ; 
BEGIN 
SET OHtT a NOT RJE 



BEGIN 



ENOl 



end; 



P(I«AITI0(B INX P2l0i04000000#0*V)#DEl-); 

IF V;<^ 2 THEN Pfl^A[TTnfPaOQ01Q00OO.OfV^vnF^)f 



X **************** * * * * * * * * * ******************* * * ************************* 



p(i*iiiiG'iiiliii 



L0GlNFQ«stM[GETi>PACE(31,0,l)+2]U3U8«38U0]; 

IF F0RMT0GIsINREC[13] THEN FMj 

IF cop y LEQ AND NOT CUMMQNt CCQPYO J THEN 



\'Ur > UC.W V nmu ixui W U WM U l\ t H, Ur t U J I fit IN 

COPYUlF <IN«ECEU3 AND NOT *»377)*0 THEN INRECCUJ + I ELSE Of 
■^R1ke(^ra^tm^it 



tOGlNFOCOimS^ 

STREAH<S»»UNRECU3 3»Ot«CL06lNFOC3t3^); 

BEGIN SjIbS; DS!«9 k^DS; END; 

L0GlNF0[10]t«5; 
L0GINFUEll3»a2; 



rOGINFQtfsJT^DATt; " 



12828500 
l2B?9QQn 



12829500 
12830000 



0023*3 
OQ?A>n 



12631000 
12831500 
128 32 000 



0024*3 
0025»1 



12832500 
12833000 
12833500 



0Q30Va 

003010 
0030>0 



12834000 
12834500 
12835000 



12836000 



0030»0 
003010 
003312 



003611 
003711 

oo3a«o 



12837000 
12837500 

12838000 



12838500 
12839000 
l?QT9'i0n 



003910 

■-oiii:*-o" 



0040«1 
0040«1 

Q4Q »X 



12842500 
12843000 
12843500 



0040»1 
004110 
Q0 4t » n 



12844000 
12844500 
V2fl4S0Qn 



0041»0 
004l»0 
0043 LO- 



12845500 
12846000 
12646500 



0045»3 
0045*3 
0^48*0 




12847000 
12847500 
l2fl476Qf^ 



0048*0 
0048*0 
004fl«Q 



12848000 

12848100 
1?848^10 



T 

T 



0048*0 
0049*0 

onsui 



12848120 
12848130 
12848140 



12848l5o 
12848160 
1 28481 70 



0051*1 
0051*1 
OQSl«i 



005l*i 
0051*1 
0051*1 



12848180 
12848190 
12848200 



T 
T 

JL 



OOSIJI 
0051*1 
0051 tl 



12848500 
12849000 
12849500 



T 
T 
T 



T 
T 
T 



0051*1 

0051*1 

0051*1 
0051*1 

0055*0 

0058*0 



12850000 

igasosoo 
iggsiooo 



12851500 T 
12852000 T 

12852500 T 



0060*0 
0065*0 
0066*1 



12853500 
12854000 



0067*3 

0068*2 

0069*3 



iiiifo" 

0073*3 



2( 
3 

4 



J 

8 

9 

10 

11 

12 

13 

14 < 

15 



IS 

17 I 

18 

19 

20 ' 

21 

22 

23 ' 

24 

25 

26 i 

27 

28 



29 I 

30 

31 

32 < 

33 

34 

35 I 

36 

37 

38 ( 

39 

40 



42 
43 



45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 



fl 



56 ' 
57 



12854500 T 0078*0 



8 

9 
10 
11 
12 



13 
14 
IS 
16 
17 
18 
19 
20 



21 
22 



23 
24 



25 
26 



27 
28 



29 

30 



31 
32 
33 
34 

35 
36 
37 ~ 
38 

39 
«0 
41 
42 



43 



45 
46 
47 



t8 
19 

50 
51 



52 
53 
S4 

55 



56 {j 

ft 



L0GINFOC16JJSXCLUCK+PCRTR)' 
LOGINFQC193 :»USCHcODECP^MIX]; 



LC6INFQC20 3t'»"PRjNTER"; 
iOGINFOC2l3««''BACK''UP*'J 
LOGINFQ[22 3>»LOGlNFDC27 2MQj 



L0GINF0C2«] »»-ClOCK-P(RTR)/ 

L0GlNFO[253l«INRECC0]; 

L0GINF0C263;sINHECCn; 



% Save label infq fur abort 



L06lNF0t283l»MnNREC INX NOT 143 
L06INF0C293*lN«tCC23; 

loginfoc303*inRecc3]; : 



IF FORMTOQ THEN 
SLEAPf 
BEGIN CQMPLEXSLEEP(HEPLYCP1MIX] 6EQ nR DSed gr QTeD)j 



12710000 ACCIDENTAL ENTRf AT 

IF NOT WHYSLEEPCT) THEN 

^ ^ BEGIN fm; go to sleap end; 



IF REPLYtPlMIX3,tCF3*VFM THEN 
IF {T»«BEPLYCPiMIX].tFFJ) NEQ 
BEGIN ^ , _JIL 



LA8ELTABLECT3»»f li4> 

iAOFWf ■■■■ 



20 AND T NEO 21 THEN 
lUEGAL UNIT. 



RRRMtCH«*RRRMECH AND li 
SaVEWORO'sSaVEWOKD AND T; FMi GQ SlEAP 
$ SET OMIT » NOTfRjl:. AND DATACQW ) 



END ELSE 
IF T/V THEN 
3L&lh 



LAB£LTABLEtT3 »* 
RDCTABLECT3 J* 

MULTJTABLEtT] «s 



% SWITCH UNTTS. 



LABELTABLECV3; 

RDCTABLECV3; 

MULTITABLELV]; 



LABEtTABLECV3 := MulTITABLECVS 
FP8[6].[36«63»»{VJ»T)+1I 



IS RDCTA8LECV3 l« o' 



ENDJ 



END/ 

formtogi=(Formtlg 
stgnedoni=true; 



OR PUNCHLCK AND V = 22) AND NOT (DSED OH (STED)i 



GO EX1TT0C0M19; 
AB0«TMS6t 



% AB0RTED»3 iMPLltS ABORT HAS OCCURRED. CURRENTLY* NOTHING ATTEMPTS TO 
X DISTINGUISH gET^EEN 1 ANp 3» BUT ABORTED ^lUST Bg SET HERE FOR TAP^ 






So WHY NOT MAKE It OIFFEHENT* 



STREAMCTI=DSED 
BEGIN 

DSi«a LIT' 



cijsci+t; GO 
DH»Di+24; 

DS>a34 HT" 



OR QTED# B); 

»"; sii8b; Ds>j'i6 wDs; di>sb; 



TO A6> 

BACK'^UP TERMINATED BY OPERATOR 



12855000 
1?85^5QQ 



0079« 1 
O Q9 1« 



12856000 
l2tS«300 



0082J2 
008313 
. 95 «0 



12857500 

12858000 

12B'58'S0Q 



008711 
0089«1 

0Q9QI3 



12859000 
12859500 
1P86QQQQ 



0092»1 
009511 
009ftlq 



12860500 

12861000 
12 861500 



009B«1 
009a«2 
0099» , p 



12862000 
l?a625Q0 



12863000 
12863500 
I2fl6400n 



0l08»l 



12864500 
12865000 
12865500 



0U4«0 
0115 J2 
01 1 9M 



0U9I3 
OlZl»0 
012210 



12866000 
12866500 

12667000 



12873000 
1287350C 
12B740QQ 



Ol24«2 
0i25«3 
0l2fl'2 



12874500 
12875000 
12875SO0 



0128*2 
0128*2 
Q12 9M 



1287^000 

12876500 
i3fl77nQn 



013011 
Ol3l»3 
133M 



013413 
0i38<0 
Ql4l»2 



12877500 
12878000 
l?87e'>QQ 



12879000 
12879100 



1 4 1 J 2 
014112 
Ql47n 



0148 « 2 
014910 
O l #f?0 



12879600 
12879610 
12879620 



0149»0 
014910 

014910 



12879630 
12879640 
12880000 



014910 
014910 
0149»0 



I288O5OO 
12881000 
12861500 



GO TO lend; 

Ab« DnaDl + 34* OS;sll LIT" 
lENDt 



12882000 
12882500 
12883000 



0149*3 
0l53«2 
0153»2 



ABORTED "i 



;:iitiii 

IF VX22 AND SI6NED0N 



12883500 
12884000 
12884500 



015512 
015611 
O i5 » »2 



BEGIN 



itiii'iiO';. 



016110 
016111 
0163 «1 



016311 
01 6510 



I28865OO T 0l66»l 



47 1 

48 
49 
50 ( 
51 
52 
S3 ( 
, 54 
56 
58 ^ 
57 



• • 



2 
3 
4 
6 
6 
7 
B 
9 
10 
11 



12 

13 j 

Hi 

IS; 

16 

17 

IB 

19 



20 
21 



22 
23 
24 
2S 
2< 
27 



28 
29 
30 
31^ 



J2 
33 
34 
35 



36 
37" 

38 
39 

40 



42 

43" 

44 

46 
46 
47 
18 



49 

SO 



51 
52 
S3 
54 



SS 

58 ,„; 



STREAMcb*[L0GlNF0tl3]*T«-0»B); 



24(Sl«.SH.ew DS*l6CHRf 






end; 

kvRlTEBANDEjECTi 



end; 



GO TO EXITT0C0M19; 
PARERRt 



% 
% 



BUILDS ERROR MESSAGE F QR gUTPUT AnO AluuWS QPERAToh Tq qk QR 0^ 

1 I 5^^^U|ED J0_ PASS JAC^^^^^^ pR^ NOT TO TERMINATE » 



iP'liiiliiiiiiiiiliM 

STREAM tAI«UMT> T I «T »«SPArF C IS ) > t 



BEGIN 22(DSi>»2 

IF Sc*"R" 

nS8-6 LIT 



LIT ♦'>>");si:*iQc a;sii«si+7; 

THEN OS 1=6 HT •• DISK " ELSE 



TAPE "; 



END 



DSJ»26 Lit "PARITY ON PRINTER gACK UP »i 
22(DS«s2 LIT «>>»♦); 
STRf am; 



why; 



SET QMIT s NOT(RjE AND DATaCQM 
PCWAlTiaCT«i6CCTF3*0*V)*DEL); 
FCRCiETSPACECT); 



) 



fi1.eMeS8{'*#parity«,o»o^"errOh "*o*o»0); 

REPLYEPlMIX3»g"VQT4VWY[36t<t2t6 3&V0Kt3Ol^2»6 3; 



COMPLEXSNOQ2E(MlXMAX*REPl.YtPlMlX3 G^Q OR OSeD OR STeDj; 
12a6l500 ACCIDENTAL ENTRY AT 

IF NOT WHYSLEEP(VQT&VWY[36»42»6]&V0K[3O>a2>6]) THEN gO TO WhYj 



Ti«ftSEO OR OTEOi 
EXlTT0COMi9t 



PfO#RDSfO»XCH»CFX»STF)f 

"■ " " " " ■■" PRINTER 



End of SECOND GROUP UF 
PROCEDURE CQM19; 



BACKUP SPECIAL CAsEs; 



12887000 
I?8e7'i00 



12868000 

i28easoo 
lafteypno 



T 
JL 

T 

T 
4- 



0166«3 
OI68M 



017013 
017211 

Qiraii 



12889500 
12890000 
12fl9Q500. 



12891000 
1289U00 



0176«0 
0176 J 1 

017710 



12891600 
12891610 



Ol77»0 
0t77l2 
1 771? 



Ol77«2 
017712 



1 2691 620. ..T 0l7. 7« 2 



12891610 
12692000 
1P8925QQ 



12893000 
12893500 
1?89^0Q0 



017712 
017>I2 
Qt7flM 



12894500 
12695000 
l8flQ*>500 



0l8n3 

Ol83«l 

JIU51J1. 



12896000 
12697500 
12898000 



0],66i(0 
0l89»2 
01901? 



12898500 
12899000 
12899500 



0l90«3 
0l90«3 
0l9 2 » 3 



019312 
0l93»2 
Ql95t3 



12900000 T 0199»1 
12900500 T 0208'! 



12901000 
12901500 
1P902Q00 



0211»2 
0215«0 
0gl5»Q 



X 

X 

% 



% 
% 

% 



C0M19> TOGETHER WITH PHnPbTSP£C aSEI aNQ PRNPbTSPEcaSE2 WHICH SHaRE 
ITS STACK, ABE IHE vvORKiNG PART OF PRInTER 6ACK-UP» InPqHmaTIoN IS 
PASSED TO C0M19 IN COMMON AND LABELTABLE* AS FQlLOWSJ 
CDMMDN«E43t53 LOGICAL UNIT NUMBER OF OUTPUT UNIT. 



START OF REt SEqMeNTJ DiSK 

I3OOO1OO 
13000110 



12902500 T 0217»0 

SiZe» 0220 WORDS 
13000000 T 0000»0 



T 
% 
% 



C38«53 



INPUT UNIT NUMBER. IF DISK* THE LABElTABlE ENTRY FoR 
THE OUTPUT UNIT CONTAINS THE FILE ID. 
NUMBER OF COPIES SPECIFIED IN PB MESSAGE, 



13000120 

13000130 
13000140 



addRess • 

T 0000>0 
T 0000»0 

T 0000«0 



00322 



C22«83 IF Tape* starting file NUMBER GIVEN IN PB MeSSaGE. 

IF DISK* =0 IF ENTIRE PACKET IS TO BE PRINTED* »1 IF 

NUT. 



I3OOO16O 
13000170 
13000180 



oooo«o 
oooo«o 



oooo»o 
ooooto 
ooooto 



% 
% 

% 



% 
% 

BEGIN 



C21IU ON IF «sOn APPEARED IN PB MESSAGEt ~ 

FOR RJE* COMMON XS THE AQORESS OF A TWO WORq ARRAY, THE FIRST WORq 
CONTAINS THE INFORMATION OESCRIbED ABOVE AND THE SE COND CONTAINS THE 

File jd for disk (which is in labEltablE TOr non-rje fil^s), — 



13000190 
13000200 
13000210 



0000«0 

oooo«o 

OOOOJO 



13000215 
13000220 
13000230 



0000*0 
000010 
000010 



»Rlii«iili^llliiiiiiPiiss^^ 

REAL SEARCHVAL* CURRDw* KiRSTFID* SEGNRj 



130002''*0 
13000250 
13001000 



ii'" '■ ■ 



000010 

OOOOiO 
0000 »0 



m 



liiiili" 

OOOOIO 
OOOOIO 



13005000 T 0000:0 



n 

2 
3 

4 
5 

6 

7 



9 
10 



12 

13 

14 

15 

16 

17 

18 

19 

20 I 

21 

22 

23 < 

24 

2S 

26 ' 

27 

28 

29 

30 

31 



32 

33 
34 

35 
36 
37 
38 I 
39 



• 



42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



• 

m 



m • 



2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 

is" 

20 ' 

21 

22 

23 

24 

2sk 

28 
29 

30 

31 

J2 

33 

34 

3S 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



REAL XsSEARCHVAL* NUM»CUhKOW» REC0UNT«SEGNR; 
BnOLEAN SIGNEDQN* FORMTDG> ABQRtED; . 



13006000 T 
13007000 T 



OOOO'O 
cioqc\tr\ 



BOOLEAN NOCONT«FIRSTFIO; 
SET OMIT m NOT PACKETS 
HFAL PFl R9T FI D»FIR STFlnf 



Pr.QPYarnPYi 



13008000 T 
J3P09000 T 
13Q13000 T 



ooooto 

0000»0 
QOQOlin 



$ P 

$ s 



OP 
ET 



OMIT 

UMiT 



OMIT 

s NOT 



Rjt 



13014000 T 
13015000 T 
UfnytOCl T 



000010 

ooooro 

.0000 >0 



X 

% 

JL 



THE LOCAL 
ARRAYS 
INREC 



VARIABLES ARE USED AS FOLLOWSI 

AHRaY OESCRIPTQR for THF current RECORD, 



i30iruo T 
uoi/iao T 

13017130 T 



0000»0 
000010 

ooooto 



% 

X 
X 



FPB 

LOG INFO 



FPB ARRAY, INPUT IS THE FIRST FlLEi QUTpUT THE 2ND* 
ARRAY IN WHICH THE LOG ENTRY IS BUlLTt THE FIRST T^N 

WQ gpS are; the C UNTHQ L card entry; the next 10* THE 

PRINTER 8ACK»UP ENTRY ANO THE LAST 10» THE FILE EnTHIES. 
DISK FILE HEADER. 



13017140 T 
13017150 T 

1,301 7 i<&g T 



00OO»O 

ooooto 

OOQ OfO 



% 
X 
X 



HEADER 
Rg-ALS 



t30l7lfa T 
I30l?l86 T 
13017190 T 



ooooto 
ooooto 

QQQflin 



X 
X 
X 



UNIT 

V 

COPY 



LOGICAL UNIT NUMBER 
LOGICAL UNIT NUMBER 
NUMBER OF COPIES OF 



FOR INPUT, 
FOR OUTPUT. 
THIS FILE TO 



BE PRINTED. I F n IS 



13017200 T 

13017210 T 
I30l7g20 T 



ooooto 
ooooto 
ooooto 



X 

% 

X 



MFID 
FID 



NOT SPECIFIED, IT EQUALS 0, 
MuLTi-FILE ID OF INPUT FILE* 
F IU E ID OF INPMT FI lE » 



13017230 T 
13017240 T 
13Q17?5Q T 



ooooto 
ooooto 
ooooto 



X 
% 



100, 
B 



TEMPORARY STORAGE, 

ADUKESS UF 90 WQKO BUFFER FOR INPUT, 



13017 2<>0 T 
13017270 T 
13017280 T 



0000*0 
OOOO'O 

oaofltn 



X SIGNEdON ON IF LOGGING IS INITIALIZED. THIS SHOULD BE OFF ONLY 
X FOB FILES WHICH DO NOT START AT THE BEGINING# E.G,* 

* WHEN A STARTING Heel IS SPgClFlFn ON DISK. 



13017290 T 
13017300 T 
13 1 7 31 T 



ooooto 
ooooto 
ooooto 



X FORmTOG on .IP FORM IS SPECIFIED OR PNCHlQCK IS SET. 
X ABORTED *l> OiSK ABORTED by H/L.ChECK iN GET TO FIND 
X =2* TERMINATION Due To CL OF INPUT TAPE WhIlE 



OUT WhERE. 
SCHEUULED. 



13017320 T 
13017330 T 
13017335 T 



ooooto 
ooooto 
ooooto 



X 

X 

X 



■3' TAPE ABORTED BY H/L« FOUND BY RECOUNT MISMATCH. 

THE FOLLOWING APP LY ONLY TO DISK FiLESt 

PARAMETER FOR DIRECTOrYSEARCH , 



13017340 T 
13017350 T 
13017360 T 



ooooto 
ooooto 
ooooto 



T 
X 
X 



SEARCHVaL THIHU PARAMETER FOR DIRECTOrYSEARCH, IT IS 3 OR 5 DURING 
PRINTING, DEPENDING ON WHETHER IT IS THE FIRST COPY OR 
NOT, AND 13 OR 7 DURING FILE TERMINATION. 



"X CURROW INDEX OF THE ROW CURRENTLY BEING PRINTED. 
X FIRSTFIO FILE ID OF FIRST REeL# USeO F0« MULTIPLE COPJeS Of 

X multi»reel files. .■■■_:_ 

"X SEGNR NUMBER OF NEXT SEGMENT TO READ FROM THE CURRENT RQW 
X 
X THE FOLLOWINS APPLY ONLY TO TAPESl 



13017370 T 

13017380 T 
13017390 T 



ooooto 

ooooto 
ooooto 



13017400 T 
13017410 T 
13017420 T 



ooooto 
ooooto 
ooooto 



13017430 T 
13017440 T 
13017450 T 



ooooto 
ooooto 
ooooto 



45 
«6 
»7 
18 
«9 
50 
51 
52 
53 
54 

ssf 

56 ij 

57 i: 



X 
X 
X 



X 

NUM 
RECOUNT 



TEMPORARY 
NUMBER OF 
NUMBER OF 



STORAGE. 
CURRENT FILE ON 

RECORDS Printed 



TAPE* USEO FOR COPIES. 

IN THIS FILE. THIS IS CHECKED 



13017460 T 
13017470 T 
13017480 T 



ooooto 
ooooto 
ooooto 



X 
X 
X 



Nocoin 



AGAINST THE C-FIELD OF THE 10 DESCRIPTORS IN THE FUE TO 

SPOT ABORTS, 

TRUE IF CONTINUATION FRQM FILE TO FILE IS NOT ALLQWEO. 



13017490 T 

13017500 T 
13017510 T 



OOOOjO 

ooooto 
ooooto 



X 
X 

X 



THE FOLLOWING APPLY ONLY TO PACKETS? 

PCOPy NUWSfcR OF COPIES FRQM PB MESSAGE^ WHICH MAY APPLY TO THE 



13017520 T 
13017530 T 
13017540 T 



ooooto 
ooooto 
ooooto 



X ENTIRE PACKET, "COPY" IS SET ONLY FROM LABEL EQUATION, 

X PFIRSTFID FILE ID OF FIRST FIlE IN THE PACKET, USED FQR COPIES OF 
_X THE PACKET. FIRSTFIQ APPLIFS TO INDIVIDUAL FIVES WITHTN 



13017550 T 
1 301 7560 T 

lag 17 570 T 



ooooto 
ooooto 

fiOflO'O 



m 
m 






ass. 



WM§iM§^KUim^immmmkikmi^^^ 



wimk 



iim§^mmmiimx^mmmimmmM:mmmi^ 







w 



THE FILES SPECIFIES MULTIPLE COPIES, IT IS USED TO 



13017610 T ooooto 



• • 



% 



ttESTQRE THE VALUE OF 3 TO SEARCHVAL WHEN THE FILE i S 
CDMPLETEO, 



% 
X 



13017620 
13 1 7 6 10 



OOOOiO 
OOOQtQ 



THE FQLLOWINQ APPLIES ONLY TO RJEI 

STA TEBMINAL UNIT AND B^FFrR NhMBER OF THE RJE TE RMINAL. 



13017640 T 
130176S0 T 

noirrtftQ T 



OOOOIO 
0000*0 
OOQQItO 



LABEL TRYnExT» TAPEROR, TAPERD* TAPECHK, ABORT* NQGET, GOTTEN, 
STARTf RE$T/^RT* MAI NLQQ.p^ QUIT/ T^gTENP; 



13017670 T 
13Q18000 T 

1301^000 T 



OOUOIO 
0000 JO 
0000*0 



DEFINE OSEO « <TeRMIX , t CF3«PIMIX )i, 

OTEO * (PRTtPlMlX#«»253X0)#i 
OFF INF LOOkFOBTAPE » PRNPBTSPEC ASEl C 3»# 



13020000 T 
13021000 T 
l?t022QQ Q T 



ooooto 

0000»0 
QQOQIQ 



10 

11 

12 

13 1 

M 

15 ,;i 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

IB I 

26 1 

27 J 

28 

29 

» 

J2« 

33 

34 

3S 

36 

37" 

38 

39 

40 

41 

42 

43" 

44 

4S 

46 

47 

•8 

49 

51 
52 
53 
54 



nomoRereels 

QTSpEC 
INITIALUE 



= PRNPBTSPECA5El(n#/ 

= P(PHNPbTSPECASEIC2)*0EL)*' 

* PRNPBTSPECASElQjf* 



1 3023000 T 
13024000 T 
l3025QqQ T 



Ooooto 

0000*0 
■Qfl.Q.Qt.P 






13026000 T 
13027000 T 
UOZ flQ O Q T 



adooio 
aoooio 
oo<rts»o 



PARERR 



PRNPBTSPECASE2(2)J<f; 



%*****«:*********************«*****«*********** ***** ********************* 



13029000 T 

13030000 T 
13031000 T 



ooppio 

0000«0 
0000«0 



BOOLEAN SUBROUTINE GET; 
BF GIN 



13032000 T 
13033000 T 
13Q34QQ T 



0000*0 
0000*0 
QQQ1*Q 



IF INReCC17].C20*1J THEN GO TO NOgET; 
IF CiNRECJaCNOT 17) INX INREO.CCFJ GEO B.CCFJ THEN 
IF UNITX18 THEN GO TO TaPECHK ELSE 



13035000 T 
13036000 T 

1 30 3 ^ 000 T 



0001*0 
000213 
0006* 



ELSE 

IF UNiT'ie Then 
6g:Q lN 



% READ NEXT BLOCK 



130 38000 T 
130 39000 T 
1 3 0400 00 T 



0007*1 

oi:jo7i 3 

00 091 Q 



IF SEGNR > HEADER[:7]X3 THEN GO TRYNEXT^ » END OF FIlE 

IF (SEGNR GEQ HEAOERt 8^ -I) THEN 

BEGIN % END OF RQw 



IF (CURROW«»CWRROW+U QEQ HEADERC9 J , C43I51+10 THEN 

IF NOMOREREELS THEN GO TO NOGEt; 
S£6NR*gOJ _^ 



13041000 T 
13042000 T 
1 3043 99 T 



ff 



0009*2 
0011*2 

00l 3 » 



TRYNEXT* 



13044000 t 

13045 000 T 
13046000 T 



0011*2 
001612 
0018 »g 



End; 

INRECJ*90 INX INReC/ 
DlSKlOClDD>»B/90,hEAOERtCURROW]-«'SEGNR); 



13047000 T 
13048000 T 
13049000 T 



0019*1 
0019*1 
0020*3 



SEGNRJ»SEGNR4-3i 
SlEEP(CIODJ*IOMASK)| 
IF lOPtC28*U THEN 



13050000 T 
13051000 T 
13058000 T 



0023*1 
0024*2 
0026*0 



BEGIN PARERR; 

IF T THEN GO TO nQGEt; 

end; 



% OSED OR ajED 



13053000 T 
13054000 T 
13055000 T 



0026*3 
0028*0 
0029*0 



IF ABORTED THEN X TEST FOR BAD lO DESCt 

IF (MCB INX 183,16*423 E^V " " )»NOT THEN 

GO abort; 



13056000 T 

13057000 T 
13058000 T 



0029*0 
002911 
0033*3 



END ELSE 
BEGIN 
TAPERDR* X»aO; 



* TAPE 



13059000 T 
I3O6OOOO T 
13061000 T 



0034*1 
0034*1 
0036*0 



Taperd* 



IF CIOO»»WAITIQ(8'P2000040'UNIT)), [43*13 THEN 

SEfiiN pa«err; 

IF T THEN GO TO NOGET ; * PSEP QR QTEQ 



13062000 T 
13063000 T 
13064000 T 



0036*3 
0039*0 
0040*1 



end; 

if i0d»c42*13 or x then 

BEGIN 



13065000 T 
I3O66OOO T 
1 3067 OP T 



0041*1 
0041*1 
00.42*2 



55 i 

56;. 



liiiiif 



msm 



MMMISiMiBSi 



'm^-iam^/iMlm 



iiiiiiisiissiiiii&:::ir" 

iiiiaiiiiliS«iiiiiliiiiiii^^^^^^ m^mi 



Mmmmmmt 



0044*3 
004611 



J? 



END. 



13071000 T 0048*2 



2 

3 



12 



19 
20 



23 



25 



28 



29 
30 



33 

34 

35 

36 

37" 

38 



4S 



»7 
18 



»9 
SO 



S2 



55 

56 



IF (X:»MCB INX NOT 0]jX90 THEN 

IF CX AND Py77i3)ai6 THEN X OLD FORMAT TAPE 



BEGIN 



INRECtCFJiaB INXII 

TNREC r 1 7 U »M f a 1 KQT9Qt >Qt 7 1 J 



END 
ELSE 
BEGIN 



ELSE GO TO nQGET 



tAPECHKI 



iNREC»»90 INK INRECI 

IF CRECQUNTiaHECOUNT INX 1) / INRECC 1? 3 . CCf J ThEN 

MEG IN - ..... __. , . ^ 



ABORT* 
NOGET: 



abortmsg; 
G Q TO g qtt e n ; 



end; 



end; 



END 1 



gotten* 

ENDf 



pen; 

GET««Pi 



X 
X 
X 



START IS USED FOR A NEW FILE 
A COPY COR A NEW FILE WITHIN 



COR NEW PACKET ). 
A PACKET). 



RESTART Is USED fQR 



START! 
IL. 



C QHMQN=0 THEN 6 T Q INITIATE; 



IF INITIALIZE THEN 
BEGIN . 
RESTART! tF GET THEN 



BEGIN 



IF INRECC i7].C 1J11J»0 THEN SIGNIN; 

IF UNITM8 THEN RECOU nT » « I NRFC [ 1 7 ] . C CF 3 ; 



END ELSE 
BEGIN PCD; 

GO TQ TESTENDJ 



X BAD FIRST BLOCK* USUALLY EOT. 



MAINLCOPJ 



end; 

TF STOPJQB=PlMTX THEN STQPMtQ); 



IF (TlsPRT[PlMIX*P253)X0 

BEGIN 

IF T<0 THEN 



OR OSED THEN 



X * DR ^ SPrrTFiEn. 



BEGIN 



fiTSPEC; 

S Q TU HA I N LO QP; 



ENO; 

abortmsg; 
GO TO quit; 



X DSEO GR «TEO 



end; 

IF GET 
BEGIN 



13072000 

U0730QQ 



0048*2 

onaui 



13074000 
13075000 
i^076nQn 



0053»0 
00S3t2 
005512 



13077000 
13078000 



0058«2 
0058«2 
QQ 58« ? 



130 8 00 00 
13081000 

l3Qfl20QQ 



0061 10 
0062 » 2 
006510 



13083000 
13084000 
13065000 



0065«2 
0066 1 1 
Q066«2 



I3O86OOO 
13087000 
l^QflflnOO 



006710 
0067«0 
0Q67IQ 



13089000 
13090000 

no9inOQ 



0067«0 
0067«1 
0Q67«2 



13092000 
l3092olQ 
13092020 



0067»3 
0067«3 
006713 



13092030 

13093000 
M094n00 



13095000 
13096000 
13097000 



0067«3 

0067'3 
0Q7?n 



007at2 
0075M 
Q075I3 



13098000 
13099000 
131Q1 Q00 



007710 
0077«2 
Q9 QM 



uio^ooo 

13*03000 
131Q40QQ 



008310 
0063(0 

Qoa:^n 



13105000 
13106000 
13107000 



0084»1 
008411 
OOflOM 



13108000 
13109000 
IIIIQOQO 



0086 1 1 
0089»3 
QQ9 Q11 



13111000 
13U2000 
13113000 



009 1«0 
009l»2 
0092t? 



13114000 
13115000 
131160 00 



0093*0 
0093J0 
0093 > 3 



THEN 



i VALID REC, WRITE IT & CONTINUE 



$ SET OMIT « NOT RjE 

P(WAlTl0(INRECCl7]&ClNREC)tCTC3&aC2l»42»6 3*0>V)*0EL); 

GO TO MAINLOOP; ____„________ 



13117000 
13118000 
13 11 9000 



0094«1 
00941 1 
009510 



13120000 
13126000 
131290 00 



0095 » 2 
0095»2 
009910 



end; 

QUITJ 



end; 



13130000 
13131000 
13132000 



0099»2 
0099«2 
0099»? 



.■■.■■■■ ■;W»l.:Mr.:--: .:....•■•: .■■■^... 

tf.s.«iiiii^:fa...:.;:::¥.V;:;:'::.:;.ui.a- 



liiiiiiiiii^i;iyEiv.rtiL3.r^:.ELSE . o > 



THEN GO TO START ELSE GO TO RESTART; 



13133000 
13U4000 



009912 
0099»3 
0099 < 3 



13136000 T OlOO«l 



^ 



4 
s 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

46 

46 

47 

46 

49 

50 

51 

52 

53 

54 

55 

66 

5? 



• 
• 



m t 



>r 



End of printing backup tape and uisk files; 



13J37000 T 



U^ 



0102«0 
» 0103 



WORDS 



1 

2 
3 
4 
S 
6 
7 
8 
9 
)0 
11 
12 



$ SET OMIT » NOTCOATACOM ) 
$ SET OMiT • NOTCOATACOM AND 
REAL PROCEDURE ANALYi>lSU 



RJt ) 



13198999 T 
13299999 T 
IflOQQQ QO T 



OOOQtO 
0000 « 
OQooto 



START OF KEL 



BEGIN* 

B ^ AJ, ICIN*IHCW*INCW#CLM 1»C»T2» SYLLABLE 



segment; Disk 
uooiooo 

U002QQQ 



ADDRESS « 
T 0000«0 
J QOQO»n 



0Q326 



* SET OMIT e NOT(NEWlOGGING) 
LABEL GETOUTiJ 
COMMENT aNaIYSIS EXaMINS THE 



SYLLaBUE which CAUSED THE INTUrrUPT aNd» 



U002099 T 

UOO3OO0 T 
U004Q00 T 



OQOOIO 
000010 

ooooto 



FROM THE RELATIVE ADDRESS OF THE SYLLABLE (InClUOInGX 
VARlENt OPERATOR CONSIDERATIONS) COMPUTES THE LOCaTiON^c 
OF A COPY OF THE DESCRIPTOR ON THE TOP OF THE STACK^X 



U005000 T OOOOiO 

iaoo6ooo T oooo'o 

U007000 T 0000»0 



13 



15 
16 
17 



THE PREVIOUS TXQ SVULASteS A«£ FETCHED BY 
STATEMENT OETSYLLASlES WHICH ALSO ADJUSTS 
ERS PROPERLY,* 



THE STREAM* 
THE C-L REGIST* 



U008000 T 
U009000 T 
UQlQOQO T 



OOOOIO 
0000*0 

ooo ofn 



FINALLY THE STACK IS ADJUSTED AS FOLLQl^SU 

DECREASE S flY i,IF QPDC OR DESCiH 

XCH A AND R REGISTERSMF CUC QR r.DC* 



UO 11000 T 
U012000 T 
U013Q0Q T. 



0000 «0 
OOOOIO 
O QCQl iL 



19 
20 



21 
22 
23 
24 

26;? 
26 



otherwise leave the same, 
checkstackspace;* 

S SET OMIT a> NQT<Neif«Lf.)fifi|N6 ) 



XWF 



1401«000 
1 401 « 100 
14014199 



T OOOOIO 
T OOOOIO 
T OQQftiO 



27 
26 



29 
30 



INCW «• »RT[PlMlX*8];ai 
POLlSHC.INCrt,IOR);* 
iRrW 4- * TNCW i% 



ICW «■ *( (NOT 0) InX INCW);X 

CL ♦ (lecw INX 0) & iRCMtaot io«23;x 

STREAM fTl«-0#T9»Q/rLtX«.Qi;X 



000610 

000712 

UOiypOO T 0008 I 0- 



UOibOOO T 
14016000 T 
|017( 



I4OI&OOO 
14019000 
14QP00Q0 



BEGIN* 
Si«-cL; 

OS «• 2 



000910 
001013 
Q Qlal Q 



Sl*Si-2 ; 

chr; SI «• 



CU *■ S I ; 

si - 3;x 



01 *■ LqC T2; D|*Dl + 6;* 



14021000 
14022000 
HQ230 Q0 



001413 
001413 
00 ^ 61 



31 
J2r 



33 

34 

35 

36 

37' 

36 

39 






14024000 T 001612 
14025000 T 001710 
14026000 T 001710 



BEGIN TALLY«-i; ti«-tally ;cl «■ SI end;x 
tND;x 

END GETSYLLABLE ; :* 



14027000 T 
14028000 T 
14029000 T 



001713 
OOI8I2 
001812 



P0UlSH(.CL#«-#.T2#**»Tlr*)?S 
IF iNCWrE32ll3 THEN* 

BEGIN COMMENT PyQlT IN 



CHARACTER MOSI n 



14030000 T 
14031000 T 
14032Q00 T 



001613 
002011 
OOZltQ 



45 



♦7 
18 



SO 



52 
S3 



56 J 



IF T2 » ?4441 THEN* 

BEGIN COMMENT ENTEH CHARACTER MODE;x 
P(M|;{ iRci^ ♦• *(N0T INX INCW 



» PRTIPlMlX^aJ ** 



CNOT 1 INX lNCW)&0C32llin)).U8ll5]3&X 
l[l6:47«l3&0tl8ll8ll53*(N0T OiNX iNqW**); 
INCW INX -2;* 



14033000 
14034000 
14035000 



I403ft000 

140 37000 
14O38O00 



T 
T 
T 



END ELSE BEGINX 
IF MEmORYc c «- IRCW.tlS: lb J-T2,t36«633,tl53] = 4X 
THEN* 



002112 

002211 

002213 

002411 

00291 3 

003212 



U039000 
I4O4OOOO 
14041000 



00 34 «1 
0036«0 
003913 



COMMENT 



BEGINS 

IF T2.C42«63» ?53 THEN BEtiINX 
CONTROL WO rO means CHARACTER MODE RELEASE;* 

Tl*-P«TLPiMlx*9]«-MCl*C(N0T DINx INiCw) i . [16 j15 J] . [33 il5 ]; X 

poliSh(m[ti3#o*o);» 

IF MCT13,[20U] THEN CONTlNUl TYBIT; X 



14042000 
I4O430OO 
14044000 

1404^000 
14046000 
14047000 



^i&ff' 



^'fiiWihVmiri'^inluf!i^i't& 




W^'t'TWiftl^^ 



1 

U04f00f. 

14051000 



004010 
004012 
004211 
00^^211 

004712 
004910 



T 
T 



t05|t:0 
O0il.*,0 



>r 



END% 



LNDX 



U052000 T 
UQ5.30Q.Q T 



005311 
Q053«.l. 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



EuStX 
BEGINX 



THEN* 



14054000 T 
U055000 T 
I ft OSOQ OQ T 



0QS3I1 
0053U 
00 5 3^ 3 



BEGIN* 

C *■ lCW,t33ll5]U 



INCW/> »«IRCW>» 



U057000 T 005^»2 
U058000 T 0055«0 
U05 9 00 , T . P$<» . « . 1 



PRTCP1MIX*83*INCW 
END OPDC OESC 



♦ (NOT 
PARTX 



OJINX INCW #*);» 



F-LSFit 



U060000 T OOSstO 
14061000 T 006111 
14062000 T Q06ni 



BEGIN* 

C *■ INCW INX 

IF (Nil *• Tg 



"2;* 

AN p g/7) ' 



g^ ;, TH EN» 



14063000 T 
14064000 T 
14065000 T 



006111 
00 61 « 3 
0063*2 



13 
14 
15 



BCfilN C ♦C-1 i% 
POl-I5H(MEMORY£C3#MEMORYtC + l3*C»*EMqRYtCn# ♦ 



CMEM0RYtC+i3 



14O66OC0 T 0063(1 
1406/000 T 006710 
U06flOQQ T QQ7H1 



16 
17 
18 



END CQC CDC PARTX 
ELSE IF NTl » 931 THEN* 
BEQIN COMMENT THIS 



IS A t?RANCHJ?i 



CU «• P{lPRTcPlMlXM33'OUP#T2»XCH»*) INX #600000i 
END BRANCH PAKTX 

P35 Thfn go TQ fifTTOUi; cO><MfNT rfturni* 



14069000 T 007210 
14070000 T 0072»0 

U07I000 T 0073n 



19 
20 
21 



GETOUTl 
E LSf if NT l 



14072000 T 007313 
14073000 T 007610 
14074000 T 007613 



22 
23 
24 



END AUL SYLLABLES BUT OPDC DESC i% 
END <<ORD MUDE INTURRUPT }% 
PO LlS HC lRCi^ S CLI33i33»153^CI„nO»3q«21»I N C >y>»? }% 



14075000 r ooaou 

14076000 T 0080«l 
la 077n O Q T Q0 80«l 



2S 
26; 



ANALYSIS *■ C i% 
$ SET OMIT » NOTCNEWuOGGlNG) 

am ANALYSTS ar p rtt 



JJL 



14078000 T 0082*2 
14078099 T 0083*1 

U07^000 T — o oe jii 



28 
29 



SAVE INTEGER PROCEDURE ACtuALOVERLAYAODRESSC TYPE, MlX# LOC)* 



Size* oo84 words 

141 0^000 T 0000 »0 

START OF Save seg>^ent? raSf adoRfss « nOrtOi 



31 
32 
13 



VALUE 

mmmm 



i«i«':;,:;Wit*?^;L,.oc; 



l4t06Q00 T OOOOtO 
14107000 T OOOCjtO 
14108000 T OOOOtO 



34 

35 
36 

37 ~ 
38 
39 



$ SET OMIT • NQT(AUXMEM) 

IF TYPE THEN % CODE... 
BEGIN 



14108999 T OOOOJO 
14110000 T OOOOJO 
1 4 1101 00 T OQOQl? 



$ SET OMIT 



NOT(AUXMEM) 

LOC t» LOC INX 0; 

T "» >jarcmix,loc DIV 



CTt»JARCMiX»e3)*lOJ4LQC MOD Tj 



14110999 T 000l»0 
UlUOOO T OOOltO 
HUIOQO T 0002 tl 



40 
41 
42 



END ELSE X SETTER BE DATA, 
SET UMiT = NOT(AUXMEM) 
T*-DALQC[MlX#L0C.l33t6]<<-P(DUP)-n-»L0C.C39»9] 



14114000 T 
14U4999 T 
14117000 T 



0007J0 
0007«0 
0007*0 



43 



SET OMIT 

end; 



» NOT(AUXMEM) 



14117999 T 0010*0 
14119000 T 0010*0 
SyZE* 0012 WORDS 



46 
47 
48 



$ SET OMIT 

COMMENT 



NOT(AUXMEM) 

THE segment DICTIONARY IS CONSTRUCTED BY THEX 
COMPILERS AND EACH ENTRY HAS THE FQRMATiX 



14119999 T 0000*0 
14125000 T 0000*0 
14126Q00 T 0000*0 



49 
50 
51 



Clin • 1 FOR TYPE 2 SEGMENTS, «0 OTHERWISE,* 

C 2» 13 » 1 FOR INTRINSICS » » OTHERWISE.* 

I 31 13 ''I IF BEING MADE'PRES£NT> * QTHERWIJ^E 



14127000 T 
14128000 T 
14128100 T 



OOOOtO 
0000*0 

OOOOtO 



52 
53 
54 



(INTERLOCK FOR Re-ENTRANT CODE) 
t 4J 23 =0 FOR NORMAL SEGMENTS 

« 3 FOR SEGMENTS UVERLAiD TO AUX, MeM 



14128200 T 
14128300 T 
14128400 T 



0000*0 
0000*0 
0000*0 



55 '■; 

56" 
57:1 



WliM 



nikMiiM 






■-' ^.>.:i..n,;~./,-...,....-/.y...~,/.T,... ,.-...;„... ...■:„: ,:....^:-.. ,..,;: ,. ■■■.-■;...; .„.;...,m„,...,,....,.;,..^... i.-~ ■.^ j,,^ . ,; .m .; mrr .-n.,.,,,.;.^- .,,.,. . .r ,.■■,. ■.»■,.;..„.:..■.. ..v-.. ; ; . 

t 71 13 5 1 FUR C0BaL68 READ ONLY ARRAY, 






0000*0 
0000*0 

lieiiffefe'- 



55 
57 



14128800 T 0000*0 



• • 



t 8«103 « LINK TO PRT FOK 1ST DESCRIPTOR FORX 

..T..HiJ...,lfi.<iH|...N.T.,,.I,,,> 



1 

2 % 

3 'i 

4 

s 

6 
7 
8 
9 
10 
11 
12 
l^l 

isf 

16 
17 
18 
19 
20 
21 
22 
23 
24 
2G 
26 

" 

26 

29 

90 

Jl" 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 

«4 

45 

t6 

47 

«8 



■■■■■ ^■siiipipiippi»i#:^:■•v 



U129000 

ui 30oon 



UI31000 

uusodo 

lai33ftQQ 



0000 
OQOO 



10 



0000 
OQOO 



to 

10 
iiL 



= I FOR NEVER-PRESENT INTRINSICS.X 
t33»l5] 5 DliiK ADDRESS OF SEGMENT,* 

= INTRINSIC-NUHBEH FOR INTRINSICS** 



IflU^OOO T OOOOIO 
U135000 T 0000*0 
1«136000 T OOOOIO 



THE PRT FOR PROqRaM SEGMENTS IS CONSTRUCTED BY 

COMPILERS IN THE FORMAT IX 
f ni«i3 » PH QfiftAM DESCRIPTOR BITS, a 



THE* 



U137000 T 0000»0 
U138000 T OOOOIO 
U139000 T OOOOtO 



t 6 m 



lU- 



s STOPPER BIT WHICH DEFINES THE t 7«lUX 

FIELD...., X 

3......Um Tp NEXT DESCRIPTOR THAT BELONG^ Tpx 



uuoooo 
uiaiooo 

IfllftgQQO 



T 0000 
T 0000 
T QOQO 



»0 
10 

to. 



tlftil^l 



tiiiiiaipiijiiiiiiiiiiiipiii^^ 



14143000 
14144000 
1414*^000 









LABtl AND ACCIDENTIAL DESCRIPTqRS ,X 
a SEGMENT NUMBER FOR WORD MODE ANDX 
CHA>^ ACTE R I^OPE DESCRIPTORS, X 



14146000 
14147000 
14149000 



T 0000 
T 0000 
J OQOO 



«0 
»0 
IIL 




£331113 « CORE ADDRESS FOR PRESENT SEGMENTS. X 

» REUATIVE ADDRESS FOR ABSENT SEGM£NTS#X 
__._._ !»£> RELATIVE TO SEGINMING OF SEGMFNT.X 



14149000 
U150000 
UI 5 1 .0 



T 0000 
T 0000 
1 OPOO 



10 
10 



EACH PRT (R+4) CONTA 
TO THE SEGMENT 



INS A DESCRIPTOR WHICh POi^TSX 
ICTI0NARY,X 



14152000 
14153000 
1 4 15 40 00 



T 0000 
T 0000 
J 



«0 
«0 
10.. 



PROCEDURE MAKEPRESEnTCo; VALUE C; REAL C|X 
aEAlM . , 



START OF REL 



14155000 

sEqmenti disk 

— 14156000 



T 0000 
ADDRESS 
1 JSLOiUl 



«0 



L0_ 



OO329 



I 

o 
Q 



REAL SAVEBIT, MlNE;X 

REAL D#MaTHER'MOM^LOC'SlZE;X 

INTEqER DUKADDR » SAVEglliX 



DEFINE NoToPEN "casm #;x 

ARRAY NAME 00 U 



14157000 
14158000 



T 0000 
T 0000 
J O QOO 



10 
>0 



61 lJ#*PROQRAMDESCa{5li3)|ilX 



UldOOOO 
14161000 
14*62000 



T 0000 

T 0000 

J OQOO 



10 
10 



ARRAY AITC*J; 
ARRAY PRTRC*] )X 
REAL SeGnQ^MOTHER^ 



X«MOM#IoD ;x 



14162500 
14163000 
14164000 



T 0000 
T 0000 
T 0000 



10 
»0 
JO 



REAL SPftCEiX SPACE 
REAL MeS^SaGE'SM; 
t SET OMIT « NQT<NE>ILOGGING) 



FOR SEGMENT NUMBERS (INTRINSKSJ BY Mix 
X SPACE FOR NO MEM MESSaGE* 



LABEL 

LABEL 
LABEL 



"E^rrrr 

WRAP/A 
OeENjC 



X ALL aVeNuES MUST 

round/testrlady;x 
lose;x 



LEAD TO HERE 



14164100 
14164300 
14164399 



T 0000 
T 0000 
_t 0000 



«0 
»0 
10 



14164500 
14165000 
14)!66Q00 



T 0000 
T 0000 
T 0000 



10 
10 
10 



LABEL COOEIN 
LABEL OLOOP* 
DEFINE REVE 



COMMENT MAKEPRESENT » 
OF DESC 
DATA UE 



*INT| 

NG^ 
RSe '»C22U3»»READY 



AS THE FOLLOWING AC 

RIPTQR CAUSING PRESENCE BIT JX 

SCRlPTOR tX 



*C19ll3»iipRESENT ^»C2il3«l« 
TlONS#DEPENDiNG ON T^E TYPLX 



14 1661 00 
14166200 
14167000 



t 0000 
T 0000 
T 0000 



10 
10 

«0 



1 4168000 

14169000 
14170000 



:,:|PRE'. SPACE'. 
,|'TW,g^RSil««c:S«E 



AND SeTX 
AODRESSX 
SPACE ELSE* 



T 0000 
T 0000 
T 0000 



10 
»0 
JO 



:it;' 



50«; 

51 5 

52 

53 

S4 

55 



msiMmmm 



READ IN FROM DIS 
THEN SET 1ST MEM 
AND SET 2ND LINK 



14171000 
14172000 
UI73000 



T 0000 
T 0000 
T 0000 



10 
»0 
10 






K AND RttuRN DISK SPACEX 
DRY LINK TO SAVE OR NOT SAVEX 
to ADDRESS OF mOTHERX 



14174000 

14175000 
14176000 



T 0000 
T 0000 
T 0000 



»0 

«0 
»0 



MMiji 



'mMMSMi 



MiJSjmi'tissiM 



«ill» 




14177000 



aifiii 




PROGRAM DESCRIPTORJX 



14180000 T OOOO'O 



m • 



>T 



13 



15 
IS 
17 
IS 



20 



22 
23 
24 



26 
V 
28 
29 



30 

31 ' 



35 



36 

37' 



42 
*3 
«4 
45 
46 
47 
48 



49 
50 



52 



M 



55 'J 
56 ? 






BEGIN WHILE NOT CPRTHCX] ♦ 
GR MEMORY). stopper 00 
END RliNARnUNQ;:t 



CCl.OC + 2) INX PRTRCXJJX 
X * PRTRCX],LINKM 



$ SET OMIT - NOTCNEWLQGGING) 
ir (D » MCC3).[lin THCN% 



if 0.[6j23»l then x type 13 intrinsic 
Begin xi»eintrnsccsegno+mine*nflaqco) 

SEfiNningFGNQ'*!! 



INX 033; 



STREAM(Tr»S£GNO AND 3^ I >= t INTABUE CPlMlX# SEGNO DIV 433); 

BESIN Dl;=oi+T;un»Di+T;SKiP 1 D8;osuset;end/»mark type u bit 
ir x>o THfcN steep (i:x3*-o?/ 



S SET OMIT • MONITOR OR WOTCAUXMEM) 

IF (X INX QHlOZi THEN 
BEGIN P(ABStXt*CX3>*)J Sl2E«-X 



INX 0; 



$ SET OMIT s NOT(AUXMEM) 

OISKADOR »• X,[6J27]i 
MINE»MINE&Sl2EC6«3eil0]^3[l«46»2]; 



iooi«i3; GO TO couein; 

END ELSE BEGIN MC C 3 . C CF 3*lNTRNSct MINE 3 . t CF 31 
MCC3.[2I13I»1J i 



GO EXIT; 

END 



END ElSE 



BEGIN PRTR «• PRTtPlMlX**3i UOC * NFLAGC )&oC5 15 U 3; 
OO IF L0c»PH0gRAM0ESc THEN SEGNO «. U0CtCl8ll53X 

Et^E IF LOCtSTOPPER THEN SEGNO » LOCiLlNKit 

LOC *■ NFLAG(PWTRtL0c,LINK3)X 



ELSE LUC *• 
UNTIL SEGNOJiO;!; 
DO «• SEGNO INX PRTRUliA 



IF DOt0 3.C3U3 ANO TERMIX.(CF3 NEO 
C0MPL£XSLEEP((TEfiMIX,CcF3»PlMlX 

12900000 ACCIDENTAL ENTRY AT 1 

^ TERMIX.LCF]«P1MIX 



PIMIX THEN 

OR NOT DDt03»tHi3)3J 



IF 

IF (SIZE •■ (MINE *■ 
BEGIN ODCOj.Cin] 



THEN 



GO TO initiate; 

DDC03),tl8»l53)S1023 THeNX 



IF MIN£<0 THENX 

IF PRTRCX * MINEtCetl033a2»U THEN 60 ARQUND;X 
IF M.INE.C2U3 THEN»- 



8EGIN X ♦• CINTRnSCEMInE INX 033;* 

IF X>0 THEN SLEEP(CX3*-0);* 
IF (X INX 0)S1023 THEN BEGIN 



p(AaS(X)*cX]*»);ai 



SET 
SET 



OMIT 
OMIT 



SIZE ♦ X INX 
MONITOR OR NOT(AUXMEM) 
NOT(AUXM£M) 



0; 



DISKAODR ♦• X.C6I273; 
END ELSE BEGIN LOC ♦ (SIZE * X INX 0)-2; 

Doco3.[FF3 «• size; GO aROUND;X 



U161G00 
Ulfl?000 



OOOOJO 

0000! n 



uisdooo 

Ui 84000 
I4ifl500fl 



0001*0 
00011(5 



14185100 
U185199 
1416^000 



0007 « 2 
0007 J2 
QnQ7l? 



14186010 
14186020 

uiftflnao 



0013«3 
001512 
0018*3 



.,;>., .E-N©II- 



COOEJNt > 



Else dIskaddr t« codeadoress(Pimix» mine); 

I00««6XMINE,C2»13+CMINE LSS 0)+l; 
WHlLE(LOC«-GETSPACECSlZE*lODa(MlNE<0) 






ilSlifiilillliWi 
BEGIN IF TERMIX.tCF3.Pimx THEN 

wgmmmi^mxmmmmimmmmmMm, 



AND MINEtC6:n?*2)) 



INTRNSCCMlNE3l»NABS(*P(0uP)); 



14186100 
14186110 
UtR6l?0 



14186121 
14166130 
U 1 66 t 4Q 



0020 »0 
0022«3 
00?4>2 



0927*2 
0027*2 
0028*^ 



14186143 
14186148 
14186150 



0031 »2 
0031 J 2 
0032»3 



I«l86i52 
14186160 
14186170 



14186180 
14186190 



0S3St2 
003613 

0040 *1 



uis^'ooo 

14188000 
U189000 



004310 
0043*2 
004 3* ? 



00*3*2 
0047*0 
0048*1 



14190000 
14191000 
14192000 



14193000 
14193100 



005111 
0054*0 
0056*0 



0057*2 
0039)3 



I4I932OG 
14194000 
14195Q0Q 



14196000 
Ut970Q0 
14198000 



006712 
0069«3 
P072M 



0074*2 
0075*1 
OOTSig 



14198100 
14198200 
14198300 



007911 
008l«l 
0084»1 



14198400 
14198410 
14198499 



0087*0 
0088U 
0088*1 



14198700 
U198800 
14199000 



14200000 
14201000 
14202000 



0088»1 
008912 
0092M 



0094*0 
0094*0 
0096*0 



14203000 
14203010 

1 42 03020 



0096»2 
0100*2 
0103* 3 



142030«| 

l4'2'diiiift 



Qll QfO 



14203300 T OlUll 



A 



56 ' 
57 



• • 



IF D.L6»23»1 THEN 

INTH\ S C [D 3«=NABS(*p(D gP ? ?j 



DOtO3.t3ll3t«0i 

end; 



GO To initiate; 



TMP-N 



14203^00 T 
U2035QQ T 



U203600 T 
U203700 T 
tfl204flQQ T 



13»2 
JJLLX 



1710 
1911 

i9n 



BEGIN STREAMCflMlX»SIZE»Tls[MES3); 

BEGIN ilJ'LQC HIMIX; 0S»«2 DECJ 
DbtcflLIT** NO MEM *^;DS»8i> DEC; 



14204100 T 
142C4200 T 
H 2Q43 Q T 



21 
22 



a , 

10 

11 

12 

13'; 

14 

16 
17 
IB 
19 
20 
21 
22 
23 
24 
2S 
2fl 
27 
28 
29 
M 

31a 

92 

33 

34 

35 

36 

37 ~ 

38 



0S»»5 LIT " WDS*"; 

end; 

P . CHAniOU M£S }>ei77#8&?>P E t ) j 



14204400 T 
14204500 T 
lfl204<sOQ T Q. 



24 
25 



end; 

SLEEP(CCL0CK]*N0t CLOCK); 



XML 



14204700 T 
14205000 T 

14205100 T a 



27 
27 

2£ 






14205200 T 
14205300 T 
14205400 T 



29 
30 
11 



^'(WAlTiaC[MEi5]'Pl77#25)'DEL); 

end; 

DlSKlOdOO* 'LOC-l* StZE^ OlSKADDR); X *■ H iNE , C 8 » 10 3 > X 



14205500 T 

14205600 T 
14206000 T 



33 

35 
31 



SLEEPCClODJ^IOMASK); 
IF I00.t26«7] NEQ Q THEN 
BrGTN 



I42O61OO T 
14206110 T 

1 4 206120 T a 



38 

40 



IF MlNE.[:2jn THEN I NTRnSCC MiNE 3 J *NABSC *P( DuP ) ) i 
DDt03,[3S 13 »a C; 

o n TO H Qi . ^ „ 



I42O6I35 T 
14206140 T 
14206145 T 0- 



41 
44 



ENO; 
» SET OMIT a NOTC STATI STICS ) 
IF D,[6l?3ai THFN 



14206^60 T 
14206299 T 
14?0631Q T Q 



47 
47 
ill 



BEGIN MCC3,CCF3«-liJC + 2; 

MCC3,C2Ji3«-i; 
GO T(J INTJ 



14206320 T 
14206330 T 
14206340 T 



48 
51 
54 



ENDi 
IF MINE>0 THEN BEGIN RUNAROUNOi* 

MCC3 * C(L0C-»2) INX D) OR MEM0RY;X 



U206350 T 
14207000 T 
14208Q0Q T 



54 
54 
52 



INT» 



IF MINE.L2I1] THEN* 

BEGIN M[L0C3 *• ( *P < DUP ) ) &0 [9 t 9 « 6 3 U 



14208010 T 
14209100 T 
14209200 T 



60 

60 
60 



iNTRNSCtMlNE INX 0] «- -( *PCDUP ) )&( UQC + 2) CCTC j; X 
END ELSEil 
IF CX » PRTRC43,[18<63)XQ THENK ^^___ 



14209300 f 
14809500 T 
14210000 T 



64 
67 
67 



# 



40 
41 
42 
♦3 
44 
«5 
«6 
•7 
48 
•9 
50 
51 
52 

a 

S4 

55 

96 



MCLDC3 *■ (*t'(0uP))&Xt9»42«63;X 
IF D1SkadDR>0 THEN MCUOC + 13 «« & t>iZEtcTF3; 
MtL0C-»l3 i« C*P(nUP)) & SEGN0CCT C3; 



MtUOC+13 ♦ (*P<OUP))&MINEC8»38tlOJ;X 

GO exit; 



14211000 T 
14212000 T 
H21 2 10 T 



69 
73 
76 



IF MiNE,c2»i3 Then 

IF D.t6j2]«i THEN 
BEQIN M[i.Oc3,[2U3»0; 



I42l2l00 T 

14212200 T 
14212300 T 



79 
84 
85 



end; 

D0[03 
END PRUGRA 



.C18S15] «■ lUC*2i% 
M CODE SEGMENTS! 



14212400 T 
14213000 T 
14214000 T 



89 
89 
90 



ELSE BEGIN 
MCC3 



♦ PHTRCX3 * M OR C(U0C+2>X 
■4tM[LQC^n » CPHTR[X33 INX 0? C 161 33* 153» 



14215000 T 
14216000 t 
1 4^ 17 000 T 



90 
91 



iii2._ 



& (MlNE.t7;i3x24) C3:43J53 % CQ60t68 READ ONLY 

&sii:ECB;38« i03);x 

IF MINE. 16« 13 THEN % C0B0L68 FILE TANK 



14217500 T 
14218000 T 
14218010 T 



96« 1 

97J3 



l42ii0'WV,T 

%AHmm"J 

AMJft msXBM..ii i I .n. 
142180 35 T 



0200«3 



lliiilli 



l#tOP#XCM*0IL) THEN* BUILD Fli PTR 



MiMiiM 



UMiii 






piiife§iiiiii ii fei i i» 

P 1000 26*0 1 A 32,01 B 2* TRB 16' XCH» ♦^ ; 



oaoii2 



■I 



208 » 3 



JJf 



2 
3 
4 



iNHlLt CAlT*PRTHtAlTNOX]).PBITsO 
DO h<AKEPHESFNT([PRTRCAITNDXn INX 0)J 



U218040 T 
1421,60^5 T 



0210«1 
0211*3 



IF AIT.teUOJ < AITC03+2 THEN 

BEGIN P(AIT'0»0); INTERRUPT ( Ui* PHONEY INVALID 
PCDEL>DEL*DEL); % I N DE X QN Al T 



14218050 T 
142180S5 T 
1 42 19Q <>0 T 



02i6t0 
021611 
Q 22Q J2 



5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 



AIT ♦ PRTRCAITNDX]; 



end; 



AlT[AlTC0]««*PCUUP)»l3»»"(l4PRT[PlMTX.16] 



14218065 T 
14218070 T 
142)8075 T 



0221 J 1 

0222«1 
0222»1 



S SET OMIT 



end; 

NQTcSTATlSTlCSa 



C8»38il0]&MCCHFTF3)^ 



14218080 T 
14218090 T 
14218099 T 



0225»2 
022612 
022613 



END TYPE TWO QATA bEGwENTSiX 
IF NOr MINE, C6S1] THEN MtLOC3fC2ll] «• 0; 
END ABSENT SEGMENTS^ 



14219000 T 
14220000 T 
142 ,2100 . T 



0228 » 2 
0228 « 2 
2 32 13 



ELSE SEOIN LOC * $lZE-2iX 
GROUND « IF 00l03>0 THCNX 
IF NOT PHTRrX » DDE0l.Ce»l0niC2li3 THEN RUNaRQUNh^* 



14222000 T 
14223000 T 
14224000 T 



023213 
023412 

023Sn 



16 
17 
18 
19 
20 
21 
22 
23 
24 



E Np;x 



MCC] * IF DDtO]>0 THEN ((SIZE INX 0) QR MJX 
ELSE PRTR[DD[03,|;e»1033iX 



14225000 T 

14226000 T 
1 42 2 7QO0 T 



0240«0 
0243«1 
024 5»t 



IF 0DtO3.t2»l3 THENX 

BEGIN X INTRINSIC 

IF (SIZEI«<DDC03 INX 0)*1) NEQ 16 THEN »NOt INTRINSIC 17 



14 22? 1 00 T 
14227200 T 
U22J2tO T 



Ogftsii 

024610 
0g46»9 



BEGIN 

STREAhCSEGND* T ♦■ oUE AND 3>X 
I «• LINTABLf[P1MIX*SIZe DIV 433);X 



14227220 T 
14227300 T 
142 2 7400 T 



Og48«3 
024911 
0250'P 



2S 

2e-j 

27 1 
28 
29 
» 



BEGIN 



siisi; sit«si*T; sii«si+t; skjp i sgi 

IF SB th en; % REMEMBER TYPE 13 RFFFRFNCE 



14227500 T 
14227520 T 
14227540 T 



0252»l 
0252ti 
Q253 ? 3 



tJi»Biii+T; di!»di4t; t»soi; si?«Lgc t; 
si:asi-2; ds»*2 chr; 

IF TOGGLE THEN BEGIN Dlt^T; SKIP 1 DB/ DSt»SET; ENP; 



14227560 T 
14227580 T 
U ?27ft Q T 



0254«1 
0255 J 3 
0256*1 



31 
32 
33 
34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



end; 

END; 



14227620 T 
14227630 T 
1 4 2 27700 T 



025711 
0257*2 
025712 



end;x 



DDC0].[3»ij «• 0; Gu exit; 

t 

TF (MQM;=Da3i53)XO AND (MOM AND P33)X»30 THEN 



14228000 T 
14229000 T 
1 42 3000 Q T 



0257J2 
0259«3 
2 59*3 



BE6INX 
COMMENT I/O DEScHIBTOR;X 
^___ IF JARtPlMlX#23 < THEN 



14231000 T 
14232000 T 
14233000 T 



0263t0 
0263*2 

026312 



bEGlN terminatecpimix); 

TERMINALMESSAGE(25); 

lnd; 



1423310C T 
14233200 T 
14233300 T 



0265*0 
0266*1 
0267*0 



4S 

46 

47 

«8 

49 

SO 

51 

52 

53 

54 

55 i 

58 ^s 



TESTREAOYt 



MOM* MEMORYCO INX (IF D. REVERSE THEN 2 ELSE NQT 1)3X 

INX 0;* 
IF NQT M£MQRY[M0M3tREADY THENX 



1423«000 T 
14235000 T 
14236000 T 



0267*0 
0270»0 
027H3 



SLEEP ([MEMORY [MUM]]* IUMaSK);X 

IF MEMORY[MOM],PRtSENT THENX 

MEMORY[CJ»MeMORY[MOM]X 



14237000 T 
14238000 T 
U2 39 Q0Q T 



0273*2 
0276*0 
277*2 



OPENS 



ELSE* 

BECilMX 

IF MEWORYCMQMUNOTUPEn THENX 



BEGIN saveopencmomj; if termix»[cf3bPimix thEn go ExIt; 

GO TESTREADY END 
ELSE BEGINX 



14240000 T 
14241000 T 
14242000 T 



0279*0 
0280*1 
0280*3 



14243000 T 
14244000 T 
14245Q0Q T 



0282*1 
0265*1 
0285*3 






■.i4'f:4fif0«!;f* 






SIZE*PRTtU4],[8:43;x 



14249000 T 0289J3 



• • 



>T 



10 

11 



12 

•3? 



IS- 
IS 
17 
IS 

19 

20 



24 

26 i 



26 3 



29 
» 

31 1 
J2it 
J3 



34 

3S 
36 

37" 
36 

» 

40 
41 
42 



♦6 
46 
47 
•8 



49 

50 



S3 

S4 



56 



If M[M0M].C27» 13 THENX 
IF MCM0H],[2 ^» 13 Th FN» 



BEGIN IF SlZE-'g AND NOT PRTRC^ 3 . [211 3% 

AND NOT MCH0M}.C22tl] ThENX 
BEGIN BLASTOtLOOi* 



CLOSE! 



PCWAITI0(M[MOM''2 3,O,tOC),DEL)iX 
PCWAiTlO(ei000000340000005*0*LaC)*DEU)jX 
IF MCMCMQM-23 IiMX A].[a2>63»l THEN^ 



BEGIN L0C*PRTRtl33.C28ll03lX 

FILECL0SE(M0M&P12C18I33U53);X 
PRTRtl33.C2fllln3»LQC*lJ» 



end;!» 



QP TO open;x 



MSliX 









en q;^ 



i«1CM[M0M-23 

uu to close;* 



INX ^3.ca2l63«'lU 



ENo;x 

P C M D M * « C M M 3 , 1 2 7 1 1 3 + 1 r » ) ; 1 
COHl tJX 



end;x 



end;* 



ELSEX 
CnWME\T DATA 



BEGIN* 

DgscaiPTnR;> 



DLOQPJ 



IF cmother«-memory[mom 

IF (MQTHffg InX 0) « 6 THFN 



BEGIN 

TERMINATECPlMiX 
fln TQ imttatf; 



♦ DfCi8ll533).C2«l3 THEN GO WRAP;* 
* I/O ERROR FROM hLaY 



& 20tCTF3); 



IF 



end; 

(MOTHER 
6E QIN 



iNX 0) s b THEN X INTERLOCK FROM OLAY 



14l93t00 ACCIDENTAL 



COMPL£XSLEEP(C(MtMQMJ 
ENTRY AT S 

GO TO OLOOPi 



I NX 0) NEfl 5))^ 



end; 

SA\/EBn «■ MUTHER.(;CF3=i; 

MEMORYtMOMJ <■ M0THER &((L0C »GE TSPACE( SI ze«-mother . C e U 3 *2 * * 

)) + 2)C33»33!l534U2U7U3;X 



3AVE8IT 
» SET OMIT » NOT(AUXMEM) 
IF MOTh£R>CCF3S3 THEN 



StREAM(l*L0C + 2* S*.Si^e-i, t*0, H*(M0TH£R.CCF3«2)); 

beqin Si «■ Loc s;si*si+6;di4.loc T;Di«.oi+7;Ds«.chR;x 
oi«-l; si«-loc w; ds»wdsj 



ELSE* 



sul; T(cs«.32 wds; 

ENO ZERO SPACED 



0S*^32 WOS)i DS«-S WOSii 



BEGIN* 

Comment read array from disk and 

S set UMiT » NQT(STATlSTlCS) 



RETURN DISK SPACE;* 



m$§m^^immsmm^iims:M$M§m$$0m^%^^. ■■■■ ■■■■■.■■ ■■■' .'. : 



»ii ii ^ 



iP^^^iy^Yg^ty^tf 






Thtr 



U250000 

U25ionn 



U252000 
U253000 
1^254000 



0291»1 
0?9?>3 



U255000 
U25600Q 
U257QO0 



0294*3 
0296U 
0299t? 



T 

T 



030013 

0303«2 
0305t0 



14258000 
14259000 
U2ftQnOQ 



0308»3 
0310«3 
Q3t 2<n 



14261000 
14262000 
U2630Q0, 



U26400Q 
1426SQ00 



0315«0 
0317 J 

oai7«n 



14267000 
14268000 
14?69nQ0 



oatno 

03t7»C 
Q32Qtt 



14270000 
X4271000 

i4i!72non 



322«0 

327«0 

JHZZlZ, 



0327*2 
032712 
033011 



14273000 
14274000 
14275000 



033013 
0330«3 
Q330«3 



14276000 
14277000 
14278000 



14278100 
14279000 
1 42791?Q 



0330«3 
0330»3 

Qsmi 



033l»l 
033l»l 
03 3 5» Q 



14279200 
14279250 
14279350 



14279«00 
I4279z>50 

U 279'iQ Q 



0336U 
033613 
Q33Bin 



0338«2 
0338»2 

0339»3 



14279550 T 0340M 
1 427960Q T 0347IQ 



14279650 
14280000 
I42el000 



0347«2 

0347«2 
034911 



14282000 
14282099 
14283000 



14284000 
14285000 
14286000 



035210 
035511 
0355»1 



0356J2 
0360»2 
0361*3 



14287000 
14288000 
U289000 



0362*2 
0364*2 
0364*2 



14290000 
U291000 
14291099 




0364*3 
0365*1 

0365*1 



tflWifU 



iiiiiip 



.v 



2 
3 
4 
5 
6 
7 
8 
9 

to 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26,;:; 

27 f 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

(2 

43" 

44 

45 

46 

47 

18 

49 

SO 

51 

52 

S4 

57 i 



JNJLL 



BEGIN 
F0RGETSPACE(L0C42); 



U292130 T 
1429^,1^0, T 



37113 



CaMPLEXSUEEP(CTtRMIX.CCF3»PlMlX)); 
l#279550 ACCIDENTAL ENTRY AT PjMIX 
.^_ _^ S Q TQ I w n i ATE J 



U292150 T 0373«2 
14292160 T 037 911 



end; 
$ set omit = nqtcstatistics) 

MaM»HCJM&WOTH£R[CTF]; 



14292170 
U292199 
H293QQ(; 



T 0379J 
T 0379 » 
J 0379t 



END iX 
MEMORY CUOCltCZ a } * SAVEBITiX 
MEMQRYtL0C4l3 » MOM i% 



14295000 
U296000 
1 4 2 970 00 



03811 

osait 



$ SET OMIT s NQTCSTATISTICS) 
WRAP:X 
MEMORYCC] » IF D. C8»103 » THEN PC M[ MOM ]^0» CDC#D > XCH* INx )» 



U297099 

14298000 
14299000 



03851 

0385 « 
0385» 



».ii;5S:y:iiM:iiiti»*i» 3J,:* ■ 



ENOjX 



gX iTt 



USOQOOO 
14301000 
14301100 



T 039012 

T 03»2«2 

-I — 0392*8 



$ SET OMIT * NOTCNEWlOGGING) 
END MAKEPHESENT ;» 



14 3011 99 
14302000 



REAL ADORSoNTi;X 
PROCEDURE ZIPPERCA»8*C);VALUE A*b»C; REAL A*B/C; FORWARD; 



T 0392 « 2 
T 392«2 
S l7&» 3 94 W O R D S 



14342000 T 0000>0 
14342100 T 0000»0 
START OF RFU SEGMENT? DISK ADDRESS » 00343 



PROCEDURE C0M5;* 
REG I NX 



Start of rel 



14343000 

SEGMENT^ DISK 

14344000 



T 0000' 
ADDRESS I 

4 OOOOti 



00343 



REAL 



RCW**0# 
ERTOG»> 

1 i .,..#4. 






14345000 
14346Q00 
1434,7000 



T 0000» 
T 0000» 



T a+4;X 
INTEGER J»»i;X 
ARRAY vECT0R8*5[*3#Sa-»6C*3;> 



I4348OOO 
14349000 
14350Q0Q 



T 0000' 
T 0000 « 
J Q0 QQ« 



INTEGER 
ARRAY F 
ARRAY T 



0«S> 
ILEBL 
SKAa + 



OCK«+7t*3;X 

i3[*3; 



14350100 

14351000 
14351050 



T 0000* 
T 00001 

J oqOqi 



INTEGER link; LABEL RETUHNEM; 

INTEGER M0THER«+8# NEXTM0M=+9* M0MMiX«+10» CATCHs+ii;X 

REAL £NDATT=MOMMlX*AgkOMMlX^K«NEXTMOM; 



REAL CHAIN»+l2,ABStVT»CHAlN; 
REAL MSCW » -i; 
REAL JAR9 a CHAlN*i; 



1435U00 
14351200 
14351205 



T 0000« 
T 00001 
T 0000» 



14351210 
14351220 
14351230 



T 00001 
T 0000« 
T 00001 



S SET OMiT =» NOTCWUHKSET) 
SUBRCUTINE DELINKIT> 
BEGIN TtaMcn INX QJ 



14351240 
14351300 
14351310 



T 00001 
T OOOOt 
T 0001* 



IF N 
MtT3 
IF M 



OT MC 
.C4U 



T3.t4 
3l»0i 
2>13 



U3 THEN SL£EP(CMCl33#P200000000000000j; 
THENilN CONTROL _^^_^_ 



14351320 
14351330 
14351340 



T 0003» 
T 00071 
T 0010» 



4S 

4e 

47 < 
48 
49 
50 { 
< 51 
52 
63 { 
54 
55 
56 ' 
57 



BEGIN MtT3aCF3 J«M[n.[FFJ; 

IF CMLT3 INX 0) NEG THEN MCMCT3 INX 03,[2«l3»'l 
ELSE M[T3 < = ABSCMETJ );XUNL0CK IT 



14351350 
14351360 
I43 5I37 Q 



T 001l» 
T 00151 
1 0Q 2Q« 



END ELSEX IN WAIT QUEUE 
BEGIN T»«Mn3 INX O; 
WHILE MCTj.CFFJ NEC (I INX 0) DO 



14351380 
14351390 
14351400 



T 00261 
T 00261 
T 0089* 



T»"M[T3,[FF3; 
MCT3, tFF3«»M[n.tFF3; 



end; 



14351410 
14351420 
14351430 



T 0032» 
T 00 35« 
T 00 38* 



MCT3,C4ll3l»i; 



■ p' ('7'^p Q pgl'S'Q If '§ p-^ ciY 1^ 9 6 7''i 2 »"o' )') + !% fi f . C M5 » R C W ' 0* R D S * * X C H ' C F X » ' 



.i4^3fi*«i\ 



T 00<H» 



14353000 T 0043«3 



• « 



2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 



• std; 

P(P&CMSCW3[CTr3>0»Q»0»0^0*Q3J 



U353002 
U354nOQ 



00^8«2 
Q 0^9 «0 



t SET 



p(0# o# oa Qp 0* o);x 

P(0#0)J 
QMIT « N QKW Q H K SE T? 



14155000 
U355010 
U355020 



005110 

0052'2 
00*1310 



MC(FILEBLDCK*PHT[:pimIX*3] ) INX 0-23, [916] *■ Qi% 

MCADDR53*-(*P(DUP))&0C9»9:6]; 

H [ CVFCT0R«-JARHgWcP i M i X3 ? INX 0* 2 3 »( *P C O UP ) 3&OC 9 »9» 6 J f 



U356 
U357 



OOQ T 
000 T 
OOP T 



0053«0 

oo^e'o 

006n»3 



IF VEC10RC03<0 THEN* 

BEGIN CATCH*PRTCPIMIX*P263; 
ERTQG » {VECTQRCn<0) QR (PRT[PlMIX*g 25 3 jtQjfai 



14358 
14358 
1^358 



lOO T 
150 T 
200 T 



006511 
0066<1 
0Q6BM 



end; 

IF VECT0Rt23.C6»n THEN % IPC 
BFGIN IF VECTQRC13<0 THEN % OS-ED 



TASK 



14358 
14358 

14359 



300 T 
310 T 
315. T 



007i»2 
0071J2 
0Q73»? 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

» 

26 

27 

28 

29 

30 

J1 ■;; 

32 : 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43"^ 



BEGIN WHILE tS4.pRT£PlMlX#AlTNOXlJ,pgIT*0 DO X 

MAKEPRESENT<8PRttPlMlX»AlTNOXJ3 INX 
MrMnRYES TNX WOT i3.tgM3 » M 



SEARCH AIT FOR 
0)n TASK ARRAYS 
% MARK tlAVf: 



14358 

14358 

JJLlM 



320 T 
325 T 
13 Q T 



007410 
0077lg 

ooa ofQ 



ENDAIT «• S[03i 
FPH K*l STEP I 



UNTiU EN DA IT OQ 



BEGIN 



Ti>KA *■ M r, MORYi;(NTl *SnS]3.^gM3; 



14 358 
14 358 
14358 



335 T 
340 T 
345 T 



008313 
0084 « 3 
OQSe'IL 



IF NTl,tl»23*3 Then IF 
(CNT2*TSKAt33)«l OR (NT2»2 AND 
% TA S K ARRAY OF A SCHEDULED 



» DEPENDENT TASK 

TSKAC43i«PiMix)) Then 

QR R UN N ING Qfl F»PRlN G 



14358 
14358 
14358 



355 T 
360 T 
36^ T 



008910 
0090*3 
0094<2 



BEGIN IF NT2*1 THEN 

BEGIN TERMIX ♦ I?1777; 
SHFET0lDDLER(0/g0>TSKA[43)J 



-* ES 



14358 
14358 
1,4 358 



370 T 
373 T 

375 T 



009412 
0095»3 
0097«n. 



ENDi 

IF TSKAC33a2 THEN 
BEGIN TERMU » »\777i 



% RUNNjNq 



14158 

14358 

JJLIM 



377 T 
380 T 

3ia T 



0098*2 
0096*2 
009912 



en d; 



TtRMlNATE(TSKA[43&86CCTF3 
NOPROCESSTOG * NOPRQCESST 



); halt; X os 
QG-i; 



14358 
14 358 

14359 



38 3 T 

384 T 
395 T 



Ol00«3 
O1O2I3 
Ol04t0 



14292150 



ACClOENfAL ENTRY AT *1777 



COMPLExSlEEPCTSkAC33<0 and TERMlX»?l777)i 
TfRMIX » PIMIXJ 



14 358366 T 0l04»0 
1 4 358387 T 0111 * 



End; 



end^ 
end; 

IF VECTORt23.C55l3 THEN SOFTI «• SOFTI-i; 



14358389 T 

14358390 T 
U358391 T 



0111*3 
0111*3 
01l4»0 



If CTSKA#.PftTcPlMlX,TSX3),PBlT THEN 
BEGIN TSKAI33 * -II IF TSKAC63»1 THEN TSKAI73 ♦ U 

IF< II«TSKA[53) N£Q THEN BEGIN l**EPRTCPlMIXfl3] 



INX 0; 



DEUlNKIT;WHlLE(IJ5MCl3.t8«l03) NEQ DO 

BEGIN I» = lPHTLPiMiXM33 INX 0;DELINKIT ENU END; 
IF (I*-TSKAt83,[CF3)^0 THEN % SqFTWaKE UTERHUpTS DECLA 



14 358392 T 
14*58393 f 

14358394 T 



14358395 T 
14358397 T 

14358396 T 



0116*3 
011613 

0123*2 



0127*2 
0132*0 
0135*2 



HED 



BEGIN If NOT TSKAC83a4»l3 THEN ~ ^ " 

SLEEP(CTi>KAt8 3 3*^200000000000000 ); 
TiKAC8 3.C4:i3 ♦ Qt 



45 

46 
47 
48 
49 
50 
Bl 
52 
S3 
54 
55 
56 



14 358400 T 
14358450 T 
14358460 T 



JJU ■ % DETACH SOFTWARE InTeRRUp 

BEGIN IF (ABSEVT«-PRTtPlMlX/I3.CFF])X0 THEN 

BEGIN WHILE NOT M [ ABSeVT 3 . [5 * 1 3 DO 



TS" 



0137* 2 
0139*1 
0141*2 



14358550 T 
14 35 85 80 T 
14358582 T 



0144*0 
0144 «0 
0l46*3 



A8SEVT ♦ MCA8SEVT3,t 
IF MCABSCVTSaO THEN 
SLEEP(CKUBSEVT3 3/P20O0O 



FF3; 

00000000000); 



14358584 T 
14358586 T 
14358588 T 



0149*2 
0l54*0 
0155*2 



M[ABSEVT3 <- P (LOD^OUP* SSP j; 
T «■ (K*PRTCP1MIXM3),CPF3; 
A » CPRTCP1MIXM33 INX O; 



14358590 T 
14358595 T 
1435a59(' T 



0157*3 
0i60*0 
0l62*3 



WHILE MtT3,CFF3XA DO T 
HCTHFF3 * K,tFF3; 
WCABSEVT3 » P(PUP»LODfJ> 



♦ MCT3,CFFj; 
SN)J 



m 



0164*3 
0174*3 



J? 



end; 



14358610 T 0176*3 



^ 



END UNTIL 



*■ PRTtHlMlX»n.tCF]; 



14358615 T 0l76 
1 43 56 6 2 T QJ7 8 



2 

3 

4 

S 

6 

V 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

«"" 

44 

*5 

*6 

47 

•8 



TSk/^C83.C4I13 «• If 



ENO; 



end; 



ENOi 



14358625 T O18O 
14358630 T 0182 
1435865Q T ' Qte? 



JAR9 ;= VECT0RC9]; 

chAiN *■ 0^vi^CTnft[9i[ FTC J& vFCT n R[ n u »ni ] ; 



vEC inK^ 'i'ja FF ] » q ; 



14358700 T 0182 
14 358 710 T 0162 
1435680,0 T "183 



t SET OMIT s NQT(eREAKOUT} 

IF VECTOftt23<0 THEN X COBOL 
IF VECTQan^X^ THEM * MHT nS' 



£iL 



14358499 T 
I4360i00 T 



Oiai8 
0188 
l4B60anO T 0189 



'^HILE PRTtPlMIX* 16 J>0 DO ASRIiSCLEAN 
LF VECTQRCn>0 THEN % NOT DS-ED 
F QB M g MMI X«86 STEP 5 UN TIL, 11 DQ 



OUT AIT 



14360300 T 0l90 
14 360 310 T 0l94 
1 43 6032,0 T 01 95 



BEGIN Qt«NFt,A'eCPRTCPiMlXi*<0MMiX3)i X 
IF Q.CgtU THEN X PRESENT* GRAB 
Q t» Q & Mt^t iKY NHT OlrrtCIJ 



AlT OR OAT ENTRY 
ADDRESS FROM LiNK 



l43603ld T 0197 
U360340 T 0196 
U36 ^5Q T Qt.99 



If Q.t33!3]»7 THEN X AUXILIARY M^MUKY iN The AqT 
DISKRTNCQ.CCFJp O.C6»l03)^ 

IF veCtor[23<o Then MOMMix»gii; % cobol h^s no uat 



I436O36O T O2O2 
14360370 T 0204 
14360^60 T 0206 



end; 
Sleep ct 

OLAYMA!? 



olayma5K]*mummix«-twocPimix)); 

K «- NOT MOWMIX AND OLAYMASr; 



14360390 T 0208 
14360400 T 0211 
14360500 T 0213 



HQThEi^ ♦• UALQCCPlMlX^OJ.CCF]; 
iVEXTMOM := -1; S := DALOCHQw t PlMIX] ; 
AHlLE CNExTMOi^ := NEXTM0l^-(-2 XMOTHER DQ 



14360600 T 0215 
14360700 T 0217 
l4360 aQQ T Q2l9 



FOBGETUSERuISK(S(.NEXTM0M3*-5O0); 
i)LEEPC[T0GLE3*ST0REMASK); 
MQTHEH » CMOM^;IX «• CNeXTMQM «-X 



14360900 T 0221 
14361000 T 0223 
lA 3« l lOO T 0224 



S SET UMIT = 



PF<T[PlMIx»^].tl8tl2]).[36J6])=pihly;* 
i'^tXTMCJi^ 4. iMfc.XTMGW And ^77 i% 
MU^ ( AUXmEm) 



14361200 T 0224 
14 361300 T 0228 
14361309 T 0230 



S SET Uf^IT - 



NOT (DEcSUGGlNii AND AuxmEM) 
«hlLE(T«.MCI3),CcF] X C DO* 

tiEGIKX 



14361512 T 0230 
14362000 T 0230 
14363000 T 0233 



IF T>0 ThE'M^e 

IF T.L9:6]apiMix THEN* 
IF MOTHE^^ AND (T,[3»63 = n ThENX 



14364CO0 T 0233 
14365C0C T 0233 
14365-[00 T 0235 



MCI3»C9l63 * NEXTMOMX 
ELSE FORGETSPACECI INX 2);X 
I*- T.ECFJ* 



U365200 T 0237 
14365300 T 0239 
U?66Q90 T 0242 



S SET OMIT 



EN 

INTAQLE 

s NOT(BHE 



d;* 

H0WCP1MIX3 
AKOUT) 



o;x 



14367000 T 0242 
14367100 T 0244 
14367199 T 0245 



$ SET OMIT 



■ NOT(BRE 
IF NEXT 
If 



AKOUTJ 

MOM/'O THEN 8EGINX 
MOTHER TH£N% 



14367999 T 0245 
14370010 T 0245 
14370020 T 0247 



IF PRT[NEXTM0M,43.t24l63»P77 THENX 
NF0C(NEXTM0M-1)XNDX413 *•% 
PRT[NEXTM0M*43 «• ( *P( PUP ) )&0 C 18 » 18 : 15 3X 



14370030 T 0247 
14370035 T 0249 
14370040 T 0252 



*9 
SO 
51 
52 
» 
54 
55 
56 



ELSE Begin mother * ncxtmom;x 

00 until (MOTHER ♦ CPRTCM0THER#4 3 ♦» 
NF0I{M0THER''1)XN0X»13 »X 



14370050 T 0254 
U370060 T 0236 
14370065 T 0257 



Ik 



(*PCDUP})&NEXTM0M[18J42l63).t24J63 )m977 i% 
ENDX 

SE SEGINX , 



IF CPRTt»0MMtX*43.C24j63^r»lMlX> ANOX 

NEXTM0M«§7? TH£N NrO t (MO«MIX»l )xNoX*i 3 ♦* 
PRTt,M:>^HIXf^3 * (fPtDuP)3&0E lft»l8*I53> 



ELSE BEGINX 



14370070 T 0259 
14370080 T 0264 
1 43 70 090 T 02 64 



U37O1O0 T 0264 
U970110 T 0266 
1437011 5 T .0 270 



14370120 T 0271 



52 
53I 
54 
55 

Be* 

67 



W')* 



00 bEGIN MOTHER «• MQMMIX; 

MHMMTX «■ PRTrMQMMTX#ttJ.riiat6];it 



U370130 
U .37 Q .1 4 Q. 



0273J2 
9 .g 74« , t 



END UNTIL M0MMIX«P1MIX;X 
NFOt{MQTHER*l>»<NDX + n *■* 
PRTtMOTNER^ai »t 



14370150 
U3r0i55 
lA3yQl60 



0276J1 
027712 
Q ?79<? 



C*H(DUP))&NEXTM0MC24U2«6 3/X 
END £ND;» 
InF0[(PiMiX-1)xN0X-H] *■% 



14370165 T 
14370170 T 
1, 4370 1 80 T 



0280 » 2 
0283»0 
02 8 3« Q 



PRTCP1MIX#4] ♦ C*P(DUPn&0C18ll8US3;X 

end;x 
s set umit » not(auxhew) 



14370i90 T 
14370200 T 
14370299 T 



0285«0 
0208*0 
0266*0 



10 

11 

12 

13 

M; 

IB 1 

16 

17 

18 

19 

20 

21 

U 

23 

24 

25 

M 

27 

28 

29 

30 

31 1 

32* 

33 

34 

35 

3« 

37" 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 

49 

M) 

51 

52 

53 

M 

5«,' 



IF VECTURt2],[8!lO]^ ThENX 
$ SET OMiT * STATISTICS 
r0RGETSPAC£CDIRECT0RYsEARcH(ABS(VECT0RC03)*lF VECTORLq]<0 



I4371000 T 

14371999 T 
l4372nOQ T 



0288*0 
0289«2 

Q289I2 






f*iiiiiiiiliitcT'QRt'ii:)' ii-j >i 



14373000 T 

14373001 T 
14373099 T 



0291 « 3 
0295*0 
0a9S>0 



IF VECToRt2].t8!lO J s 1 THEN X COMPILER UN COmPHE AND GO 
8EGINX 

IF ^RTQGS0 THENa; 



14 37 4 000 T 
14 87 5000 T 
14376000 T 



0295*0 

0296*2 
0297 « 



BEGINX 

C0MPLEXSlEEP((SCHE0ULEIdS''N0T 0) AND 
. SHE E TFRE EJ* 



14 377000 T 
14378000 T 
143761QQ T 



0297*3 
029811 

0298*1 



14358386 



ACCIDENTAL ENTRY AT 1 



LCCKTOGCSHEETMASK); 
S4.[M[GETSPACE(3l#2*0)423J&30[8t3a*l0J; 



14379000 T 
14380000 T 



0305:0 
308 *^ 



DlSKI0CT#-(5 INX 0-l)#30* 

VECTURC23.CFFn; 
SlEEP{CT]^IOMASk)I 



14381000 T 
14 3S2000 T 
14383000 T 



0311*0 
0314*3 
03]1 6'1 



STRE AM (A*0»B4.P(, SCHEDULE I OS)); 

BEGIN sub; 

47CSKIP SB; SKIP Db; TALLY»TALLY-t-i; 



14383100 T 
14383200 T 
14383100 T 



0317*3 
0319*0 
0319M 



IF SB THEN BEGltN END 



Else jump ouT); 

OS«.SET; A«-TaLLY; 



14383400 T 
14383450 T 
14383500 T 



0320*1 
0320*3 
0321*3 



END stream; 

T 4. P; S[3] 
St25] «• CAT 



*■ 0&T[8»38JlO]; 

ch; 



+P(Rtrj)Div 6c; 

) > 30 * 
VECT08C23,[FF3); 



14383600 T 
14383700 T 
14383740 T 



0322J1 
0322*2 
325*1 



5C233 ,[24»2 

diSkioct,+( 



43*-(CLOCK 
S INX O'l 



14383750 T 
14383800 T 
14383900 T 



0326*2 
0330*0 
33 2*1 



SuEEPCtT3M 
I *■ IF SC18 



UMASK); 
3 > MIXMA 



X THEiN MIxMaX 

ELSE sciei; 



14384000 T 
14385000 T 
14386CQ0 T 



0333*3 
0335*1 
3 3 7*0 



IF SHEET! I 3 
BEGIN DlSKi 



.CCF3 X 
OCT#-<S I 



THEN 
NX 0-13*30' 
SHE ETt n.CFF J) ; 



14387000 T 
14 388000 T 
14 369000 T 



033812 
03«G»0 
0343*0 



SLEEP 
SC29] 
DISKI 



(CT3*IQMA 

«• VECTOR 
UCT>.>-C S I 



sjK); 

[23,[FF3; 
NX 0''^)»30* 



14390C0C T 
14391000 T 
1 43 92QO T 



0344*2 
0346*0 

348* 1 



SLEEP 
END ELSE SH 



CtT3#lOMA 
EETCI3 * 



SHEETCn.CFF3); 
5K); 
VECTORC2 3aFF3; 



"14392500 T 
14393000 T 
14394000 T 



0350*2 
0352*0 
0353*2 



ENPX 



SHEETin.tF 

unlqcktogcs 



F3 ♦ VECTORt23.CFF3; 
HEETMASK); 



14395000 T 
14396000 T 
14397000 T 



0357U 
0360*1 
Q363«3 



iiiiiiaiiiMiiiiiiliiiliii i 

OISKI0(Tf-C5 INX 



»2#0?»a3 3430161 38* lOl> 

0-l)#30#VECT0H[23.CFF3); 



14 398 700 T 



0363*3 
036411 
0364*1 

368«0 



• • 



SLLtP([T]*lOMASK); 
rnf^GFTfrspnTSKrvFCTnRr?],ri«n5})JX 


14398800 T 0372«0 

1439.9,000 T 0373 J2 , J 


1 LINK * SC133; 

2 WHILE tlNK^O DO 

3 BEGIN DISKI0£T#-CS INX 0- 1 )* 30#L INK ); 


14399J00 T 0375*1 ' 
14 399200 T 0376*1 ' 
li»399l»00 T 0377*9 


* SLEEP(CT]»iaMA5K); 

s rORGETESPDISK(tlNK); LINK ♦ St29]; 

6 tNo; 


U399400 T 0380*2 

14399500 T 0382*0 * 

14899600 T 0381*^ " 


■> FORGETSPACECS); 

8 , •.■;,. . . tNO • ■ 

END ELSEX 


14399700 T 0384*1 ' 
14400000 T 0385*1 " 
I44flln00 T 0385*1 « 


'« IF vEcroR(;23,ca«io] = o then* 

" BEGINX 

'2 VECTQRC9]l*VECT0RC93.fCF]i 


14402000 T 0385*1 '" 
1440 3000 T 0387*1 " 
14^03900 T 0387*3 


'3 FOi 1*1 STEP 1 UNTIL VECT0RC93 00» 

1* IF VeCTORC9*l3 ;f OTHENX 

(15 rQRGETUS£ROlSK(VEC70Rt9*l!l#«V£CTORC83lJ 


14404000 T 034.913 '=" 

14405000 T Oils* 3 '* 
14406000 T 0i95»l 


.6 IF VECT0R[23.t7Jl] THEN VECTQRt 23 1 1 8 « lO] «-2nF0R TASK LOG 

'7 ENO ELSE 

-8 IF VECT0H[23,C8!l03 = 4X 


I4406i00 T 0398*2 '« 
14407000 T 0402*2 " 
U407100 T 0a02«2 18 


19 TWEN GO TO RETURNEMI 
'<> .•IF VECTORtO 3 <0 ■..THEN •■..■...■■■.,,■;■;■■■■;..:,• ■•:, 

2' ■■■•■.■■■.. .■ ■iF"ERT0.6;..#''^'0 tHEN*. 


14407200 T 0404*1 '^ 

14408000 T 0405*0 ^^ 
14409000 T 0406*0 '^ 


22 VECT0Rt2],t8«10J * 3;* 

23 I ♦ PiMjx;x 

24 COMMENT SOUTRACr CORE REQUIREMENTS FRUM CORE V«lORD; 


14410000 T 0407*1 ^ 

14411000 T 0410*1 ^^ 
14411100 T 0411*0 24 


« C08£,i;ie»l53*C0RE,tl8«l53 • NFO t (P lMIX-l)xNDX+23 ,ci8» l53^ 
Mfe $ SET OMIT = NOTCAUXmEM) 
2'1* S SET OMIT « NOTCOATACOM ) 


14411200 T 0411*0 26 
14411309 T 0415*3 ^« 
14411499 T 0415»3 " 


28 IF CHAIN GTR THEN 

M BEGIN SintMCGETSPACEC5/0*0)*2J3&5[8«38*l03; 

» pISKWAlTCfS INX 0?#VCH;^IN3; 


14411620 T 0415*3 ^« 
14411640 T 041612 29 

14411660 T 0420*3 " 




14411680 T 0423*0 ^' 
14411700 T 0425*0 '^ 
14411720 T 0426*0 '' 


M IF CHAIN ;< THEN FORGETESPD ISK C ABS(ChA JN ) ) ; 
» IF VECTQRC2]a3»l3 THEN 
» BEGIN 


14411740 T 0426*0 34 
14411800 T 0428*1 '' 
H4U810 T 0489*1 


" NTll»GETSPACE(5'73#0)+2i 

M «CNT1-23.C9I63 «» O; 

M MtNTl 3«» & PlMlXC20l43»53i 


14411820 T 0429*3 

14411630 T 0432*0 =" 

14411840 7 0435*1 


•0 BCN7Un»= VECT0HL5].CU233; 

41 MtNTU23«* XCLQCK i VECTOR C2] [ 1 * 1 1 173 H 

« CVECT0RC13<0)C18«42»6]; 


14411850 T 0437*3 « 
14411860 T 0440*2 *' 
14411870 T 0443*1 « 


♦3 «tNTl + 33«« VECT0Rt03; 

MCNTU43*» VECTOHCn; 
« LINKUP<14,NT1)^ 


14411880 T 0445*2 « 
14411890 T 0447*3 ** 
14411900 T 0450*0 « 


« end; 

" $ SET OMIT s PACKETS 

« SIGNOFFCVECTOR^FILEBLOCK^O); 


14411910 T 0451*0 « 

14411999 T 0451*0 " 

14412000 T 0451*0 « 


« IF EOwHESS AND N0TtJAR9a2*n) THEN 

«> S POP OMiT 

51 begin; STREAM(8*ir VCCT0RC13 <. THEN 2 ELSEX 


14413000 T 0452*3 « 

14413001 T 045413 ^ 
14414000 T 0454*3 


« VECTORC23 .[8« 103^3» pO«-0*((NTl*cXcl-OCK DIV 3600) 
» ) MOD 60 + (NTl DIV 60)xl00)# VI»vECTOR 
>* f SET OMTT s NOT PACKETS 


14415000 T 0457*3 " 
14415100 T 0460*0 ^ 
14415150 T 0463*1 


'"■f:B^::-^ • ■■■■ ■•> • ■'■^•■^^^#1111*1111^ ..■■,■■.■'■.■■ l;'^ ■■:■^'■■:■■•■^■.:■■; ^ 


14415300 T 0463*1 ^ 
14416000 t 046410 =* 
14416499 T 046410 ^ 



OS 



LIT 



«; Di ♦ Di+7;x 



14417000 T 0464*0 



• • 



♦7 
«8 
«9 
50 
51 
52 
53 
54 
55 
56 

52 i 



OMIT 



OMIT 




OS *■ LIT ••/••; DI «• Dl*7i% 



NOT(PACKETS) 

D5«-l,IT''B«; Sl*.LOC i; DS4.20ECi 
l*Olf 0I*DI"2> DS*FILLJ DIMi 






CI 

GO 

M- 



TO e;» 
TO ok;x 



14418099 
14419000 
14419^00 



0464> 3 



0465*2 
0465»2 
04661? 



QKIl 



IS* 7 ilT ' 

QO TO x;x 



DS*E0 "I 



14420000 
14421000 
14422000 



Jd. 



mmmmrm 



DS«.b UIT ' 

GO TO x;x 

DS»l|J,jT 



EOvi 



14423000 
14424Q0C 
144?500Q 



046712 
0468 »0 
046flU 



046612 
046913 

Q470*n 



SMX f;RF} ";, 



:®i#iijii.i©i.Hifi.if I ' ■'^'■*^ r 



14426000 
14427000 
1442en0Q 



» NQT ROE OR UMIT 
SPQUTC VECTOR);* 
END FLSE FURgETSPACE{V£CTGR W 
OMIT » NOT PACKETS 
OMiT » NOT(AUXMEM) 

g NOT(WORKSETl 



14«a9o00 
14429}00 
U48915Q 



04 70»0 
047l»0 
047 1M 



0473*0 
0473*3 
047fltn 



I4429i99 

144 30000 
14430i00 



OMjT = IMOT(WOHKSET) 

iiELECTlON;x 
KIIL([MSC»H])J 



I4430i50 
14431299 
U431400 



4 7 4 ' 

047410 
0475» jL 



047810 
0478*0 
0478«0 



END L5C0M;X 

Procedure ^ipper(hi*w2,usersta)jValue xi#w2>us£rstai 



14431970 
14432000 
14434000 



0478«0 
0478«0 
0479»1 



WlJ»h?/USERSTA; 

begin real Uli 



START OF REl, 



14435000 T 0480 »0 

SIZE* 0481 WORDS 
14531000 T 0000 >0 



T *> S£TSPACE{12»0#0)+4;X 

MCT-43,t9»63*0;X 

IF (I»USERCODEcPiMlX])aABSfNOT 0) THEN I «■ 

STREAM(K«-Pl4,A*tWi]*c«-l'B«-T); 

BEGIN 

suLoc K; si»si»7; PS*- chr; 



SEGMENT^ DISK 
14531x00 

14532Q00 



JCLA. 



14533000 
14534000 
14S34H00 



ADDRESS " 

T 0000 «0 
T OOOQtQ 



00360 



DSr 
DS*- 



i 5 LIT "USER»"; SlfLOC C; SliaSl + li 
9 LIT "iEXECUTE "; ^l^Ai si*si+i; 
7 chr; OS* LIT "/*'; SI»SI»1J DS» 7 



DS*. 6 

end; 

IF USERSTAXO 



LIT ">ENO.«-"; 37(DS«- LIT - -); 
THEN 



DS»' 
CHR I 



7 chr; 



14535000 
I45360OO 
14537000 



0000*0 
000213 
0006*0 



145 37100 T 
14537200 T 
14539000 T 



0009* 1 
00l0*3 
0010*3 



BEGIN 

It" 30; 

IF US£RSTa»C19»13 THEN ELSE T t«T &USERST AE9* l5l93 j 



14539000 
14540000 
I 454 O1 OO 



00MI2 
0013*1 
0015*1 



END 



145«<J200 
14540300 
14540350 



0016*2 
0018*2 
9 i e* 3 



I*IF 



EL8E 
PlMlXsO 



OR USERC0DE[PiMlx3aHCP THEN 3l ELSE 26, 



$ SET OMiT » Packets 

INDEPEN0ENTRUNNER(P(,C0NTR0LCAR0)*T&IC2»42;6],i92); 
i^Pgp OMIT 



I454O4OO 
14540500 
14541000 



0019«2 
0020*0 
0020*3 



0024*1 
0024*1 
0024U 



$ SET OMIT = NOT(PACKETS) 

END zipper;x 



14541049 
14541050 
14541051 



0029*2 
0029*2 

0031*3 



KE'AL :pm^mimMmM*^'VMmi;MM^i^^ .^:*$:*i..-^-^:M$m''^^^ ^^*u 



14541089 T 0031*3 
14542000 T 003l«3 

StZE» 003? WORDS 



REAL I*J'R'T*Z;X 



I4ll43jp00 T 0000*0. 
START OF REL SEgMENTI OiSk ADDRESS « 00362 
.: . ' 14544000 T 0000*0 

14545000 T 0000«0 



1^ 

2( 
3 
4 
5| 



6 

7 

8 I 

9 
10 
111 
12 
13 
M< 
15 
16 



18 

19 

20 I 

21 

22 

23 < 

24 

25 

26 ( 

27 

2S 

29 \ 

30 

31 

32 { 

33 

34 

35 i 

37 
. 38 I 

39 

40 

4,i 

42 

43 

44 4 

46 

4« 

48 
49 

50 m 



51 

52 

53! 

54 

55 

58 I 

57 



h 



REAL Hi 

ARRAY Xl*}i% 



U545l00 
U5460QQ 



0000»0 



INTEGER S; 
$ SET OMIT # SHAREOISK 

DEFINE R1»R»^ Xl»Xii 



U946100 
litSa6gOQ 



ooooto 

0000»0 
QQOQ<0 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
'5 
16 
17 
18 



S POP OM I T 

$ SET OMIT * NOT ShAREOlSK 

LABEL LL»FOUND*WhY/BYE; 



14546201 T 
14546299 T 
145470 T 



OOOO'O 
OOOO'O 
0000 «0 



LABEL CH£CK#OQWN#aOMBOUT#DSD; 
REAL SUBROUTINE THER£;a; 



14548000 T 
14949900 T 
14549000 T 



000010 
0000*0 
0000*0 



X 

% 
% 



T 
% 
% 



ON EXIT* X IS THE LAST BYRaSS QLOCK READ AnD J IS ITS ADQHESS, 
IF THERE IS TRUE/ I IS THE INDEX OF THE ENTRY FOR THE FI^„E AND* 



FOR SECWRITYCHECK* H IS THE 
IF THERE Is FALSE* T IS THE 
HAS A VACANT SLOT. 



NE6ATIVE OF ITS HEADER ADDRES&. 
ADDRESS OF THE FIRST BLOCK WHiCH 



14l49i00 T 000l«0 
14549110 T 000l»0 

1 4549 12Q T 9091*0 



14549125 T 
U»49l30 T 
145491 40 T 



0001*0 
0001 to 

ooonn 



BEGINS 

Tr 



■Oi 



14549150 T 0001*0 
14550000 T 0001*0 
1 4550500 T 0001*0 



19 
20 
21 



iU* 



FOB I>»0 STEP 3 UNTIL 57 OO 

BEGIN IF CXC13 EQV A) « NOT THEN 

IF fxri*n EQV a^ « not q then 



14551000 T 0001*3 
14551500 T 0003*0 
14552000 T 0004*3 



22 
23 

24 



BEGIN PCD; 

HjaNABSCXCI+2]); 

GO oov^n; _. 



14552500 T 
14552750 T 
14 55 3 000 T 



0007 « 2 
0008*1 
0010*0 



25 ft 

26 

27 

28 

29 

30 



end; 

IF CXCI3 EQV Pl4) 
IF TaQ THFN TIWJ; 



= NOT THEN 



14553500 T 0010*2 
14554000 T 0010*2 
145^4500 T Qai2tl 



end; 

IF CZ$»XC2l.tFF3)/0 THEN 
B E GIN DlSKWAnC'R'60*^ >sZ ? ; 



14555000 T 0014*3 
14555500 T 0017*0 
U5560QQ T 0019*1 



31 

32 "■ 

33:?; 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

12 

♦3~ 



•fNilPlS';""-^' ■■■■"■• ■..■■;■^- 



14556S0O T 0021*3 
14557000 T 0022*1 
U5575QQ T 0022*1 



DOWN* 



P(0); 

there:*p; 



£HD',% 



14558000 T 
14558500 T 
14559n00 T 



0024*1 
0024*2 

002 4* 3 



$ SET OMIT « NOTCSHARtDISK) 
Ai«ABS(A}; 
X*»CMtR»gG£TSPACEC60*0>0)*23U60Le*38*lO]; 



14559099 T 
14559200 T 
1 45 59 P50 T 



0025*0 
0025*0 
0028* t 



IF (A 08 B), [1*53/0 OH Asei4 OR A=P114 THEN 
BEGIN 

TERMlNATE(PlMlXR75t;iet33>l53); GO DSDj 



14559300 T 
14559400 T 
14559500 T 



0032*2 
0036*1 
0036*3 



»5 

46 

♦7 

•8 

«9 

90 

51 'I 

S2 

54 

55;*, 

56 I 



end; 
$ set omit ■ shareoisk 
lockdirectqry; 



14559600 T 
14559990 T 
14S6OQ0Q T 



0038*2 
0038*2 
0036* a 



% POP OMIT 

S»aSCRAMBL£(A*B); 
CHECK* DlSKHAlT(-R*-60*(j;»S3 ); 



14560010 T 
14562000 T 
14563000 T 



0045*0 
0045*0 
0052*0 



IF PtMjX ^0 THENX 
IF THERE THCNX 
BEGIN 



14564000 T 
14567000 T 
14569000 T 



0054*1 
005SIO 
0057*0 



t SET OMIT = NOT ShAHEDlSK 
UNLOCKDIRECTORY; 
S POP OMiT OMlT 



14568690 T 
14569000 T 
14569010 T 



i4Mfilii*i" 



0057*2 
0057*2 
0061*0 



^i!Mi»iMiii»:iiiiliiii^^ ou 



0061*0 
0«d3*3 
006gl0 



57( 



D;«jj«sPACE(lO)); 



14570100 T 006912 



• • 



DS»13LIT"#DUP LIBRARY ";% 



UC(bS*i5l.IT"CILL£aAL USER) "); 
SI»A ISIoSI + UOS^TCHSI* 

OS>LIT"/** fSl*Sl»i;DS*7eHRn 



U571000 

H57 20QQ 



00/2»0 
0Q73IQ 



U57aiQ0 T 
U573000 T 
lA57flnOO T 



007410 
0077*0 
0077M 



D5<-UIT' 



I " ; X 



;si«-si + i;d£>«-7chr>* 
fSi«-si-n ; DS»7CHR ; a i 



U575000 T 007813 
14576000 T 0079*1 
l.rt 5770 0Q T QOBQtn 



7 
S 
9 
10 
11 
12 






U578000 T 006110 
Ui78500 T 00e2»2 

Ui79nQQ T Qoa ^io 



SPaUTCjii 

REPtYCPlMlxJ«*-Z; 
IPL£XSUE£:P(CTERMT?< 



XOMJ 



C33tl53*PlM,IX)QH(RFPLY[PlMTXJ>0))i» 



U580000 t 008311 
14581000 T 008410 
l<l992nQ0 T 0095 '2 



13 
14 



15 
16 
17 



14i7«l00 



ACCIDENTAL 



ENTRV 'AT 

IF TEK«lX.tCf3«PlMlX THEN 

flEQiht FOR lt»MCL*103*lO &TgP *i UNTIL 11 DO 






IF M[L + iJ;«0 TH£^ 

GO TO bombuut; 



FORgETUSeRdISK CM CL-f 1 3 * -M [L +93 ) ; 



end; 



14983200 T 
14583300 T 
1 45 8 3400 T 



00 99 « 3 
OlOB'O 

Q . ioe' z. 



20 
21 



22 
23 
24 
2S 

28 ;f 

27 If 



S SET 



IF NOT WHYSLEEPCiil THEN 
IF REPLY[PiMIX3,ti8J30i' 
UMTT » l^nTfDATACOM } 



GO TO WHY; 
VRM THEN 



14584000 
14585000 
1 4 58505 



010812 
0i69»3 
QlltM 



BEGIN 



IF P(0lRECTnRYSEARCHC-A'BW)#DUP) = 2 
THFN RFGIN PCQFI,)? |,.RMF.SS{ A »R>«7>25>Q* Qt 1) J END 



U985200 
14585300 
1 45 8S3 5 



T 
T 



0_^_ 



OlllU 
Olll'3 
0U3»? 



$ SET OMIT « 



NOT 
L 



ELSE 
DATACOM 



IF Pi^S THEN GO OSO; 



XNO. 



14585400 T 0117J1 
14585490 T Oiie»3 

i 4ie?aOo T one* 3 



28 
29 
» 



REPLYtHlMlx3«=Q; 
$ SET OMIT * SHAREOISK 
I QOKniRECTQRY; 



14588000 T 
14588090 T 
14588100 T 



0ll8»3 
0l20»0 
0l20»0 



31* 
33 



S POP OMIT 

GO TO check;% 

END ELSE ELSE 



T»gs; 



% SETS UP FOR P1MIX»0 



14588110 T 
14589000 T 
1459QQ0Q T 



012612 
012612 



34 
35 



% 
% 
% 



THE FIlE Is NOT THLRE. Wt sEARCH FOR A VACANCY. IF QnE Is FQuNO 

z aNd t A«e ITS Aon«ESS. IF theRe ISnt one* I IS The address op 



14590900 T 
14590910 T 

14590920 T 



14S9O930 T 
145909«0 T 
14590990 T 



0l29»3 
0129 1 3 
0l29»3 



37 
38 
39 



% 



THE last block AND T IS SEt TO THE AOORESS OF THE NEW BLQCK. 
S SET OMIT, ii\fetOT\S.HARE.DlSK- ■. ■' "■''■'■■■'^^\ ■/':.\:-y'-'^rr./''\^^ ''■■■-■:/■■ •^■.. 



0129 » 3 

0129 1 3 
0129*3 



40 
41 
42 



00 BEGIN 

IF cZ«*T)Xj Then diskwait(-r#60*2); 

FOR 1*0 step 3 UNTIL 57 DO 



14591500 T 
14592000 T 
14593000 T 



012913 
Ol29»3 

gi33»0 



43 
44 
45 
46 
47 
18 



IF (XCn EQV ?14J» NOT THEN GO TO FOUNDi 
END UNTIL tT«»Xt2],CFF])«0J 
XC23.CFF3* BYPASS > SYPASS-'a; 



14594001 f 013410 
14595000 T 0138»2 
14596000 T Ol#lll 



14598000 T 014411 
14598090 T 0l46«2 
I4596i00 T 0146«2 



IF BYPASS. CCF3 Lta BYPASS. CFF] THEN GO TO BYE; 
S SET OMiT « ShAREOISK 

DISKWAIT(R*60,2); 



% WRITE OUT POINTER TO NEW BLOCK 



49 

50 

51 



S POP OMIT 

TI»BYPASS.lCF3a 
XU03»»gl4i M0V£(59*X1*X1 INX 1?; 



14598110 T 
145982O0 T 
1459C300 T 



0l47»3 
014713 
0149*0 



52 
53 
54 

55 

56 

5. 



$ SET OMIT * NOT 
psO; 

FOUNDiili 



SHAREOISK 



P9CQUNT*P8C0W*IT*C(C(A EOY^PBO 
<(:> EftV'PUO '♦)»NQT 

xcn»Ai xtitu^fj xrl»2nUf3»NEXTitgTJ 

S SET UMIT s NOT SHAREOtSK 



")«NOT 0) OR 
0)) AND (8.tCF3»l))i 



14598390 T 0l52«3 
14598500 T 0l52l3 
14599000 T 0153»2 



14599^00 T 015312 
i45999J0 T 0155* I 
140OOOOQ T 015911 



52 

53 ( 
54 
55 
58 I 
57 



14600290 T 0l6i|!3 



2 
3 

4 
5 
6 



DlSKWAlT(Rl#60*T)j; 



U6OO5OO T 0l64«3 
U,.6Q09QQ T 0.166 <Q 



X 

X 

_1_ 



UPDATE THE NAME SEGMENT* 
HEADER IS WRITTEN, 



But dont write it out until the new 



14600910 T 0166*0 
14600920 T 0l66?0 
1460093 , T 0)66*0 



J*CNEXTSLOT-OIRECTORYTOP-3)&0[44I44J43 4DIRECTURYTOP+I9i 

i:*((TJ=NtXTStOT)-J)xiJ'*30; 

DI SKWAITC-R1>«30'>J )J 



U601000 T 016610 
14601500 T 0169»3 
14602000 T Ql7g«2 



NEXTSl,0Tt=XUl + 13; 

xitntvAj xui^nicB; 

IF NFXTSLQT'Q TH F N 



% GfiTKifi TO USP rnr RFC"RD 



U6O25OO T 
M603000 T 
14603100 T 



017411 
Ol75»3 

Qiran 



10 
11 



IF 1=0 THEN % 

BEGIN P(XUii8]fXH29n; % 

Xlt2a,J«=lll4i i. 



WHITE NEW EOF RECORD BEFORE 

DESTROYING CURRENT ONE 

SAVE NAME/ REPLACE WITH '^END" F 



yui. 



I 460311 OT 01791 2 
14603200 T 0ie0«3 
1 46 3 3 00 T 0l8 g«l 



t3 
U 
15 






4ti_ 



14603310 T 0i83»2 
14403320 T Ol84»3 
1 4 603330 T 0l8 6 «0 



)6 
17 
18 



Dli»KWAlTCRl*30*J>16); 
P([XlU9]]*«./tXlC28n»«-?; 
IF Jtl6 GEO BYPASS, r 



CJU- 



% RESTORE CLOBBERED NAME 
THEN 



14603400 T 
14603600 T 
14603700 T 



0i87«3 

0l89«2 
019110 



19 

20 
21 



BYEI BYBYCOIRECTORY FULL*'*#15); 

END ELSE 
BEGIN xUI'23:»'gU4; XUl'lJaaQl NEXTSLQT1«T-1 ENOi 



14603^50 T 
14603800 T 
I46 Q4 O OQ T 



019213 
019911 
0i99M 



22 

23 
24 

26;; 
28 i? 

"■?, 
28 
29 
30 



% 
% 
% 



NOW WE CAN WRITE EVERYTHING OUT« NOTE THAT IN ORDER 
THE DAMAGE CAUSED BY aN, UNTIMELY HANG# THE MaIN ANp 



TO MIMMUE 

( FOR 



14604900 T 
l46o49lo T 
14604920 T 



0206*3 
02o6;3 

02 06* 3 



X 

X 



SHAREDISK) THE BYPASS DIRECTORIES ARE CORRECT AT ALL TIME3* 
S SET OMIT s NOT 3HAREDISK 



14604930 T 
14604940 T 
l46Q5zt9Q T 



0206*3 
0206*3 
2 6*3 



DISKWAITCL+1**30#T}; 
$ SET OMIT 5 NOT SHAREDISK 
DlSKWAITcRl>-30»J)J 



X FILE HEADER 
X NAME SEGMENT 



14607000 T 
14608490 T 
14609000 T 



0206*3 
0208*3 
0208*3 



31 
32 
33 



$ SET OMIT • NOT SHAREDISK 
S SET OMIT » SHAREDISK 

UNLQCKDlRECTQRYf 



14609990 T 0210*1 
I 461 7990 T OalOll 
1 46 16000 T 021 0n 



34 

35 
36 

37" 

38 

39 



$ POP OMIT 

euf«=t; 
bdmbout;x 



I46I80IO T 
14619000 T 
H620Q00 T 



0213J3 
0213*3 
0214*2 



FORGETS^ACECR); 

END ENTE8U5ERFILE )% 



14621000 t 0ai4l2 
14622000 T 0215*1 

sUE» ogtr hqrqs 



40 
41 
«2 



PROCEDURE CQMU; COMMENT ALGOL 1^0 COMMUNI C ATE; X 
BE6IN REAL C0DE*''4* T Ank»-5* RQWs-6; X 



START OF REL 



14623000 

segment; disk 

14624000 



T 0000*0 

address * 

T 0000*0 



00370 



«5 



REAL M10»-8#FID»-7; 
REAL STa«'6* RE5ULT«-7* B> If F* S# TIMeQuT**7; 
NAME PHYLa-5» A; 



14624050 T 
14624100 T 
14624200 T 



0000*0 
0000*0 
000010 



•6 
47 
«8 



SET OMiT 
ARRAY 
ARRAY 



= notcdatacom ) 

HEADER»-5[*];x 
FINALwbt*]^ 



14624299 T 
14625000 T 
H626QO0 T 



OOOOiO 
0000*0 
0000*0 



49 
50 
51 ; 



LABEL OPEN^PARITY, EOF, EOT, DISkSP ACE, DISkL0Ck;x 

LABEL <»RABlT#S£EKOC*R£AOC,GlN,SLEAP,READSOUGHT#DCiUFRLS; 
LABEL OCWRnER»FlNOBUfl 



LABEL C0B0LDCWR,ECH,WH I loop; 
LABEL ARGH, PURGELOCKi 

LABEL cluse,rdata,selerr*space*refill;x 



14627000 T OOOOiO 
1462? lOOT OOOUiO 
14627200 f OOOOVO 



52 
53 
34 



14627300 
14627400 
14628QO0 



0000*0 
0000*0 
0000*0 



55 -v 

56 i: 

57:1 



fiifciiitiiliiillWiittiiiiiftii^^ 



U 63C00 Q T 0Q QQ*Q 



65 
56 ( 

5? 



Switch function«-open,parity,eof,eot,oiskspace,seekdc,clo^e. 



14631000 T 0000*0 



• • 



h 



ROATA'SEl.tRR,SHACE/REKluL«READLABEL*IORtQ»RUTATE*READC» 
READSaUGHT*DCBUFR(.S> DC^^RITER^ F I NDBUF# CQBOlOCHR^ 



puRgelock 

RgAl TNFQ^LOC*USASi; 



U632000 



0000*0 

onontn 



14632200 
14632900 
U6330Qn 



0000»0 
000010 

Qnooin 



REAL in 
LABEL MESSAGE* BACK; 



14634000 T 
14635000 T 
14636000 T 



000010 
0000 «0 
0000»Q 



REAL 
GO TO 
PARITYI 



TANG»TANK* 

FUNCTIONCCQDEJU 

INFO*" PAR**; GQ TO MESSAGEl* 



INFO*" PAR**; GQ TO MESSAGEIX 

INFO*-" E^F"; GO TO mlssage;* 

lNFO«-»' EUT";X 

FPB»PHtC^'lMIX#33; FIB«-M[PC,TANK>L0D).[33»15]- 

re t^tai^t^ r^tA^ tucm INrfltai «c» 1NV«* GR I 



14636100 T 000010 
14637000 T OOOOIO 
lfl639nQQ T QQUft 



10 

11 



EOF! 
EOT« 

Message* 



'33;* 



14640000 T 
14641000 T 
14642000 T 



0017«0 
0020»0 
0020 » 3 



13 
14 
15 



IF rielSJ.tHl] THEN INFO<» ••• 
STHEAMC3<*lNrO#Z*0*F* IF TANg»0 
CFpaCFtat4].Ci3rtlM3* 



INV 

THEN 



OR h; 

ELSE 



I4«42l00 T 
14«43000 T 
14643100 T 



ooasto 

002dtC 
00301 ^ 



17 
18 



fl^TANG/'O' 

J*JARRQWLPlMiX],X 

D<-(CQDE<-GETSPACE(10>2*0)-t-2));!li 



14643200 T 
14644000 T 
1 4645Q0Q T 



003210 
0032»3 
0Q33«X 



■9 

20 
21 



BEGIN DS ♦ LIT "-«; 5I«-L0C X; SI»Sl*5; 03*3 CHr;* 

SI«-LOC X/ IF SC*0 THEN DS«-l0 UlT •♦ NO LABeI "X 
ELSE IF Sc""8" THEN pS^ ll LiT 



14646000 T 0035»3 
14647000 T 0037»0 
14647100 T 0039U 



22 

23 
24 

27;; 



♦•WRITE TU " 
EtSE IF ScPSO THEN 
"ALIO USER " 



DS:si0 LiT 



14647200 T 
14647300 T 
14647400 T 



0040J1 
004l»3 
0042«3 



ELSE IF bC » P2O Then D5i»i0 l-iT 
♦• WRT/SEEK " 
ELSE 0S»10 tiT "ECT ERRpH ^}% 



14647S00 T 0044»0 
14647600 T 0045»0 
14648000 T 0046 11 



28 
29 
M 



flCX«-Di; Si^p; DIALOG l) 

IF a sc/Dc THEN BEGIN si«-f; si*si + i; DI*X;X 

0S»7 CHRJ QS«'LI T" 



JltQli. 



14649000 T 
I465OOOO T 
1 465 100 T 



0048«0 

0049(1 
OOSQIg 



31 s 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



ENOU 

oi«-x; Sl<-Sui; oS* 7 CHR ); 
DS»2 LIT 'M»'*;x 



146S20O0 T 0OSU2 
146S3000 T 005112 
14654000 T 00M«2 



end;x 

tehmInate(pimix); TERmInALMESSaGECC-CODE))^* 
DiSKSPACE>UPEn;CLQSE» go TO INITIATEJX 



14655000 T 
14658000 T 

U659Q00 T 



0053»0 
O053M 

005510 



$ SET OMIT * DATaCCM 
SEEK0ClREAOCiRE*0S{JUGHTlOCauFHLS»DCWRlTER|FlNDBuF»COBOLDCWRj 

GO initiate; 



1 4 6604 99 t 0055 » 2 

14660500 T 00S5»g 
14660525 T 0055 »g 



s pop omit 

$ Set omjt = noT(daTacQM) 
io initiate; 



! t 



PURGElOCKJ SAV€WOR0>»5AVEWtjRp OR TWGCRQW); It 

ROATAiS InF0«.« RER"; GO TO MESSAGE; 

SELERR» iNfO <" «'370QQ000606i^2543j GO TO WESSaGEI 



FI8*M[P(,TANK,LQ0).C33:i5]-3]; LOC«-F IBt 1 53 • C25 ' 5 J^ X 

blasto(lOc);x 

FPB«-tMEM0RYC5 3]i3t23t46j2HR0WC22jl:n;x 



I466O526 
I466O999 
14670600 
UifloOO 

U67300Q 
1467 40 00 



005610 
0056«0 
0056 »0 
0OS6»2 

005813 
006i4;lO 



46 
•7 
18 
•9 
50 



SPACE J 



I4675OOO T 
146760O0 T 
14677000 T 



0067«0 
007111 
007210 



46 

47 
48 
49 

sol 

51 

52 

53 < 

54 

55 

56 < 

57 



R0W«.ABS(R0M};X 

WHILE (ROW^ROW-DiO DO 

SO TO initiate; 



INFO*WAITIOCFPB**40»LOC);X 
t t 



14678000 T 
14679000 T 
14680000 T 



0a75»l 
007611 

006110 



52 
J3 

S4 



REFILL' FIB«.MC(TANK*P(,TANK»LOD).C33»15 3 J-3];x 

C0DE*FiBCl3J.tl0«9]-liX 
L0C«-FIBtl9].C33»l5]"FlB[l6],E33llSj;x 



14681000 T 
14682000 T 
14683000 T 



008112 
0085« 1 
008711 



55 



FPB«.MEMQRYtFl6Cl63 
lNF0*FPe.Cl8U5];X 



I NX o*ROVij;x 



g^ 



IN id KEaUEST C FL AG C F I B 1 1? U( II^FD+LQ C ) C 33 » 33 I 15 J )* X 



14684000 T 
14685000 T 



009010 
009213 



BEG 



14687000 T 0095»0 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 



FIBC16]8.INF0C33»33«15]*FPB);X 
MLM0RY[TANK3«-MLMUHYCTANK]&0[2t2tlU0[l9;19»13X 



U688000 T 0097«0 



«0C26i26t7]&INF0(33U3U53;X 
STREAMCCODE*T«-MtMQRYCTANK3*7ANK);X 
BEGIN SlfTANKJ SI«.SI*ftJ nS«-CQOE WnSfX 



14690000 T O1O1I3 
14691000 T 010412 
lfl6Q2/)nn T Q106t? 



Sl«-lOC Ti DS*wos;x 
ENU;X 
INFO»MEMORYtlNFOfRO><] .C18t 153;» 



14693000 T 
14694000 T 
14695000 T 



0107S2 
0108J0 
Ol Oflf 1 



READLABEH 



ENOjX 

GO TO INITIATE.; M 
FI8«'MC(TANK*'PC»TANK#L0D).C 33*15 3)' 



'33J1; 



14696000 T 
14697000 T 
14696000 T 



Olll»0 
0113M 
0113»3 



L0C*-FIBC153,C25:53;X 

BLASTQdUOiX 

P(KAlTlQ((FlBC53»[44<13x(MCTANK' 



g Jtte tl QJ'U INX MCTANK- 2]) 



14699000 T 
14700000 T 
U7.01Q0Q T 



Oll7»l 
0118»3 

gU9 «g 



&MCTANK3£21l2it43##3770OOO0*UQC)'DEl.)l 
STRCAMCYI»QlXlso#Xll»0»X2»"d»-Zt««CTANK-23)* 

flESiN Dn*LOc Xj DSt«24 LIT '^VOLlHpR 1H0«2E0F1E0F2E0V l" 1 



U702000 T 
l47oSlo25 T 
14702050 T 



0124 H 
OtZfito 
OlSl*l 



Dn»LDc x; 

6(TALLY»sTAtLY+i; 



14702100 T 
14702150 T 
1 4702?00 T 



Ol34«3 
Oi35»0 
Ol 35 » 2 



19 
20 
21 



IF 4 sc»DC Then 

JUMP OUT TO A)? 
TALUY»«0; 



14702250 T 
14702300 T 
14702 35 T 



013513 
0136»1 
Ol37<0 



22 

23 



At 



y»«tally; 



I47024OO T 
I470245O T 
147Q25P0 T 



0137«1 
0137»1 
1 37»? 



2S 

26?: 

27(1 

28 

29 

30 



IF (USASUsP)>0 THEN 

USASITAHECMcTANK-2]aCF3#USASl*3#lOc#Fl8t5],C4^U3); 
PCriAlTlQC[HC5 3 3&3C23U6>2 3&cNOT FIBC5 3)C22»44U3, 



14702550 T 
14702600 T 
14703000 T 



013713 
013813 
Ol^3»2 



lOREQi 



937700000»LOc)*DEL)i 
GU to INITIATE; U 

FPB«.MEMQRyc(IF cINF(j»NFlAG(MEMORY[PcTANK»DUP> [MJ> iNX^pHp])) 



14703100 T 
14704000 T 
14705000 T 



0l47»0 
0l48»0 
Q148<2 



31 
32 



♦ C22U3 THEN 2 ELSE NOT U InX lNF03;iS 
IOREQUCSTCFINAL#INFO*FPa>;X 
MEMORY tTANK3*MEMaRYC Tank 340 [26»26»73&0C19» 471 13 ;X 



14706000 T 

14707000 T 
14708000 T 



0t5l»l 
0l56»0 
015713 



36 



GO TO 
$ SET OMIT 
it 



lNlTlATt;% 

s notcdaTacom ) 



14709000 T 0162«0 
14709099 T 0l62»2 
14709300 T Ol62«2 



ROTATES TANK*P(,TANK>LOO)»C33U53;X 

STREAM! t^mctanks^n^row-wo^tank);* 

BEGIN si»d; si«-su8; os«-N wps; si«-LOc t; os»wds end;* 



14710000 T 0l62<2 
14711000 T 0l64«2 
Hy i ZQOO T 1 6710 



40 
41 



IF M[TANK3,C3«53=16 THEN 

IF MCTANK3 .C24« l3 THEN 

IF (I»PCMtTANK"33*14»COC)3XO 



THEN 



14712100 T 
14712200 T 
147 12 300 T 



0l68»3 
Oi70«3 
Q1 72I3 



43 



45 
46 
47 
«8 



BEGIN 

phYI «. tank INX m; 

FOR LOCtHPW"! STEP *1 



UNTIL 00 



14712350 T 
14712400 T 
1 471 2450 T 



017611 
017613 
P17 flfO 



BEGIN 

INFO <■ NFLaG(PHYLLLOCJ); Xtl9|23«0 THEN I/Q IN-PROCES^ 

TF (B»M[INfO INX N0T(2*(INf0.C19I23»O))3)^O THlN 



14712500 T 
14712510 T 
1 47 , 12550 ,, T 



018211 
0182J1 
0l84t0 



49 

50 
61 
52 
S3 
i* 
55 
56 



BEGIN 
S SET OMiT * NOTcOaTACOM ) 
IF Cl*l"l) i THEN 



14712600 T 
14712649 T 
1 47 1 2750 T 



018811 

oiests 

1 88 »3 



49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ( 

3 



LOG * -1; 



ENO; 



en d; 



14712800 T 
147 128-50 T 
14712900 T 



019012 
0192«0 
019210 



:i aii ii iiiifei^ili!i§ii»fii 



End comii;x 



■14'71*iilillii: 



019410 
019410 
01941? 



14714000 T 0l94»2 



• • 



h 



i SFT UMTT » NpTfDATACOM ) 



PROCEDURE OlSPtAY(X); VALUE XJ R£AU XU 
BEGIN RIAL T; 



SlZE» 0195 WURDb 
1<«715000 T OOOQIQ 



START or REL 



15019000 

SEGMENT' DISK 

15 02 000 



T 0000*0 
ADDRESS « 00377 
S QQQQtQ 



STREAMCX« J^JARRQWCHIMIXJ^PIMIX** 

Y «-T*GETSPACE(2b*0#0)+2)^X 
BEGIN PS » LIT **<(";a; 



15021000 T 0000» 
15022000 T 000 1» 
l')0230QQ T 0.0 0/1 » 



9 
10 



2(si ♦ j; SI «. si + i; OS * 7 cmr; j ♦ sux 
L« SI ♦ si-in 

IF SC g " " THENX 



1502^000 T 000/113 
15025000 T 000610 
15026000 T 0QQ*H 



11 

12 



BEGIN 01 * Dl-i; gO TO I ENOi* 
OS «■ LIT 'V; )i% 
DI » DI'U pS » LIT »*»*';% 



15027000 T 0006«3 
15028000 T 000711 
15029Q00 T 0008«0 



13 

14;! 

16 * 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

28/, 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

♦3" 



WMmmm&m^mmimmmmmmii/ 0'i*o i-zj 



15030000 T 
15030500 T 
15031000 T 



OOOAt 
00091 
00101 



h» a(40(IF 5C = «4." THEN JUMP OUT 2 TO Hh; 
DS«-CHR))i HH« 

J *■ -Di; 01 ♦ oi + b; si ♦ j;x 



15032000 T 001l«0 
15033000 T 0012«3 
150 3^000 T OOXJlZ, 



S» 51 ♦ Sl-li IF SC « - "^ THEN GO TQ 3;* 

SI *- si + i; J ♦ su 01 «■ jj OS «• LIT "♦"ix 

X» DIJ : 



15035000 T 
15036000 T 
15O 37Q0Q T 



ENo;x 

X* {((X<.P) INX 0) •T)x8 + X,[30«33-li 

spouT(Pcx>Tn; 



ooiti 
ooisi 

.MXAl 



15038000 T 
15039000 T 
15040000 T 



00161 
0017« 

00 211 



ENo;x 

PR OC E DUR E C0M13 iX 



150 4 1000 T 

SI 

14Q600Q0 T 



00221 

ZE« 002 

0000 1 



3 WORDS 




25 

26 < 

27 

28 

29 ' 

30 

31 

32 I 

33 

34 

35 < 

38 

37 

38 i 

39 

40 

4, < 

42 

43 

44 ' 

45 

46 

47 < 

48 

49 

50 i 

51 

52 

53 < 

54 

56 

56 ' 

57 



BEGIN* 



COWMUMCATf* 



starT of reu segment; DISk a 

15O6I000 T 

, 15 62 000 T 



ODRESS « 60378 

OOOO'O 
OOOQ 'Q 



REAL- '■^cmm&mmm^i'^mm' 



» >6 y% 



15063000 T OOOOIO 
15064000 T OOOO'O 
l S0 65f>QQ T OQOQ'o 



REAL T# C0B68; 

LABEL l0»L1#L2,L3,l**LS#l6,l7*l8*L**L10,l11*L12,L13,l14,l15,% 

LU*L17^it 



I5O66OOO t ooooj 
15067000 T OOOOI 

1*1066000 T 0000» 



SWITCH TYPE * LOrLl A2»L3#L4,L5*L6,L7>L8,L9#Ll0/LiU: 

Li2»Ll3*Li4#Ll5*Ll6'Li7;X 
DEflNE lNgMT«F|BC133,I27li3»>0IR£C»FIBCl33:.C25lU»^» 



30RTFIL£aFIB[a]«t7«n)|!,LABELS0MlTTE0«FlBCi|],l.2ll 
CQb68 *■ (FIB *■ *(FL0C)).[8I10] " 22; 
GO TO TYPECCOD£];X 



1SO690OO T OOGQIO 
15070000 T OOOOIO 
I5Q7100Q T 0000*0 



un 



I5O720OO T 0000*0 
15073000 T 0000«0 
15074000 T 000311 



45 
46 
47 
«8 
49 
50 
51 
62 
63 
54 
55 

56 ; 

5'?! 



LC»X 
Ll*» 



00 UNTIL false;* 



15075000 T 001311 
15O760O0 T 00l3»l 
1 5077000 T 00 1 4»0 



L2«X 
LSI* 



IN0UT»caD£^3; OIREC* C0DE»2;% 



15078000 T OOI4IO 
15079000 T 001410 
15080000 T 0014*0 



IF NOT C0B6B THEN 

IF FIBC53,t46ta3»3 THEN BEGIN* 

FlBCl83tEl6ll»I»Fietl83*C3il5 3;x 



IF C0DE»3 THEN 

FIBCl83.c3»l53*FIBCl8],C33J15]+FIBtl8j,C3ll5]; 
NTl»»FL0C II^X 3' 



I5O8O9OO T 00201 
15061000 T 00201 
150B2000 T 00231 



ENO;x 



P(0#STF,PRTCP1WIX»83,STS); 

mmmmmmmmm 



15082100 T 0025* 
15083000 T 00261 
15084000 T 0031* 



Ll6i« 



Ll7«X 



•is,0'fif»ii*p 

ISO86OOO T 



0032* 

'mi 



15089000 T 0036*0 



k- 



2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 ' 

32 

33 

34 

3S 

36 

37" 

38 

39 

40 

♦1 

42 

43 



DO UNTIL false;* 
L5« L6tL7{L6»L9»Ll0ILlltLl2«Ll3»LiatLl5U 



15090000 

.15Q91.Q0Q 



T 0036 
T 0036 



Lfll* 



OQ UNTIL false;* 

r.QBE ♦ IF (CQO£»ABS(REEL))»0 THEN 6 ELSEt 



15092000 
15093000 
1S094Q00 



T 0Q36 
T 0037 
X 0037 



(IF caDE*l THEN 7 ELSEX 
(IF C0UE=2 THEN 10 ELSE* 
(IF CaDE»a THEN P22 ELSE 



XKRUNCH 



15095000 
15096000 
15097000 



0040 
0042 
0044 



(IF CCiDE»64 THEN P52 ELSE 0)))); 
IP CT«'Fl8C43.C8»4])X2 AND T^4 AND TXe THEN C0O£*0U 
TF T«a AND CQDEs Q TH EN CQoE«-tQ O : 



XKRl/NCH 



ISO975OO 
15098000 
1SQ9900Q 



T 0046 
T 00*9 
J flXlSA 



FILECLOSECC FLOC INX 3 U CODEt 18« 331 15 J); X 
IF C0UE«O UR COOE*10 OR CUoE«f22 THEN FlBCsJ , U2U]*1 
£LSE Fti)C5 3,E40»2 3«-CCnDE»^?x2^i;ili 



15100000 
15101000 
1510200Q 



T 0057 
T 0059 
J 9Q63 



IF NOT C08*8 TUfN 

IF FI8£53»t*6t23#3 THEN BEfilNX 

FlBCt63*C3tl53»Fl6Cl83«tieil53;FIBCt83»tteil5 3*-0 END;* 



15102900 

15103000 
1S104QQ0 



t 0069 
T 0069 

T 0072 



60 TO initiate;* 

END C0M13;X 



15105000 
15106000 



BOOLEAN PROClOuRE CeNOuERCCtN>L*S*Q); 
vAmF C>N#L#S*6J 



start Of rel 



151 

seqment; 

151 



66000 
DISK 

6 6 i Q Q 



T 0077 

T 0078 
Si7e« no 



T 0000 
ADDRESS 

Jl 0000 



3 
1 

9 wQRpa 



00381 



REAL c,n^l; array sc*];* 

INTEGER G; 
B E G IN ARRAY B*CC*3 ; * 



151 

151 

XSi 



69000 
69100 
70000 



T 0000 
T 0000 
T 0000 



REAL T»I»T;X 
LABEL X;X 

IF G THEN 



151 

I5I 

JJLl 



71000 
72000 
72«iQQ 



IF NXL > 512 THEN GO TO X;X 
IF (T «• GETSPaCE(N><L»2'3)) » THEN* 
BEGIN IF NOT G THEN PCO>RTN); 



151 

151 

_151 



73000 
74000 

75 00 Q 



T 0000 
T 0000 
T OQQQ 



T 0000 
T 0003 
T 005 



X» IF NOT N THEN 

BEGIN 6«"C0NQUER(C*N*-N OlV 2*L«N INX S»l); 
G*CONQUERfS TNX N*N#L>S»1?; 



151 

151 

-lii 



75900 
76000 
77000 



T 0007 

T 0008 

Jt 001? 



fN u;* 



P(lfRTN); 

p(xiT);x 



151 

151 
-Ul 



77800 
78000 
790QQ 



T 0016 

T 0016 

-I 0016 



T *■ GETSPACECL»2*1);X 
ENd;X 
6 » tMn»233&LC8>38a03&CCl6t33tl53;» 



1 51 
151 



60600 
81000 
82000 



0016 
0018 
00 18 



46 
46 
47 
•8 
49 
SO 
51 



52 
H 
M 

S6 

56 



N «■ N-i;x 

FOR I * STEP 1 UNTIL, N DO* 
BEGIN S[I3 » B;X 



151 

151 



83000 
84000 
eSQ OQ 



T 0021 
T 0023 
T 0024 



ENo;x- 

CONQU£R»i; 



B ♦ L INX 8;X 



151 

151 
151 



86000 
87000 
87500 



T 0025 
T 0027 
T 0029 



end;x 

BOOLEAN PROCEDURE PHtGAMES(BuFF » MI X ); VALuE BUFF^MIX; HEAL BuFF»Hlx; 



START OF REL 



15188000 T 0030 

Size* oo 

15400000 T 0000 



COMMENT PRTQAMES IS THE BUSINESS END OF ^-IN" OR «0T" MESSAGES; 
BEGIN REAL NK»INDEX#DATAi . ^_______ 



$ SET OMIT a NOT(PACKETS) 
LABEL ECH* X;;; 
STrEaM(0UFF#F*BUFF<O,D*COATA3*I*CINDEX3); 



SEQiENT; OlSK 
15*01000 

15»02QOO 



adoRess 

T 0000 
T 0000 



1 WORDS 
0. 



15402499 
15403000 
15404000 



T 0000 
T 0000 
T 0001 



» 00383 






Sgiifiiii»iitiiiiiiiiKiii« : rmK 



15*05000 
15*06^00 
18407 000 



T 0003 
T 0003 

T M<m 



BEGIN TALLY4-TALLY + I; SI*SI + 1 END); 



15408000 T 0006 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



i«.tally; 
XX. 



Di*Di+8; ui«-oi-i; si*si-i; ds*i chr* 



Ml IF sen" " THEN BEGIN SUSI*i; GO M END/ 

IF SCifw" TH€N BEGIN E»0l*0l*tiDS4.LlT""";jUMP OUT END; 

SI*SI*1I 



15A09000 



15411000 
15412000 
tS A l lO QQ 



0006«3 
OQQfl'3 



0009ti 
OOiOM 
0Q t2»0 




N» IF iCe" •• THEN BEGIN Sl«.Sl + l; GO N E^D* TAi-LY«-0; 

«(IF SCa"0" THtN BEGIN T ALl,Y«-TALLY + l ; bI*Sl + l END 
EL^F JUMP OUT); If sr^t" " then if Sc>'"»** THpN GO 



XiL 



1541^000 T 0G12«l 

15415000 T OoI3«2 
1 54160QQ T QQ 1 4 « 3 



i*TAULV; Di*o; si«"5i-i; os*-! oct); 

END* IF (INDEX ANq NOT ?i070707)XO THEN QO 
IF JA RRQWCMl X JisO TH EN G « ECHJ 



ech; 



15417000 T 001710 
15418000 T 0018»3 
1541 90 00 T Q021»0 



IF CN><«-1^DE:^.C45»3]&INDExC42J39«33&INDEXc39»33«33&INDEXC38»29« 1 

1)S20 THEN GQ ECH; 
I F (PRTBP^^^MI X] I NX NK) .>. MIrpRT . t . M lXMQ3t>^OH"33«UF], THEN Gp t .CHi 



15420000 T 0022' 2 
15121000 T 0025»2 
15422000 T — 002713 



13 
14 
IS 



If BUFF<0 TWEN 



FF<0 TWEN 

IF f>(FHTtMlX»NX3»T0P'XCH#DEl,) THEN PRtCMIx»NX3*-0AtA EUSE 

'. r.Q crH Fi Sr 



15423000 T O033»0 
15424000 T 0033I3 
15425000 T 003811 



16 
17 
18 



begin; streamcj«"JAhrov,[mixi*mix*index*k«-cprtCmIx*nx]J# 

0* DATA* BUFF, Cl5«l5]-l); 

BEGIN si»ji si«-siti ; ris»LTT" ";a> jijmf 



15426000 T 0038J1 
15427000 T 0042* 1 
15426000 T QMAlX. 



19 
20 
21 



0S4-7 chr; ds«-liT"/«; si«.si + i;x 

DS*7CHR; 0S*UIT«««; Sl«.tOC Mix; DS*20EC; 

Mix«-nTj Duni'"2; ns<,Fiti,; dumixi 



XWF 



15428],00 T 0045*1 
15429000 T 0046*1 
15429500 T 084718 



22 
23 
24 

26 U 

26 

27 

28 

29 

30 



DS*-3UlT"»R+"; Sl«-5l*4; us*4 chr; 0*01; 

Ds«-3 fill; di«-u; ds*ht"s"; si«-r; 

IF S8 THEN % DESr.RTPTOR?TYPE OCT, 



DUUI-4; 



' E OCT A L 



15430000 T 0048»2 
15431000 T 0050*1 
432000 T 0051*; 



-X5 



L4i2-. 



idcos^s reset; 



Ds»B dec; 



3(IF SB then 0S*SET ELSE DS* 
RESET; SKIP SB)) ELSE 



15433000 T 0052l0 
15434000 T 0053*3 
^*iA^Sn0Q T Q055t0 



oS4.LiT'v*"; oi*d; di«-dui; ds*7 fill; 



end; 



ijPOUTER(OATA INX M [BUFF . C 15 I 15]-23 *UN iTNQm ) J 



15436000 T 0055*1 

15437000 T 0056*2 
15437|00 T 0056*? 



31.f/ 

J2 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43' 

44 

45 

«« 

47 

48 

19 

50 

51 

52 

53 

54 

55 

56 



End; go 

ECH* PRTGAM£S*-i; 
JLl ELMQJ 



x; 



15438000 
15439000 
15440000 



0059*3 
0060*1 
QQ6l«n 



$ SET OMiT « NQTCDCLOg AND DATaCOM 
PROCEDURE WMATMCPCBuFF ); VALUE BUFF; 



) 



REAL Buff; xformats wm message 



1544O999 

15500000 



SIZE* 0062 

T 0000*0 
X. OOOOtO 



WORDS 



BEGIN REAL x; 

DiSKWAITC*<X»SPACE(30))»30»MCPNAMeS£G)J 
STREAM(ML*sMARKLEVEL#PL*sPATChLEVEL7LL«sL0CALEVEL 
*N:«X+20+2xSYSND*AjaBUFF); 

BEGIN ps^LiT" "; si»N; si»Si-»i; ds«-7 chr; qs-lit*'/"; 



START Of REL 



seqMenti disk 

15501000 
15501100 



aodRess « 

T 0000*0 
T 000010 



00386 



15501500 
15501600 

15502000 



T 0004*1 
T 0005*1 
T 0007*2 



Sl*SI*i; DS*-7 chr; 0S*6 lit" MARK "; 

Si*«LOc ml; if sc geq " " then; 

8(IF TOGGLE THEN if SC»"0" THEN Sll»bl+1 ELSE 0S»«CHR 



ELSE DS»»CHR); DStsLlT","; 

su=LCic pl; if SC geq " " then; 

6(IF TOGGLE THE^ IF Sc«"0" THEN 



15502100 
15502200 
155 023 00 



T 0009*1 
T 001013 
T OQlltS 



ELSE OSIbCHR); 0S»*2CHR; 



SI««S1+1 ELSE oS«*CHR 



15502400 
15502500 
15502600 



T 0013*1 
T 0014J2 
T 0015*1 



SIlsLQC LL* IF SC GEQ " " THEN; 

Toggle then if sca"0" then sii»si»i e^^se pstgcHR 



8CIF 



15502700 
15502800 
15502900 



ELSE DSJ»CHR); 

DS «- 10 LIT " INCLUDES 
OMIT * NQTCOaTACQM ) 



T 0017*0 
T 0018*0 
T 0918*3 



♦';* 



$ SET 



$ SET OMIT ■ N0T(0Ci»P0 AN0 PATACQM 3 

$ SET OHIT • NOTtOCUQUAND DATACOM ) 

t SET. OH IT « ;f<0T<OFX) 

$ SET OMIT B NQTCbtbUGGING OR CHE^KLINK) 



15503000 
15504000 
15505000 



T 0020*2 
T 0021*1 
T 0022*3 



15510999 



T".^0fftat3 

W.:.. ;,':.002t,*tv 



T 6022 < 3 



# • 



10 

11 

12 
13 
14 
15 
16 
17 
IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37" 

36 

39 



SET 
S ET 



OMIT = 



SET 

SET 
SFT 



OMIT 
OMIT 
Q M IT 



NOTCDIbKLQG) 
NQTCDUMP AND 



NOTCOEfaUGGiNG) 

NOTCBREAKQUT) 

iMOTfSHARFniSK) 



NOT QJ-egGGlNG? 



15511999 

iS51.300,0 



15515000 
15517000 
15*>lfl999 



0022«3 



0022t3 
002213 
0022 t 3 



* SET OMIT * iNQTCSAVERESULTS) 
$ SET OMiT = N0T(STATlSTlC3) 



S SET OMIT » t'JOTcBfibOOUOADJ 
$ SET OMIT a NQT(MOINITOR) 

s SET OMIT s notcRvie: and datacqm 



15519999 
15520099 
l 'S5 ?0l 99 



0Q22«3 
0022' 3 
Q02?» ^ 



15520299 
15520310 
l'S520399 



0022»3 
002213 



SET 

SET 

_S£1. 



$ SET 



OM I T = 
OMIT * 
OMTT a 
OMIT 



,MOT(PaCK£TS) 
NQTCO^^BNapFX} 
NOT SlPTICTANiS 
NOT 



01 

.AiL 



pt; 



AUTODUMP 



15520^09 
15520419 
n52Pa»U 



0022«3 

02213 
002?»3 



15520490 
15523000 



0028 1 3 
0022*3 
Qng^*n 



SI* a; 
IF Sc^"*' 

01 * 



01*- a; 

' THEN 

01- 9; 



1552^000 
15526000 

is'TP-ypon 



O023«l 
0023 « 3 

Qn2d»i 



JX 



DS* LIT "♦■" 

ENo; 
Mc^i.cm] THE^ % r.M haS bffn nn^F 



15528000 

I553O0OO 

is'i^ioon 



BEGIN DISK^AITC-X,30»0); 

ST R ea*^ (N 4.x + 10+5x5 ysno»uUff-); 

BfGlN .Sl*i3UKK; Sl^SltlO^ 
H IF SC MeQ 



002«»2 
0025»0 

onasM 



IF SC NeQ "«,« THE^ 

8uFF*si; Di^-euFF; 

US«-ia LiT"-NEXT MCP 

si*-n; S14.S1 + 1; ds<-7 chr; ds*-liT"/"; 
si«.si + i; DS4.7 chr; ds«.lit"«-"; 



BEGIN 3I«-SI + i; 
WILL BE 



GO L' END' 



15531100 
15531?00 

n^^l •■iQO 



••; 



15531400 
15531500 



00<i6 J 3 
0028 » 3 
0Q3 l »i 



end> end; 



FCRGETSPACEC*)^ 

END whatmcp; 



15531700 
15531800 
1 55 31 9O0 



0031* 3 
00 32 J 3 
OQ 3 3I1 



0035« 3 
0037«0 
0Q3flt0 



procedohe whatintrnsiccbuff j; value buff; Real, buff; 



15532100 T 0038U 
15533000 T .003910 

STZ£» 0041 WORDS 



BEGIN 



start of HEL 



real SIZE^tOClNTwORD^Wl^i; 

LABEL exit; 

IF INTSI2E«0 THEN 



15534000 

SEGMENT' DISK 
15^35000 



15136000 
15537000 
15539000 



T OOOOJO 

ADDRESS = 
T 0000«0 



QO388 



0000»0 
000010 
0000*0 



42 

44 
45 
46 
47 
48 



BEGIN i 

STREAM(BUFF); 

GO exit; 



DS4.14 LIT "no INTRINSicS*."; 



15540000 T 
15541000 T 
15542000 T 



0002«0 
0002 « 2 
0005^2 



end; 



COMMENT MAKE Wl INTRINSIC PRESENT; 

SiZ£ :« ClNTWORQIglNTRNSCElNTRNSCCOJJ) INX QJ 



15543000 T 
15544000 T 
15545000 T 



0006»0 
000610 
0006*0 



LCC »= SPACECSIZt); 
$ SET OMiT = NOT(AoXMEM) 

DISKWAITC-LDC^SUEMNTW0RD»C6>27 3); 



15546000 T 
15547000 T 
15548000 T 



0008*1 
0010*2 
0010*3 



•9 
SO 



52 
S3 
H 

S8:'* 



m 



0ISKWAIT(-(I*»SPACE<30))*30'0); 
STR£AM(X»»X + t3*5KSYSN0*LOK*»l.0CfBUFF); 

ecdiN 



si:=lok; si»»si+8; 
iocsi*sSi+i; 

7(li=' Sc""*-" THEN JUMP OUT 2 TO Li; 



15849000 t 
15550000 T 
1 5 55 1000 t 



0012*2 
0016*0 
0018*3 



.;iii 



mmmmmmmm 






15552000 T 
15552100 T 
15552200 T 



0018*3 
0019*1 
0019*3 



-immmmmt 



0023*0 



siissi + i; DSJS7 chr;ds:«21.it")«-"; 



15552600 T 0025*0 



• • 



>r 



END stream; 

FC P QETSPA g£XM>C,i^ Fgf^<»i;jsPA&i;c,n; 



15552700 
nSSZHQQ 



0026J0 
Q026«l, 



'EXIT'I.'. 



1555^000 T 
15555000 T 

& 



US 



002713 
002713 
m Qn?8 



4*iia£is- 



PROCEDUHE COREPRINT(U); VALUE Qi REAL Qr 

CPMMENT I THI S PR QC Em jRL C OMPUTFS AND TY PES THE AMU UNT S 



START 
-Q£ S Av E- 



15600000 

OF rel segment; DISk 



T 0000 10 
ADDRESS s 00389 
1 5 6 000 5 T 0000 10 



AnO QVERuAYaBlE core in USE FOR A GIVEN MIX OR Ait M^XES; 
COMMENT I Q.tHU » 1 IF ALU MixES DESIRED 
Q.ICFJ « MIXf Q,[<H92 » REMOTE TU/BIIJ 



IS6OO1OO T 000010 

l5«00l20 T -0000»0 
156001^0 T 0000 iO 



10 
11 
12 

13 
14 
15 
16 
17 



BEGIN REAL LINK* i* UErD; :* 

ARRAY CC*37 
INTFGER AfNf 



15600300 T OOOO'O 
15600400 T 0000»0 

isftongon T — 0.000^0 



C ♦ CMtaetSFACECMlxMAX*UO*0) + 233 & 
rOR A » ST£I> i UNTIL MiXMAX 00 CCA3 



(MIXMAx + U 
» 0*1; 



£8»38»10J; 



15600600 T OOOOtO 
15600600 T OOOOtO 
l«i60005Q T OOOAl y 



cco3,tFF] «• A ♦■ mstart;* 

WHILE A X MEND DOX STEP THRU 
BEGIN IF (LINK » MEA] ) « C 1 : 1 3 



MEM LINKS 

THEN GO TO NXTJ 



15601000 T 
15601150 T 
15601200 T 



00 10 » 2 
0013«0 
JOOMIJL 



19 
20 
21 



SIZE ♦ uiNK,ccr3 - a; 

IF LINK,C2I13 Then SIZE ♦OS SIZE 
CfLlNK.C9t633 «• (*f'(DuP3) ♦ SIZEJ* 



ECTF3;X SAVE 



I56OUOO T 00l7«0 
15601500 T 0018»3 
J 1 560 16QQ T 00 2 1 U 



22 

23 
24 

26(5 
26 it 

2?;'* 



NXTJ A ♦ LlNK,CCF3;X 

end;x 

A » "i; >hiLe (A«.A4n 



i MIXMAX PCX 



15602200 T 0023«3 
I56O23OO T 0025«0 
15602 <>0Q T 002 5'? . 



8EGIN IF Q.Cim OR O.tCF] » A THEN IF ClA3 X THEN 

BEGiNi STR£AMcN4.N*CtA3.CFF3*D*CSIZE3);X 
: BEGIN SI » LOG Mi OS » 8 DECf EUnjX 



15602500 T 0028»3 
15602A00 T 0032»2 
l'S6Q2A20 T 0Q3S«P 



26 
29 

10 



STREAM(n*N*CCA3.CCF3.D«-CLINK3);x 

BEGIN SI «. LQC in; OS ♦ 8 DEC; END/* 
jOBHESS(A>Q>'«»SAvEg'SSIZE/" OLAY»"*LINK);X 



156026^0 T 
15602660 T 
156026B0 T 



0036«1 
0038»2 
039U 



31 ;j 
m| 

J3 

34 

3S 

36 

37" 

38 

39 

«0 

41 

42 

♦3" 

♦4 

45 

•6 

«7 

te 

«9 

50 

51 

52 

S3 

54 

55 

56,! 

57 li 



\fgsiii:M^ff"-:mil^lCBfl:vy#T.A^ 



15602690 
15602700 
15603900 



OOflHl 
OO-ttlU 



BEGIN PCCCOJ); 

fQR A4.1 STEP 1 UMlL N'lX-lAX 00 P cC [ A ] , ADU ); * 

i\ * H / i\ *■ N . C F F J + iv . [ C F J ; J. 



i\ <• H / i\ *■ N « C F F J ^^ U . [ C F J / a. 

STREAmcN^O«-D«-(GET3PACEc4'0/'0) + 2^5'* "" 

tlEtilN fl ♦■ lOC n; Ui) «• 13 LIT "TuTAl i><EM IN ^SEs 

oi> * 5 dec; us » LIT "»"; 

Ljl *• DI - 6; 05 «■ i( FILL;* 



156 4 00 
15604i0G 



0044' 3 
0045«3 
005050 



Ljl *• DI - 6; OS «■ 4 FILL;* 
EiMU SrHEAi^; 



15604g5O 
15604 2/ 5 

15604300 



15604400 
15604500 
156G4600 



0052'3 
0055 « 3 

0056*2 



6cS9»i 

OC5953 
0060JO 



FORGETSPACEiC I*^X OJ; 
.ENDv-COR.£PRrN.T;V'--';V;/^ .../ -- . 



15604700 
15604800 
15604V00 



T 006l»3 
T 0061»3 
T 0063*1 



S SET OMir = NOT(AUXM£y) 
PROCECUHE LIIGCUMMENI (S); vALUE ^i HEAL Q; 



15604999 
15'61 0Q0C 



StZE= 0064 
f 0000*0 

T 0000 «0 



WORDS 



RE At . 



BEGIN 



START OF REL 



MJf^rLi 



SEGMENT; DiSk 
I56II0OO 
1 561 2Q00 



ADDRESS « 
T 0000*0 
T 0000*0 



00392 



ARRAY LOGt*j; 

L *- GETSPACE(72'0*C)+2; 
STREAM (Q*0«-L*5?; 



15613000 
15614000 
I5615QP0 



T OOOOIO 
T 0000*0 
T 0003*P 



MMBi 



ja»iiliiiiiiiiigMigil 



ii'lM 



iiiii 






lta%:.ail:i.:..:... 



END; 



15*14000 
IS617000 
15 » 1 $00 



T 0005*1 
t 0005*2 
T- 0Q06»g 



IP 



end; 



15619000 T 0008*3 



# • 



2 

3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

" 

28 

29 

K) 

31 

32 

33 

34 

3S 

36 

37 ~ 

38 



1 *■ P,[33:i3]; LOG 



C^iLL]] & (I-L + 4)C8J38:10J; 

% iNgMtj bK O F >v qrd;> in co mm ent 



15620000 

nezinOQ 



T 0009 
4 0013 



«0 
U- 



WHILE (J««XCLQCK+PCRTR)3 GeQ WiTcHlNGHOUR pO MidNIgHT; 
L06C23 ♦ OaTe,x18»303^ 



15622000 
15623000 
t«;69anOQ 



T 0016 
T 0023 



UOGCO] «■ 99; 
LOGSPACt([LOG[0n#I + 9j; 
FORGETSPACECLaG)> 



15625000 
15626000 
15627000 



T 0026 
T 0027 
T 0029 



REAL PROCCQuREkEYI NSC ANCKTRtMlX); REAL KtR>WIX; 



15628000 T 0030 

Size* 00 

16034Q00 J 0000 



31 H0RO$ 




START Of HEL 



BEGIN 

REAL TYPE = -t-l> 



tbladqr; 



segment; disk 

16035000 
lftQ35lQQ 



aDDRE-SS 
T 0000 
J OQQO 



0039A 



X SCANS INPUT BUFFER FROM SPQ 

% RETURNS ERROR FLAG IN MIX.CU33 ..♦ 

it MIX>C1«U«FLAG FOR EMPTY BUFFER (GROUP MARK ONLY) 



16035200 
16035300 
l6Q35a00 



T 0000 
T 0000 
1 QOOQ 



% Mlx.C2:n*FLAG FOR NO INFO AFTER MIX INDEX 

* Mix,C3S1]*FLaG for QMARK (CC) INPUT AS FIRST CHARACTER 

% KTR is INITIALLY THE ADDRESS OF SPU INPUT BUFFER 



160 35500 
16035600 

16035700 



T 0000 
T 0000 

J QOOQ 



X KTR IS ASSIGNED NEXT CHaRacTeR LOCATION aFTER SCaN 

i TYPt»CCF3 IS ASSIGNED TA8LE LOCATION (MjxMSG OR INFOMSG) 

% TYPEVUISi IS ASSIGNED PROCEDURE NUMBEft 



16035600 
I6O359OO 
16036000 



T 0000 
y 0000 
T QOOQ 



% TYPE.C6J63 IS ASSIGNED MIXCUDE 
STREAM(MiX: = 63* bUFFj»=KTR :)/ * SCAN INPUT BUFFER 
BEG IN 



I6O361OO 
I6O362OO 
I6O363OO 



T 0000 
T 0000 
T OQOl 



sij»buff; 

di«»buff; oi»*di-i; ds»slit"<"; % backspace character 

a(6q(if sc-***" then x end of input string 



16036aOQ 
I6O365OO 

lftQ^66QQ 



T OOOl 
T 0002 
J. OOQ3 



BEGIN 

ds:schr; jui^'P OUT 2 TO l; 
end; 



16036700 
16036800 
160.16900 



T 0004 
T 0004 
T 0005 



IF $€»•♦<♦• THEN % BACK SPACt CHARACTER 
BEGIN 
DH«DI-1; IF SC NEU DC THEN DItsDI*lj 



16037000 
16037i00 
1 6037 ?O Q 



T 0005 
T OOOS 
T 006s 



END 
ELSE BS»=cHR)); % END OF BACKSPACE CHECK 
L; SlisBUFFJ DltsLOC Mix; % CHECK FOR MIX INDEX 



I6O373OO 

16037400 

I6O 375OO 



T 0006 
T 0006 
T 0Q07 



Ll» IF SC" '• THEN 

BEGIN 
SIt»Sl*U GO TO Li; 



16037600 
16037700 



J. 



17<:^QQ 



T 0008 
T 0008 
J QJIM. 



«o 

41 

42 

43^ 

44 

45 

46 

47 

•8 

49 

50 

51 

52 

53 

54 

S5 

56 .,;, 

57 i; 



end; 

IF SC«"«-" THEN % EMPTY BUFFER 
BEG IN 



16037900 
16038000 
16036100 



T 0009 

T 0009 

Jt 00 09 



SKIP Db; DSI*S£T; sO to XXiT; X «IX,tilt3»EMPTY BUFFER FL'^G 
ENDi 
IF SC CSS "0" THEN GO TO X^XITI X NO MIX iNDEXr SET "MIX"«63 



16038200 
I6O383OO 
16038400 



T 0009 
T 0010 
T 0010 



IF SC GTR "9'' Then % question mark* SET MIX,[3«13 

BEGIN 

sit«si-»i; SKIP 3Dd; ds»»set; go tq xxit; % mix.[3U3«qmark flag 



I6038500 

16038600 
16038700 



T 0011 
T 0011 

T oou 



end; 

SIt«Sl*i; IF SC LSS "O" THEN gO TO ONE; 
IF SC LEQ "9" THEN ■ 



16036800 
16036900 
U0 39Q00 



T 0012 

T 0012 

J Q 1 3 



BEGIN 

SUsSl^l; dS|520CT; 

JEM ■ 



16039100 
16039200 

16Q393QQ 



T 0014 
T 0014 

T . 00 .1 4 






16039400 

U039S00 
160 If ft 00 



T 0014 
T OOU 
J fljQlA 



IP 



end; 



I6O397OO T 0015 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 i^ 
14 
16 
16 
17 
18 



L2« IF SC = " " THEIN % SCAN TO NEXT VISIBLE CHARACTER 

. BCG IN 



SltsSl+lJ GO TO L2; 
ENOi 
IF SC»«»" THEN X NO INFORMATION AFTER MIX INDEX 



16039800 
U03990Q 



0015 
O.Q.n 



16040000 
16040100 
16040200 



0015 
0016 
0016 



BEGIN 

Dl«*Lac mix; skip ^DB; L)S;*SET; % MlX,t2:i]*ERR0R FLAG 



16O4O3O0 

I60<i0400 
16 , 405 00 



0016 
0016 

001.7 



XXIT« on«8UFF; OI»=»oi-8; 0S«»8HT'*lNV KBO "J 

euFFtaSi; * SAVE LOCATION UF NEXT CHARACTER IN BUFFER 

END stream; 



I6O4O6OO 
I6O4O7OC 
16040B00 



T 0017 

T 0019 

J 0019 



IF PCCKTR],STD,[Mlx]*SND)itl»3]30 THEN X NUT QMARK, EMPTY OR ERROR 
BEGIN 
TBLADDR»«TYPE8«SPACE(KEYMSGSZlJ 



16040900 
16041000 
16O4HQ0 



T 0019 
T 0021 
T 0p 22 



^i»iiiii»m«»i»fiiiSi.:«^i«f iii«i««^^ . t'22f263 n ■ 



I606lil0 
16041200 
iAQ4l300 



T 0025 
T 002ft 



sii = T8bL; sijssi + i; di»*buff; Dn*oi+2; 

NEXT* CII»CI*T0G/ GO TO NOMIX^ 
MIX» IF Sc GEQ 1 THEN GO TO UK fLSe % MIX SPgCIFlEp 



16041400 

16041500 
16041550 



0030 
00 31 

0032 



19 

20 

21 

22 

23 

24 

26? 

26 ,^ 

27| 

28 

29 

30 

31? 

32 

33 

34 

35 

36 

37"" 

38 

39 

40 

41 

42 



BEGIN 

Sl««Sl+6; GO TO MlXi 

ENO; 



X BUT THIS IS NOT 

% A Mjx Message. 



16041600 
16041650 
16 Q4 17Q0 



T 0033 
T 0033 
J 0034 



NOMIXJ IF SC GTR 1 THEN 

BEGIN 
SI>aSI + 6/ GO TO NOWIXJ 



X MIX NOT SPECIFILD 

X BUT This is a 

X MIX MESSAGE. 



16041750 
16041800 
16 Q4 ia5Q 



T 0034 
T 0034 
J 0034 



END; 

OKI siJ-SHi; oi»3Di-2; 

IF Sea***-** THEN X END OF TABLE 



16041900 
16042000 
16042104 



T 0035 
T 0035 

T Mn 



BEGIN 

TB8L««TaLLY; qO TO XT; 

E ND/ 



16042200 
I6O423OO 
1 60424 00 



0036 
00 36 
0036 



IF 2 sc^dc Then 

BEGIN 

SlH;SH-5> GO TO NEXTi 



X NOT MATCHING ENTRY 



16042450 
16042500 
1 60425 50 



T 0036 
T 0037 
T 0037 



END; 
TOGJsDi; DUsLOC TBBL; SlJ = SI + 2; DSI»2 DCT; X SWITCH VALUE 
Si;»Sl-4; pn^ L QC t bb l ; pS'^'gCHH/ » PHO CED S mI XC qDE 



16042600 
16042650 
1 60427QO 



0037 
0037 
op 38 



SI j»tog; 

LI IF Sc-" " THEN 
BEGIN 



16042800 
160429OQ 
16043Q0Q 



T 0019 
T 0035 
T 9Q4& 



si»sbi+i; GO TO l; 
end; 

BUFF»»Si; 



16043100 
16043200 
16043100 



T 0040 
T 0040 
T 0040 



43 
44 

45 

«6 
47 
18 
49 
SO 
51 
52 
53 
54 
55 
58 
P7 



XT« END STREAM STATEMENT; 
PC CKTRl^STD* ,TYP£»STD); 
FORGET SPACE CTBLADDR); 



16043400 
1604350Q 
16043550 



0040 
0041 
0042 



END % IF NOT QMARK* EMPTY UR ERROR 
ELSE X QMARK* EMPTY OR ERROR 
IF MIX,C3»13 THEN X QMARK 



16043600 
16043620 
16043640 



T 0042 
T 0042 
T 00^2 



BEGIN MIX»B63; 

TYPE»»VCC&*l04tU37jil3; 



16943660 
16043680 
1604 3700 
16043750 
16043800 



0044 
0045 
0047 



ELSE TYPEts=0; 

END PROCEDURE KEYINSCAN; 



PROCEDUfiE KEYIN0CB*KTRX); VALUE a*KTRX; HEAL B^KTRX; 



T 0047 
T 0048 
SiZEg 00 



1 
2 
9 WORDS 



START OF HEL 



16044000 

sequent; Ot^K 

16045000 



T 0000 
ADDRESS 

T ogoo 





» 00396 





BEGIN 



16046000 T 0000 




16047000 
]t<SOfl80OO 



OOOOJO 
QQQQ«n 



16049000 
160S-0000 
160S1Q0Q 



0000 to 

0000*0 
00 00*0 



,Rh 



-iJlp. 



16052000 
16053000 
16 5^00 



0000 «0 

ooodo 

OOQQtQ 



.RO 



XT 



16055000 
16056000 
16057000 



ooooto 

0000*0 



16058000 
16059000 
16060000 



0000*0 
0000*0 
OQ O O*Q 






«os 



'TF 



16061000 
16062000 
16Q630QQ 



0000*0 
0000*0 
0000*0 



#RU 



>RQ 



*IT 



1^2* UI-S3 



To 
TO 
TO 



XT; 

XT; 

XT; 



1606*000 
16065000 
16066000 



0000*0 
0000*0 

ooofl'n 



16067000 
16068000 
16069000 



0000*0 
0000*0 
0000*0 



16070000 
16071000 
1 607 2 00 



0000*0 
0005*0 
0005*0 



16073000 
16074000 
16Q750QQ 



0008*2 
0009>3 

OQU tn 



16076000 
16077000 
16078000 



0012*1 
0015*1 
0032»3 



16079000 
16080000 
16061000 



0032*3 
0033*2 
0030*0 



16082000 
16083000 
160B4Q00 



0034*0 
0036*2 
0038*1 



16085000 
16086000 
16087000 



16088000 
16089000 
16090000 



0039*0 
004110 
004 0? 



004112 

0043*2 
0043*2 



16091000 
16092000 
1609 3000 



0043*3 
0044*1 

004S*1 



16094000 

1609^000 
16096000 



0046*1 

O0'*7s3 
0049*1 



16097000 
16098000 
16099000 



16100000 
16101000 
16102000 



0050*3 
0051*0 
0051*1 



0051*2 
0053*0 
0058*0 



I6I060OO T 



0058*0 
00J9II 
0060*0 



0060«3 



• • 



IF *[JARHOW[nJ NEQ THEN 

II .fi^Piy...!: ij ... L.SS ,Q T..H. ^.N.,. ^f.PkXM*n i 



t=vwY; 



_iii 



MC8UFF-ni»lF 



;:i||iSSfiliii8iiii:€iiiitpii^^ " . .•' n 



IF 



10 




MIXS63 THEN % "05 A/B" 

BEGIN 

NAMEIP(J^KTR?/ 



NAMElDCKfKTH?; NAMEI DCt^ f KTR ?; 



FOR MlXt«l STEP 1 WflU MIXMAX DQ 
IF *£JAiROtlCMI)(n N£0 THEN 
IF tJ Zii)t ABSfJAflfWlX.QlM«fWOT 03 THFN 



12 



13 1 
14 V 



IF (K EQV ABSCjAatMlXMl))«NQT Q THEN 
BEQIN 
TiBCNTlWlXJf'TABCNTEWlXJtli 



IS- 
16 






end; X IF MIX NOT GIVEN 
IF JARRQWCMIX] NEC THEN 
BEGIN, 



21 



DSm> jARtMIx*63.ClU3U<€TyPE»9) OR (TyPEsaO)); % 
TERMlNAT£{MIX&(ir B,t9*9l aiR THEN 61 EuSE 

halt; 



DS,8,SD»9#Cla»20 
3)tCTF3); 



24 



NOPROCESSTOG:* NQPROCESSTQG-i; 

GO TO forget; 

X.N01.. .. — ,„ _^ 



27 ■' 

n 



29 



}i; 




Tf t 






RM « 



changefactqr(ktr*type»io); 
GO TO exit; 



% TF=lO/SF«ll 



35 
36 

37' 



w 



DPI 






SET OMIT * NQTCDEBUGGING OR OUmP) 

GO TO exit; 



39 




D0« 



sti 



SET OMIT « NOT(OEBUGQING) 

GO TO forget; 



40 



O 



IF -MtPLYCMlXJ 

Set OMIT « noT{wohkSeT) 

COmPIExSLEEP ( STOP J0B3?i 7 77 

"~ ^ 



14582000 ACCIOENTAu ENTRf A^ MIX 

IF ST0PJ0B«ifl777 
go TO FORGET? 



(VWV4v0K[36M2«63J OH JARKOW [M jx 3«b Ih^H qO ERHQH; 
OR STCPjOBsMiX OR TERmIX=MIx); 



THEN ST0Pj08«««Mlx; 



♦9 

50 



S2 



56 




CM! 



changemcp(ktR); 
GO TO exit; 



svt 



.ji->iiiiifii::iii:Lii 



QT« 



':ifitiM 



IF Mix LSS 63 THEN 
CUTYI IF ((JA'8tMlX,03 



% MIX INDEX 
EQV "PRNP8T 



SPECIFIED 
") » NOT 0) 



AND 



ii4mmu»ii c«iv "oisK." *»?,,•:■ NO't oi f«ri« 



.jJL 



STREAM (AisO/, B{ = 



KWU 



16107000 
IftlQSnQO 



16109000 
16110006 
IrttllQQO 



0062«0 
Q063U 



006911 

007313 
007610 



16112000 
16113000 
lOl. HQ P Q , 



16US000 
16116000 
16117000 



007610 
0076 » 3 
0077»t 



16118000 
I6II81OO 



0080 fl 
OOSltO 

Oflftati 



16118400 

un9Qoo 



0085 «1 
QO88II 




16120000 
16121000 

ifiipgnoo 



16123000 
16124000 
161250Q0 



0095 « 2 
0095^2 
0096 «? 



16126000 
16127000 

16128000 



0097»0 
O1O1I2 
Q1Q5M 



16129000 
16130000 
161^1000 



0i05«3 
0107«0 
0107*2- 



16132000 
16133000 
16134 0Q0 



Ol07»2 
0l08t0 

QiQfl^n 



16135000 
16136000 
16137000 



OllO'O 
0lll«2 

onz'Q 



16138000 
16155000 
16156000 



Oll2»0 
Oll3«3 
0ll4tl 



161ST000 
16161000 
1616200Q 



0114U 
OIHU 
OlH» 3 



16163000 
16163100 
16164000 



011413 
0114*3 
Ottt»l 



011511 

011912 
0ll9«2 



16165000 
16166000 
16167000 
I6I680OO 
16169000 



012613 

JMMl. 

0129«1 
012911 
0l30«0 



16170000 
16171000 
16172000 



16173000 

16176000 
16178000 



013012 

oi3o»a 

Ol31»l 






013113 

013113 
0l32«2 
013511 
013713 



16187000 T 013912 



2 
3 

4 
6 
6 
7 



BEGIiN 

If SC»"4" THEN TALLY i«2 ELSl: 

IF Sc»"*" THEN TALLY J«3 ELSE 00 XTI 

SItfSUiJ IF SCi*'* ** TH£N GO TO S2i ; 

b«=tally; tally:=o; 

6(IF bC LSS "0" IhEN JUKiP OUT/ SI»=SI*1' TALL Y J s7 AlLY + D ; 

KTt^i ='TA LL Y; i , T«°i"c a; 5 i«» srKTR; ns;«KTR oct; 



16188000 T 
lftlfl9nQ Q T 



0141«0 
OHHO 



.Mi. 



16190000 T 
16191000 T 
16192nOQ T 



OUIU 
0H2tl 
Ql»3lg 



16193000 T 
16194000 T 

1,6195000 T 



014412 
0145»0 

Ql47»n 



9 

10 

11 

12 

13 

14 

IS 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37* 

38 

39 

40 

41 

42 

*^~ 

44 

46 

46 

47 

«8 

49 

50 

51 

52 

53 

54 

55 

56 



XT» £N0 STREAM STATEMENT; 

NT2l*PI 
Hl\l9Pi 



16196000 T Ol4ai2 
16197000 T Ol48«3 
U 196000 T Oiaftlj 



PRT[MIX*^25]»»5&NTl[V?24?24J&NT2tlU6l2]; 

GO TO forget; 

xm 



1619V00O T 
16200000 T 
16201000 T 



01491.3 
0153»2 



CL« 



ELSE GO TD ERROR; 
TF f TlaUNTTTNfTINU* KTRi^ LSS 64 



% NOT PRNPbT 

% MUST FOLLOW QT 
TkfN % UHTT ] MTX 



16t(i2.000 T 
16203000 T 
16204000 T 



0i56»0 
015610 
0lS6t0 



IF (MIX«sRDCTABLECn,tfl«6]) NEQ THEN 
BEGIN 
TAB CNT[Ml X]»«TABCNT , tHI ,XJ*, l ,? 



16205000 T 
16206000 T 
l aZ P OlOP T 



01581 1 
Ol60«3 
0161 «1 




if types^ t«en go to qt else 60 to dsmj 
end; 
set omit s not(sharedisk) 



16206200 T 
16206300 T 

t6 Zoron T 



0164 J 3 
0i66«2 



IF TYpE=4 OR CI uTr 29) THEN UQ Tq ERRORS * QT OR pi>EUDU U^IT 
LABELTABLECI J i- P( DuP^LCD* SSP ) ; * MARK IT NOT IN USt 
Mlx:s63J 



16215000 T 
16216000 T 
1621 7Q00 T 



0l66«2 
0l69«0 

9 i ?or 3 



GO TO ry; 
BKI 
S SET OMIT m NDTtPATACQM AMD DCSPQ) 



16218000 T 
16219000 T 
1622 0000 T 



0ini2 
017210 
aiT2<Q 




BEGIN 
IF (I 
IF (J 



;> MeSSAGEHOLDER.CcF]) NEQ THEN 
»s M[I]>[FF]) NEQ THEN 



16223000 T 
16224000 T 
U225 0C)O T 



0l72'0 
017210 

01 7313 



BE 



GIN 
00 
A» 



BEGIN 
»MCJ3; 



16226000 T 
16227000 T 
16228000 T 



Ol77»0 
017712 
Ol77t2 



$ SET OMjT 



If 

3 

TH 



CA,C4 
iNOT(DA 

EN 



J5]=0 AND M1XS63) 
TACOM AND DCSPO) 



OR CA.C^J53»MIX AND MIX NEQ 63) 



16229000 T 
16230000 T 
16232000 T 



017910 
0183JO 
018 3»0 



BEGIN 
MCI]J 
NUMES 



» PC0UP/L00)&Atl8*l8«l53; 
Si* NUMtSS-1' 



FORGETSPACE(j + n; 
END ELSE Ijaj; 

D UNTIL (J>= A,[FFJ )-Q} 



16233000 T 
16234000 T 
16235000 T 



018313 
018411 



EN 



16236000 T 
16237000 T 
16236000 T 



018713 
0l89»0 
0190*1 



ME 
EN 

end; 



SSAGEHOLDER,CFF]«» i; 

o; 



16239000 T 
16240000 T 
16241000 T 



019212 
019313 
019313 



45 

4C 

47 ( 

48 

49 

SO ( 

51 

52 

53 ( 

54 

56 

5«< 

57 




ry« 



MIX»»63; 

GO TO forget; 



IF (n«FORM£SS(KTR,TYPEaVFM)) LSS THEN GO TO FQRGET; 
IF I GTR 31 THEN GO TO ERftOR ELSE- GO TO RXIT; 



16241500 T 
16242000 T 
16243000 T 



0193«3 

0194»2 
0195»0 



JAL 



16244000 T 
16245000 T 
16246000 T 



0l95»0 
0l98«0 
019913 



TIMEUSE0(BUFF-1»WIX); 

GO TO exit; 



PRI 



16247000 T 
16248000 T 
1624 9000 T 



0199«3 
020111 

2 01 > 3 



SJ»oiT; 

CHANG£PRrORlTY(«TH*MlX>; 

fi g TQ e xit ; : , 



U2SOOO0 T 
16251000 T 
1625200 6 T 



020113 
0203t0 
Qg&fllO 



R0» 



16253000 T 0204«2 




2 

3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13^ 

M' 

15 f 

16 

17 

18 

19 




20 
21 



22 
23 
24 

26 1 



2fl;;; 

28 

29 



30 

31 J 
32} 
33 



34 
35 



36 

3?" 
38 



40 
41 
42 
43' 



45 
46 
47 
•8 



49 



51 
52 



S3 
S4 



S5 ; 

58 i 




CHANGEDPTIONCKT8*TYHt=26); 

GC TO f^it;, 



% KQS28^S0*29 



IT» 



1625^000 
16255000 



020<a»2 
02Q6I0 



ir NOT JARCMIXf23«C4|U 



THEN GO £li«QH; 



Wil 



GO forget; 



16256000 
16257000 
16258Q00 



020612 
0206t2 
030ft>» 



t^HATlNTRNSlCCBUFF-n; 



GO TO e«aor; 

RXITI 
REPLYCMIX3 l« TYPE&I[la»33«lS>3; 



16259000 
16260000 
16261 000 



0211 «2 
0212 »0 
0,212,»Q. 



IF 1 NEQ 
BEGIN 

'•'ORffE.I.! 



BUFF TH£N 



16262000 
16343000 
U3431QQ 



0213»1 
021313 
02i^t^ 



ERRORl 



STREA|i<(tl»BUFF»l); DS»» LlT «♦»♦; 



163^3200 

16343 300 
163<l3aQ0 



02 15 » 2 
0216»1 
O2I6I3 



SPQUTC(BUFF»i} INX fO&ZZSTAf9;9l9l)W 



16343SO0 
16343600 
1A3A3700 



end; 

EXIT! 

IF (MIXXQ) AND 



0a|6»3 
0218*3 
2ta» 3 



(MlX<6 3) THEN TABCNTCMIX3 IgTABCNTCMIX]"!; 



END PROCEDURE KEYInO; 
PROCEDURE KEYlNl{B*KTRX?j VALUE e#KTRX; REAU B^KTrXI 



16 343800 
163^3900 
163i:i3950 



0221 « 2 
0221 f2 
022l»? 



START OF REL 



16344000 T 022711 

SlZE« 0228 WORDS 
16345Q00 T 0000»0 



BEfilN 



INTEGER ZZSTa; 

REAL BUFF* KTR# TYPE* 

ARRAY BUFA « 8uFFC*3J 



SEGMENT^ DISK 
16346000 
1634700Q 



ADDRESS » 
T OOOO'O 
J 0000 »0- 



0040^ 



mixj- a# It ^p k; 



16348000 
16349000 
16350000 



ooooto 

0000»0 

ooooto 



LABEL FORGET* ERROR* EXiT 

*BC *LI 'SS xQS »SC *VQ 

*TR *WT *WM *CC *0L *PB 



16351000 
16352000 
16353000 



*RR 
*RN 



»CA 

*L0 



SI 



*0T 
#RD 



#W0 
*ED 



TR TDt mn Tfe Toc 7^ Tcs Ths oHT 



l635«000 
16355000 
16356000 



OOOOlO 
OOOO'O 
OQ QQ« 



16357000 
16358000 
16359000 



OOOO'O 

ooooto 

OOOOlO 



ooooto 
ooooto 
ooooto 



switch s«« error 



*bo 
*sc 
*cc 



*LI 
*VQ 
*0L 



*n 

*RR 
*PB 



'LI 
*CA 
»RN 



*ss 

*CA 
*LD 



*SS 
*DT 
*RD 



*SS 

*WD 
#RD 



*SS 
'Tr 
»ED 



«BS 

*si 



*bs 

*Wm 
*LR 



16360000 
16361000 
16 362Q0O 



ooooto 
ooooto 
ooooto 



*QT *IN *FE *0C *SQ *CS *HS *WK 



16363000 
16364000 
1636500Q 



ooooto 

0000«0 

ooooto 



16366000 
16367000 
16368000 



ooooto 
ooooto 
ooooto 



SUBROUTINE SpQlT; M[BUFF"23t=b AND ^7570000000000; 



16369000 
16370000 
16371000 



ooooto 
ooooto 
ooooto 



BUFF t»KTRX,£i5tl53-i 
MIX t*KTRX«[ 9t6 Jl 



TYPE tBKTRX,C 2»7 J; 
KTR J«KTRX,[l5:33]i 
ZZSTA tafl & CW[BUFF-23 }[9t9»93; 



16372000 
16373000 
16374000 



ooosfo 
000510 

0008t2 



gSMi 



lit 



GO TO StTYPE)* 



:'i'ifSiS 



Lit 



jilitMiiiili-i 



16375000 

16376000 
1637^000 

lillliiil 

16379000 



000913 

ooiito 

00 12 t \ 



ooisti 

0035t3 
0035t3 



16 366000 T do 35 « 3 



1^ 
2 4 

3 

4 

5 ( 



7 

8 
9 

10 
11 
12 



13 

14 < 

15 

16 

17 I 

18 

19 

20 i 

21 

22 

23 * 

24 

25 

26 ' 

27 

28 

29 i 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

3«( 

39 

40 

4, ( 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50 

51 

52 

53 I 

54 

55 

56 I 







S SET OMIT » NOTCDCbPO ANO DATACOM) 
G O TO e x it ; 



1638/000 T 
16 3900,0,0 T 



003513 
Q„Q„35«,3 



1 

2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



sst 

$ SET OMIT « NOTCDCSPO 
go TQ EX iT f 



AND DATACOM) 



16391000 T 003611 
16 392000 T 0036*1 
16394000 T 0Q3 6M 




BSi 
S SET OMIT 

ao exit; 



NOTCDCSPO AND DATACQM) 



16395000 T 
16396000 T 

16<<06000 T 



0036' 3 
0036«3 
0036<3 




SCI 

$ SET OMIT » NOTCDCSPO 
GO TO EXIT; 



AND DATACOM) 



16407000 T 
16406000 T 
16410000 T 



0037M 
003711 
0037il 



RR» 
$ SET 

VQt 



OMiT » NGT(DATACOM) 



16411000 T 
16412000 T 
16450QQ0 T 



003713 
003713 
0037<3 



CAt 



SET OMIT « NOTCDCSPQ 
GO TO EXIT; 



AND DATACOM) 



1645?000 T 003713 
16485000 T 003713 
lAflfl60QQ T QQ3fltf 



13 

14 I 
IB 



SET OMIT « NDTCAUXmeM) 
GO TO ERRC]R; X SPQUT AUX 



MESSAGE OR ERROR MESSAGE 



_DUL 



16487000 T 0038»1 
16489000 T 00 38»1 
16490Q0Q T QQ 36 » 3 



19 

20 
21 



WD» 



SETOATECKTR); 
GO TO EXIT; 



16491000 T 
16492000 T 

1 649 3 Q0Q T 



003e*3 
0039»2 
0Q40 »0 



22 
23 
24 
26 
26 
27 



TT^ 



TR» 



Glh'EDATECBUFF-lMJ' 

GO TO exit; 



16494000 T 
16495000 T 
16496000 T 



0040«0 
004112 
004210 




SETIME(KTR); 



WTI 



16497000 T 004210 
16498000 T 0042(3 
16499000 T 004311 



28 

29 
30 



TIMEOUT (BUFT-DV 

GO TO exit; 



wm: 



16500000 T 0043«1 
16501000 T 0044J2 
16502000 T 0045<0 



31 
32 



33 



WHaTMCPCBUFF' 
GO TO ERRORS 



1)1 

• SPOUT 



MESSAGE 



AC± 



16503000 T 0045»0 
16504000 T 004611 
16505000 T Q046I3 



34 

35 
36 

37" 




a«»m[buff-3],[cf]-buff; % 
stream(buff» §ls=a>8^ ktr 

BEGIN 



WDS IN MESSAGE 
s(KTR:»SPACE(A+2)+2)); 



16505100 T 
16506000 T 
16507000 T 



0046)3 
0049:3 
, 54 » 2 



siibsuff; 

BLC36C0Sl«2tIT' 



"); DI»»KTH); 



IF SO NEU "♦" THEN 



16508000 T 
16506100 T 
KSSQ9Q0Q T 



0054*2 
005413 
QQ56M 



40 
41 
42 



X-L 



8EGIN 
DSlstCHR; 

I F SC NE O 



'«.»♦ 



THEN 



16510000 T 
16511000 T 
16512000 T 



0057«l 
005711 
0057»2 



40 
41 ( 
42 



BEGIN 

IF SC NeQ 

GO T9 LJ 



914 THEN DS»3cHR ELSe Sll«Sl*i; 



16513000 T 0058«0 
16514000 T 0058«0 
IftSlSnOQ T QQ59I1 



«6 
»7 
t8 



end; 
end; 
DS , i»(;hr; 



16516000 T 
16517000 T 
16516000 T 



0059 » 2 
0059»2 
005,9 » 2 



«9 
50 
61 






lN0EPEN0ENTRUNNERCP(,C0NTH0LCARD),KTR&30i:2»a2j6]&Z2STAC9l9l9J, 

'192)' 
ELSE INDEPENDENTRUNNER(P(,CDNTR0lCARD)«KTR&25[2U2I6],i92); 



16519000 T 
16520000 T 
US g t QOQ T 



0059*3 
0060*0 
00» I« 1 



S4 



aiii 



16522000 T 0064»1 
16522100 T 0067*2 
16523000 t 006713 



55 rt 

56:; 
57 Si 



if 



OUTPUTLAftEKKTRM 



■ idSMmmmsmmmmm. 
nmmmm'mmmm 



55 

66 < 

57 



GO TO exit; 



16527000 T 0072*0 



• • 



h 



12 



13 ; 



18 



20 



24 

26 a 



2«':S 
27 



28 
29 

30 



311} 
52 ft 



33 
34 



36 

37" 






f^ 



pbj 



Mi 



PRTNTBACKUP(KTR*Hl6»9t91); 

m'W':W^m..:y;:'/'\/^ ■■■■'■ 



ISIL 



aUMHEDECKCKTH); 

GO TO exit; 



Rpl 



startugaoncktr); 

GO TO EXIT; 



ED« 



deckremqvercktr)> 
GO TO exit; 



111 






LRt 



SET omit 5 nqtcstatistics) 
GO to error; X spout message 



IN» 



set omit • Nd.T(OCLOG 

GO TO forget; 



AND OaTACQM) 



ktr»s-kTr; 
QT« 
S SET IIMIT s NOKfiREAKflUT) 



IF 



-LELL 



PRTGAMESCKTR^MIx) 

IF kt« lss g then 



THEN GO ERROR ELSE 

GO FORGET El.S£ GO EXIT; 



JJ» G£TSpACE(35'9*0)+2; 
STREAM(KTR»0:aj+2); 
BEGIN 



_LLi 



SltaKTR; 
4C63<IF SC NEQ 
OS»«iTTt»wi on 



end; 

I«= P INX 



'*•• THEN OSI'ChR 
!DI"i; KTRt»nTt 



ELSE JUMP OUT 2 TO Lt))! 



0; 
[A) 



Div ij; 



stream(oate# Ai-si+n; 

BEGIN 

SI»»L8C date; OSi;«B OcT 



oc» 




end; 

LINKUP(19*J); 

GO TO forget; 



lOGCOMMENT(KTR); 

GO TO forget; 



stream ( T¥PE I »0« INFO I Ja^STOPOKN-, I NF0 2«*P 25676 30000000000* 
KTR); 



BEGIN 



Sll"KTRj OII»LQC INpOW ai»»OI + i; TALLYlai; 
IF 4 SenQC THEN Gp TO £XT; 



siJaSi-a; tally:»tally+i; 
IF 2 scsDc then go to ext; 

SH«Sl-2^' TAI.LY>^T ALLY*2^ 



EXTI 



end; 



siiiiwiiiiiiiii* 



60 TQ ext; 



16528000 
165 290 00 



16S30000 
16531000 
16 1 32 000 



00?2J2 



007411 
007413 
0074U 



16533000 
16534000 
16535000 



16S36000 
16537000 
lfti3fl00Q 



0076«0 

0076 » 3 
Q 077«l 



16539000 
16540000 
16 54 1 , 00 , 



007711 
007810 
07 6 t 2 



16542000 
16143000 
16544000 



0078'2 
0079«l 
0079 «^ 



0079*3 

ooeeta 

008 1 » Q 



16943000 
16576000 
16577n0n 



16578000 
16980000 
16580600 



0081 «0 
0081 »0 



0081 » 2 
0081 » 2 
Q08?*n 



16580800 
16S81000 

uisgono. 



0082»0 
0083«0 
0083>0 



16S88000 
16589000 
I6%900n0 



16 591 000 
16592000 

u'?9 3nnn 



0083*0 
0084*0 
Q0fl6*g 



16 59 40 00 
16195000 
lrtS96nQQ 



0086 « 2 
008813 
0090»2 



009012 

0090>S 
0Q9t*? 



16597000 
16598000 
1AS99nQQ 



16600000 
I66OIOOO 
16602000 



0094«2 
0094«3 
Q Q95» 3 



0098*1 
0099*3 
0099*3 



16603000 
16604000 
16605000 



16606000 
16607000 
16608000 



OlOOIl 
0100*2 
0101*2 



16609000 
16609i00 
16609g00 



0l02»0 
0102*0 
0102*3 



16609300 
16609400 
16699500 



0103*1 
0l03» 1 
0l04*2 



T 
T 



0105?0 
0105 to 
010610 



16609600 
16609700 
16609800 



0106*3 
0107*1 
0;08»0 



16610200 



20 \ 
21 



22 



29 \ 
30 



32 



34 



36 
37 



m 



50 ' 



52 




h- 



IF PCM[P{.Ol5KsaUASHJ]*T0P) THEN IF 

PC .disksquash*std) else go to error 



PCP.CFF] AND P#DUP)^0 
ELSE IF P(XCH)*a THEN 



THEN 



BEGIN 



16610300 
1 6 61 0400 



011050 
n3» 2 



lNOEPENoeNTRUNNER(P( .DISKSQUASH)#KTR# I28)i 
GO TO EXITJ 



16610500 
I6<il0600 
16610700 



0U7I3 
OU«ll 



8 

9 

10 

11 

12 

13^ 

14 

15 

16 

17 

18 

19 

20 



21 
22 
23 



24 
25 



28 
27 



28 
29 



90 

31 I 



32 

33 
34 

35 
36 
37" 
38 



40 
41 
42 
43 



45 

46 
♦7 
•8 
49 
50 
51 



S2 
53 
54 

55 V 



S6-;. 




^ 



¥r 



END ELSE GO TO 
GO TO FORGET; 



EHHqr; 



HSI 



$ SET 
CSl 
S SET 



OMiT « NOT SePTICTaNK 
OMIT » NOT SEPTICTaNK 



166l0a00 
16610900 
16611000 



0120«0 
Ol20«0 
0^201? 



GO TO exit; 

WKJ X WORKSET REQUESTS 
I SET pMiT » NQTCWgRKSET? 



166U990 
16613000 
16613990 



012012 
012012 
0120*2 






16615000 
166 15 1 00 
16615110, 



'iti**l:if: 



i«:*";i: 



SP0UT{(BUFF-1) 
EXiTt 
I F C^IX^O) A ND 



INX {0&ZZSTAt9«9«9] )); 

CMix<;63) THI;:N T aBCNT rM jXJ V'TaRCNT [MjXJ'i ? 



16609000 
U6S9100 

1 6 689200 



120 12 
012110 
Ql2l«0 



END PROCEOUWE KEY I Nil 
PROCEDURE KEYlNgCXTRX)! VALiJC kTHXJ REAt kTRMJ 



16689300 

16689400 
166fl9a50 



OlSllO 

oistto 

012310 



012310 
0125 J 3 

Ql25<3 



16689500 T 0l3l»2 

SiZE* 0132 WORDS 
16690000 T OOQ QfO . 



START OF REl 



BEGIN 



REAL RCW * ♦ 0} 

REAL MSCw»-2; 
INTEGER ZZSTa « HCW ♦ 1; 



segment; Disk 

16690500 
16691000 



ADDRESS « 
T 0000»0 

J onoo»o 



604OV 



REAL 



BUFF 

KTR 

TVPE 



■ ZZSTA 
= BUFF 
s KTR 



I 



TYPE 
MIX 

A 



1» 

1* 



16691500 
I669I55O 
16692000 



OOOOIO 
0000«0 

ooQn<n 



I6692500 

16693000 
l6693!!iOQ 



if 

XL 



0000 »0 
OOOO'O 
0000^,0 



16694000 
16694500 
16695000 



OOOOtO 
OOOOIO 
.000010 



J 

K 



- I 
« K 



Ri 



i 
n 

Rt 



i# 

1' 



1' 
1* 



16695500 
16696000 
16696^00 



OOOOIO 
0000 »0 
0000»0 



REAL 



R3 » R2 + I, 
R4 « R3 + 1; 
UNITNOc Ha ■» IJ 



16696200 
16696300 
16696400 



OOOOIO 
OOOOIO 
OOOOIO 



IHTEaCR 



INT2 
I NT 3 



nTi 

A 



16696500 
16696600 
16696650 



OOOOIO 
OOOOIO 
OOOOIO 



ARRAY 



INT4 
BUFA 
UT 



S SET OMIT • 



« bUFFC*] 
B R3C*] 



16696700 
16696800 
16696900 



OOOOIO 
OOOOIO 
OOOQIO 






16697000 
16697100 
16697200 



DEFINE U 
POP OMIT 
REAL HNl 



« avtablejk 

s Mix 



16697300 
16697600 
16697700 



OOOOIO 
OOOOIO 
OOOOIO 



16697800 
16697900 
16698000 



000010 
OOOOIO 
OOOOIO 






OOOOIO 
OOOOIO 
OOOOIO 



ifii 



LOCN 



K« 






O QOQ IQ 



16698220 T OOOOIO 



• t 



1 

2 
3 

4 
S 
6 
7 
8 
9 
10 
11 



12 
13^ 



15 
16 

17 
18 
19 
20 
21 
22 
23 
24 
2G 



NAME 



HALTEUa 
SEGUICT 



Hli 

= R3; 



LABEL RR» PSA^ FERaiT* fORGET* 
iMM UHl lM yMX ,TS 



*RW» 



CI 



vPQ 
fCT 



^AU 



ERROR* EXIT 
-iLl *LC »LS 



*MC 



'LN 
*RS 



»Ex >pn 



'CD 

*HD 



fCU 

j»RA 



'SY *Sl 



SWITCH S 



is EBROK 

,WU #WP ,MR 

fl^' SM .,...',, I. PR... 



*mx 






iiiiil 









,TS 



*TS 
-xPO. 






*TS 
/PQ 






#TS 



■>Rli'- 



*LF 



'LC 

* L N 



'CI *CT #CT 



SUBROUTINE SpOlT; MtBUFF-SjJab AnD «»7570000000000; 




PtC 
P(C» 
RUFF 



MIX 

TYf>E 

KTR 



0# 0» 0' 0» 0' 0' 

o» 0' o# 0' 0); 



0* 0' 0)> 



jaKTRX.C 916 3' 
i»KTRX,t Zt? 3; 
>«KTRX.E15|333J 



22STA J*0 & cMtBUFF-23)t9J9«9J; 
B 15 MCBuFF-1 J; 
SET QMtT s NOTfPACKFTS) 



STREAMtBI^BUFFf-U; 
GO TO SCTYPEj; 



0Stf8LlT"INV K80 '». 



S SET OMIT s N0TC13CSP0 AND DATAOOM) 
WPJ 
S SET OMIT = N0T(DC;3P0 And DATACOM) 



RRI 
S SET OMIT « NOTCOCSpQ 

60 TO exit; 



AND DATACOM) 



WRI 
« SET 

MX I 



OMIT ■ N0T(OC5P0 AND DClQ'» A(vO DATACOMJ 



MIXPRINTCZZSTA); 
GO TO FORGET; 



SHeETDIOOLeWcKtM'TYPe'Mix); % 
Mlx«=63; 

GO TO exit; 



15=5* PS*6» ES»7# XSS8 



M»3i fi&TO po; 



I is2; GO TO pd; 
h*a; GO TO pd; 



i»:»wiiiiii 



PRINTDIRECTCJRY(>(tW,I)/ 



16696230 
U698?^q 



16698500 
16699000 



0000*0 
OOQQ«0 



16700000 
16700500 

iftFoinon 



OOOQIG 
000010 
onnt)tr\ 



16?01500 
16F02000 
lft7QgsQQ 



0000 «0 
0000 «0 
OQQO'n 



16703000 
16703500 
16704000 



0000*0 

ooooto 

onontn 



16704500 
16705000 

t<syn«sson 



t 
t 

X 

T 

T 



OOOO'O 

Q 000 10 
Oflonio 



16706000 
16706500 
16707000 



ooooto 
ooooto 
onofito 



16707500 
16708000 
U708500 



0000*0 
0000«0 

QQ0n»iL 



16710000 
16710100 
16710500 



OOOO'O 
0000*0 
0005*0 



16711000 
16/11500 
16712000 



0005*0 
0007*2 
0n09t0 



16712500 
16713000 
I67l3a99 



0010*1 
0011*2 

ooia»3 



16714000 
16714500 
16715Q0Q 



16715500 
16719500 
16/20000 



0014*0 
0017*0 
0019*0 



0019*0 
0021*3 
0041 *3 



004113 
0041*3 
0041 13 



16 7 2 1500 
16722000 
16/37000 



16/3/500 
16/38000 
16/39000 



0041*3 
0041*3 

0041*3 



I6/395OO 
16/40000 
16/40500 



0042*1 
00a2*l 
004211 



16/41000 
16/41250 
16/41500 



0042*1 
0043*0 
0043*2 



16/42000 
16742500 
16/43000 



0043*2 
00a4J3 
0045*2 



16/43500 

16/44000 
I6/445OO 



0046*0 
0046»0 
0047*1 



16/45000 
16745S00 
I6?46Q00. 

16746500 



0047*1 

0048*2 
0048»2 



T 
T 

I_ 

T 



0049*3 
004913 

4051*2. 

0051*2 



1 
2 
3 

4 
5 

6 
7 
8 
9 
10 
11 
12 
13 

1* ' 

15 

16 

17 < 

18 

19 

20 I 

21 

22 

23 ( 

24 

26 



i 
i 
i 



26 I 

27 

26 

29 ' 

30 

31 

32 ^ 

33 

34 

35 { 

36 

37 

38 i 

39 

40 

4,< 

42 

43 

44 % 

45 

46 



47 

46 

49 

50< 

51 

52 

53 ' 

B4 

55 

58 t 



11 



h- 



10 



12 



15 



19 



V 



30 

31 S 



32 
33 



M 

35 

36 

37" 

38 



43 



45 



50 



52 



54 



55? 

56 ;' 



^ 



Jidi- 



GO TO exit; 



? 



D 



Pni 



SET OMIT • NGTCOCSPQ 

■SO' TO, •exit ;■:,.;-.■., 



AND OATACOM) 



ZOJ- 



TYP0P(KTR#TYPE«16J; 

GO TO exit; 



X T0=15» P0=l6 



^ ir 



STREAM (YisKTrJ; 
BEGIN 
SU»YJ 



v% 



LAI IF 



SC NEQ "* 
BEGIN 

sr»»sHu 



• THEN 

oyt'DI^i; GO TQ la; 



"^^^ pgaT 



„ ■ mo 
EbSE DStwiiiT******-"; 

gtgjl ••■■■■•' ■■'■"^' 



STREAMCYl»0' 

BEGIN 

susktr; 



KTRJ AJ»AjaSPACE(l2) + n; 



t« IF 



SC*" 

eesiN 

SIt»Sl*li 



then 



GO to l; 



IF 



end; 

SC«"«-" 
SCg"0" 



THEN 
THEN 



TALLY 
TALLY 



:3 



BEGIN 
DSIS3CHS; 
IF SC****" 



£lSe 



THEN 



LL: 



BEGIN 

dsischr; 

IF SCs" " 



THEN 



BEGIN 



GO TO Lt; 



5(IF SC GtQ THEN UJ>»»CHR ELSE JUMP QUT), 

end; 
Di»»=LlT"»"; ktrjssi; 



end; 
Yix tally; 

END stream 



statement; 



IF pccktr]*std) then 

BEGIN 
FORGETSPACE(A-l); 



GO TO fghget; 



end; 

At«A&AC15l33llS3; 
TAPEPURGECA?; 



^^ 



GG Tu pga; 

AU« 
S SET OMiT ■ NOT(AUXMEM) 



(^S 



GO TO FORGET; 
HS t 
$ SET OMIT 



N0T(AUXMEM OR MONITOR) 



^ 



A 



LNI 



GQ TO forget; 

1 
STREAM r A lap IKTR); 



BEGIN 
DSl»2 

end; 



sit»MTe; 

iWliiii 



■'ttiiiiiidjitiiiiiiiiiii; 



IF (It»P).C36»63s*'37 THEN 



16747000 



16?«8000 
16749000 
Iftfa^SOO 



00b2«2 

on53to 



16750000 
16750500 

1 6 7 5 1000 



00S3I0 
005310 
00'^3>2 



16751500 
16752000 
16752S0Q 



0053 « 2 
0055«0 
0055»2 



0055»2 
00361} 

0QS6M 



16753000 
16753500 

i6y!?<toon 



0056 » 2 
0057J0 
0057t0 



16754500 
16755000 
1ft7«i5SQQ 



167560Q0 
16756500 
1675700Q 



005713 
0057 » 3 
0Q5 fll3 



0059»0 
0063«0 
Q< >3»Q 



16757500 
16758000 
1 675 e' )0 Q 



006311 
OO63I3 
0Q6 3<3 



16759000 
16759500 

1 6760QQ Q 



16760500 
16761000 
1 6761 "i 00 



0064«1 
OO64II 
0Q 65'1 



006611 
0066 »1 



16762000 
16762500 
16763000 



16763500 
16764000 
16764500 



0067»0 
0067J0 
006711 



16765000 
16765500 
16766000 



006713 
006713 
006811 



16766500 
16767000 
16767500 



0068>1 
0070 «1 
007011 



16768000 
16768500 
16769000 



007110 
0071«0 
007111 



007112 
007210 
0072»2 



16769500 
16770000 
16770500 



007411 
0074 M 
007610 



16771000 
16771500 
1 6772000 



16773000 
16773500 
16774Q00 



007613 
0077J1 
0Q77»1 



007711 
007713 

MlIlL 



16779500 
16780000 
16790500, 



16781000 
16781500 
16762000 



0077J3 
0078 »1 
0070 '1 



008011 
Q060«? 



16782500 t 008013 



• • 



V 


L060UT(0) ELSE 
$ SET OMIT » NOT(DiaKLOG) 


16783000 T 0082«1 


3 '••:■■,: 


IF I'^MU" THEN lN0ePEN0ENTRUNNEH((P(.U0G0UTMAlNT)»0jl28) ELSE 
GO TO E«ROR* 
r.n TO FDdfifTi 


J 6784500 T 008312 ' 

16785000 T 0086»2 ' 
1678^§0n T 0086*2 ^ 


6 


TABLEOFCONTENTSCKTR, TYPe=23)* X CD*21# PP«22f Pc*23 
GO TO fowget; 


16786000 T 008810 " 
167 86500 T 0088»0 ' 
1(S/H7900 T pO«9lp 6 


:• 1 


cu« 

COREPRINTCCIF MIX»63 THEN -0 £lS£ MIX )&ZZST At9l9 j93 ); 

GO TO forget; 


167B7500 T 0090*0 ' 
16788000 T 009010 « 
16788^00 T 009ill<l » 


:; C^ 


SYI 

$ SET OMIT s N0T(STATISTIC5) 
GO TO FORGET; 


16709000 T 0094«2 "" 
16789500 T 009412 " 
1^792000 T 0094t? 12 


15 ,■■■"'■".... ', . ,,' 


sli 

$ SET OMJT » NOTCSTATISTICS) 

GO TO fo«get; 


ld>ft2500 T 009SI0 " 

I6f93000 T 009510 

16795500 T 0095*0 '^ 


16 


RW» 

spciT; 

REWINDANDLOCKCKTH); 


16796000 T 0095«2 '" 
16796500 T 0095«2 " 
16797000 T 0097«0 '« 


,9 ^ 

20 ' 


60 TO exit; 

CI» 
$ SET OMIT • NOTCBREAKOUT) 


16797500 T 009713 

16798000 T 009811 ^o 

16798500 T 009811 ^i 


2« / 


CHANGE INTRINSICFILECKTR); 
GO TO EXIT; 
Ct: 


16801500 T 0098«1 '= 
16802000 T 0099J0 23 
iA802S00 T 00V9t9 2* 




TIK«eRELAXER(KTR*TYPe»MiX); X CT = 29# XT»30» TUS31 

GO TO exit; 

XDt 


16803000 T 00991? 2= 
16803500 T O1OOI3 2« 
lAflQ40QO T OtOl «1 2' 


I y.^ 


IF TYPEa33 THEN KTr,CCF]«sO; * Xds32, MRs33 

okbusiness(P(i#ktr)); 
go to fxit; 


16804500 T OlOl»l 2« 

16805000 T 0l03«3 "' 
16805«>00 T 0104J3 ^o 


J1 gj''.;;, 
33 ' ■ ■ ■■ 


MCJ 

nameid{I#ktr); naMeid(J*ktr); nameidcJ>ktr); 

IF J,t6»63«"*" THEN GO TO ERHCR/ 


16806000 T 0105»1 ^' 
I68O65OO T 0l05»l 32 
I68o7o00 T 010811 33 


36 


IF (A«»DIRECT0RYSEaRCH{I*-J#4)) GEO 64 THEN 
BEGIN 
IF J NEO "DISK " THEN 


I68O75OO T OllO«0 34 
16808000 T 0112«2 ^= 

leaoe-^oo t oii3Jo ^e 


'7 
38"'' 

39 \.,;;V'-.'V;', 


if(k»»directorysearchci,»oisk ",5)) NE.Q Then 

BEGIN 

p(oirecTobtsearch{-i,j,U),oeu); 


16809000 T 0113»3 " 
I68O95OO T 011612 ^ 
I681OOOO T 011710 33 


40 
41 
42 


FQRGETSRACfcCA); 
FORGETSPACt(K); 
LbMES&(I#J/-9*29#0,0*n; 


I681O5OO T 0118*3 « 
16811000 T 0U9I2 *' 
I68II5OO T 0120J1 « 


43 ■ . , ; . 

44 , 

45 .-, :.';■ 


■;:■■■■, '-60 fERGlTi' V. 
..■•■•END.. .::.■.■ 
■■■■ EtSE-: 


I68120OO T O122I3 « 

16812500 T 012510 

16813000 T 0125*0 « 


46 
47 
IS 


BEGIN 

M[A iNx 4l««(*P(DUP))S2U«46J2]4i[6U7j 1]; 

A»=A&EUF(-I*"DISk "*A INx 0-n[lBI33»l5]; 


16813500 T 0l25«0 4« 
16814000 T 0l25»2 47 
16815000 T 0129«3 « 


49 •:•;■,,, 
iO •■■ 

61 ; ■•■■^' 


F0RGETSPAC£C0IRECT0RYSEARCH(I#J*8)); 
END EtSE MCA INX 4 3« »( *P(DUP) )«2C 1 » 46 1 2 UlC6»«7 » U; 
MEAOEaUNLOCK£I»nOISK -#A); 


16815500 T 0133»1 « 
16816000 T Ol35»0 so 
16816500 T 014111 ^i 


52 
53 
>4 


lbmess(i»j*54* i*"DisK '%o»u; 

END 
ELSE LbMeSS(I*J*-9MF A=1 THEN 45 ELSE l5'0*0M); 


16817000 T 0143«0 « 

16817500 T 014511 

16818000 T 0145*1 54 


55 •; 

56 ;,,:;: ■:v;;;/:,i.';',.; 


FER^ITJ 

rORaETSP*€C<eUFF-l)l 

, ficj TO i.mi : - 


• ■•... • ^-liilliliiiis^iiiit/^-^v';: ■ ■ ■ 



RSI 



16820000 T Ol53«l 



h 

2 
3 
4 
5 
6 
7 
8 



SET OMIT - NOT(BhEAKOUT) 
QQ TO e x i t; 



16820500 T 
t<S8220QQ T 



OlS)3tl 

Ql53ti 



HOI 



STREAM ( cut"- I'lRRTaeiwOl EUl. IT » •#2364000000000000* CX UO* 

■ ■ ■■■• . 'K>.8KTfi)i' ■• ' :'■ •' ' . . '■•■ ' '■ ' .■• "■' •• ■ 



16823000 T 
16823100 T 
16823200 T 



015313 
0l53«3 
0l55«? 



BEGIN 



si»bk; go 

IF SCs" " 



TO Hi 
THEN BEGIN 



sit8Si*i; GO TO LP end; cugcx; 



16823300 T 
16823400 T 
1682 3500 T 



0156»0 
015610 
0^S6«P 



^ 



Lll CX»*Ci; GO TO LO; 

IF SC*"*-" THEN GO EXTi 
DH«LOC EULlTj TALLYt»i; 



16823600 T 
16823700 T 
168238 00 T 



015713 
OlSStl 
0l50t0 



to 

12 



IF 2 SC*DC THEN % AN EU SPECIFIED 
BEGIN 

cx»«gi; GO Tg L o; 



16823900 T 
16824000 T 
16 9 241 Q0 T 



0159J2 
016010 
Ol60«Q 



13 
14 
15 



IF Sc GEO THEN IF Sc<12 THEN 
BEGIN 

si<»si-»i; Dit*»uoc Eu; 



16624200 T 
16824300 T 



0l60»2 
0l6i»2 
0l6ll? 



16 
17 
18 



IF Sc QEQ THEN IF Sc<12 
TALUY8«2 ELSE GO TO ERR; 
Sl'»ST"li CX^^TALlYr 



THEN 



16824500 T 
16824600 T 
16824700 T 



0l62«O 
016310 
Ql63<3 



19 

20 
21 



ENQI 



END 



osiwcx ccTi GO ext; 



16824800 T 016411 
16824900 T 0l65«0 
1 692 5 Q0Q T 0l65 > 



22 
23 
24 

is 

28 
29 
30 



err: 
EXT! 

end; 



errtogj»tally; 



16825100 T 
16925200 T 
16925300 T 



0165J0 
Olu5«l 
0165«1 



IF P THEN GO To ERROR; 

IF CHN1I»P+1)>0 THEN IF HNl LlQ NEUP.CFFJ THEN 

HNg«»HMl ELSE GO TQ ERROR FLSE 



16825400 T 0165 « 2 
16825500 T 0i66li 
168 25600 T i l »9t2 



BEGIN 



HNll*!; 
HN2:aNEuP,CFF]; 



16825700 T 
16825800 T 

H82 5 9QQ T 



017013 
0l73»0 

017313 



31 
32 
33 



end; 

SET OMIT « 
FOR H«HN1 



NOT ShAREDlSK 

STEP 1 UNTIU HN2 UP 



16826000 T Oi75»0 
16826100 T 017510 
16a?6s0Q T 017510 



34 
35 
36 

37*^ 

38 

39 



IF NOT (NT2«aUCn),ElNP THEN % NOT A DUMMY EU 

BEGIN 

lNT4t=(lNTHgNT2«STARTWRD) MOD 30; 



16826600 T 
16826700 T 
1168^ 6800 T 



1 ? 6 » 
Ol77»3 
P l^ 8 » l 



INT2»330"CKJ»(NT2 AND NUMENTMJ*R4) MOO SO+KI 
Jl^NTl DIV 30+USERDlSKeOTTOM; 
F lX AR RAYtUT*R>A); , , : 



16826900 T 
16827000 T 
lAa27vQQ T 



0i80t2 

oia4;i 

QJBAlfl 



40 
41 
42 



$ SET OMiT = NOT SHAREOISK 

DISKWAIT(-R»A, J); JjsO; 
FOR NTit«K''2 STeP -} UNTIL 



_R4 DO lNT3»'J-mT [ NTl3 ,[ 3» 1 93; 



16827200 T 
16827900 T 
16829000 T 



OlVOM 
019011 
.1 9 2 1 2 



45 



STREAMCA»sI-l#B>«IF un]tSPEEO«l THEN "F" ELSE «S«» 

C«»UCI] ,t38J l0 3-l»Dt5j,£t»UCl] ,[11201* 
F»«At«SPACE(lO)); 



16828100 t 019911 
16828200 T 02O3li 
16829300 r 0206 t^ 



«6 
47 
48 
49 
50 
51 



BEGIN 



siJ*i.oc a; ds: = 4 

Ats Oi; UKaPl'g; 



LIT" EU «; dS»«2 

osi*FiLL; dh»a; 



DEC, 



dSi»lit''(«; SU3SI+7; dSi*chr; 
osi«io lit**)* NO, mV»«; 0S«»3 DEC; 

A»»oii on«Di''3; os;»2 fill; on^A; 



16828400 T 
16828500 T 
16826 600 T 



020812 
0208«2 
209» 3 



16828700 T 0210»3 
16826800 T 021113 
16826900 T 02l3t2 



62 
53 
54 



OSiall LIT"* TOTAL Ays"; 0S>*6 DEC; 
AlaDI^ DllsDI-6; DSI»5 FlLLi DI»"A; 

DSt5i4 LIT" segs, max avs"; ds»«6 dec; 



16829000 T 021412 
16829100 T 021612 
16829200 T 02l7t2 



55 'vl 
56* 



Ai»oi; 0II.0I-6; Ds;*5 fill^ oii»a; 

iiiiliillifiiSiiiMi*^ 






^ 



forgetspacecr); 



16829550 T 0222»0 



• • 



n 

2 
3 

4 
S 
6 
7 
8 



SP0UTCA&ZZSTA[9S9l9n; 
EKHJ X EI^Se if HNlsHN2 THEN 



SET OMiT • NOT ShAREDISK 
HNll»KTRX.t9»63; » SET "MIX' 

SO TO forget; 



GU TQ ERRORS 



l6H29ftOO T 
16HP970Q T 



0222«3 



BACK TO ORIGINAL VAuUe 



16829800 T 
16830100 T 



0226«3 
0226*3 
QggRfn 



RAI 



IF 



MIX=P2MIX 
BEGIN 



THEN 



16850300 T 
16650700 T 
16H50a00 T 



0228 » 2 
0228*2 
2291 t 



halt; Halted j» thue; 
end; 



IF PC MtLQcNtsPKflMlX^a] acFJ-l' TOP* XcH» DEt ) THEN SeGI'AqRJsO 
ELSE 

DO BEGIN 



16850900 T 
16851000 T 
3168 51100 T 



0229*3 
023110 
O23H0 



10 

11 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
2G 
2« 

" 
28 

29 

» 

31 ~ 

32 

33 

34 

3S 

36 

37 ~ 

38 

39 

40 

41 

42 

43" 



16851200 T 
16851300 T 
16fl5 H00 T 



0232«2 
0236«2 
0237*3 



If pCMCtacNi* Top* xch» 0* inx 
e|siN 

IF NOT MeLOCN3.t33*13 THEN 



' fAOR* STD) THEN X OVERLAID ROW 

% NOT TYPE 13 Intrinsic .,__ 



1685i500 T 
16851600 T 

^^esuoo T 



0238* I 

024013 
08^1*1 



BEGIN 

SEGI'ADH; % SEGNO IN RCIN 

R>8Q; X ADJUST FOR SUBSIRACTION BELOW 



16851800 T 
16851900 T 
16852000 T 



02<t3«0 
0243*2 
02441 1 



AOR««MtMCLOcN3,MOMl.CCF3; % REL.AOR.IN MSeW 
END 

ELSF s e g »° (*u ; 



168S2100 T 

16852200 T 
16852 300 t 



0245*0 
0248*2 
024812 



END 
ELSE 

RFGll^ % PRgSrNT RCVtP CHECK THF 1 INkS 



16852400 T 

16852500 T 

.16852600 T 



0250 «0 
0250*0 
Q2501J- 



Ri»o; 

WHILE (SEG»«MCR3.CCF3) LSS 
IF SE G G TR R THENPt^S SG £ L 



ADR DO 

SE PUNT(EPUNTERC25l]); 



16852700 T 
16852800 T 
]li6H?2 9fl0 T 



0250*2 
0251*1 
025411 



seg*''If mcrJ.c3»6] = i Them m 

IF P(PRTR0>»tMlx3*0,lNX*DuP) 
R4 »* "PRT **; 



CH*13,[CFJ else 0; 
GTR R AND PCxCH) LSS MCR],CCFJ THEN 



16853000 T 
16853100 T 

168 53200 T 



0258*1 
0264t0 

266 *1 



IF 



Rt«R«2; 

end; 

PRTtMlX«8 



CCFJNEQ LOCN OR 

;n] ,mom until nqt 



MCLOCN'UtHSFF THEN ». MARKED 
M[LOCN] ,MsFF; X GET L^ST MsCw 



DO lQCN|sM[LOC 

LaCN*»MCL0CN3.MOM; * POINT LOCN Tq NEXT RCW#jUST IN CaSe. 

END 



16853300 T 
16853400 T 
16853500 T 



0269*1 
0270*2 
0270*2 



1685360C T 
16853700 T 



0274*3 
0279*3 



U9 5 3fl00 T 2 8 ?* Q 



UNTIL 

(If SEG NEQ THE 

ELSE (SEGDICTtOJ 



N IF SEG s 
LSS Seg or 



C-1) THEN 

M"T: SEGDICTtSEGJrPBlT) 



16853900 T 
I 6 85 « 000 T 
16654100 T 



0282*0 
0282*0 
0284*1 



ELSE P(MCR-2],C3«i2], DUP) NEU ^^00 AND PCXCH) NEQ *'l500) 
UR LUCNsfl; 

adr_ *s adr-r; 



STREAM filXf NAM t« 
S¥L«*MCPBT 
T0G2t»CS£G 



CJAREM|X»03 3« TP 
iMIX,8 3 3.UO«2 3, 
LEO 0)> 0*«8UFF' 



0# SfG> A0R# 
TQGII«CR4 NEQ 03* R4, 



16654200 T 
16854300 T 
16654400 T 



0266*2 
0292*0 
0294*0 



16854600 T 
16854700 T 
16894600 T 



0395*1 
0297* 2 

0300*3 



46 

47 
•8 
49 

50* 
51 \ 
52 

a 

54 

55 

58 :■ 



BEGIN 

DStsLIT" '«; 

Si>sNAM; 2(Sl»aSi4i; DS>87CHRI DStsLiT"/"); Dlt'Drii 



"PT«2LIT« »♦♦; 
TQG}(Slt»LOC R 
T0G2(DSl*l4tn 



16864900 T 
16855000 T 
16855100 T 



0302*2 
0302*2 
0303*0 



Sl»i»LOC M 
4; Sll»Sl 
** NOT AVft 



OSJeSLIT" SEG 
T»«Dl; Dll^DI- 
DStsSLlT" ADR« 



"; si»»lO 

4; dS|*3F 



c 5nrj 

ill; di 

; DSjs4DEC; 



ix; oSi«20EC; ^ 

♦ 1; DS|«L1T** "> 0SJ«7CHR;jUMP out to XXlT)# 
ILABLE"; JUMP OUT TQ XXIT); 



DSisAOECi 
» 3 T ; 



16855200 T 
16855300 T 
16855400 T 



0305*0 
0306*0 
0308*2 



0311 13 
0313*1 
031411 



END STREAM Si AIEMti^T; 



4; D5*«3F 



ill; 01 
st»CHR; 



i'TT 



16855500 T 
16855600 T 
16855700 T 



t6655S00 T 

■1.6«S,&90i-'«T^ 

Jipplpii 

16 8561 bo T 



0318*0 



m • 



h- 



IF HALTED THEN NOFROCESSTOG 
GC TO ERROR/ 



NOPROCESSTQG -I 



16856200- T 0318«1 
16656 300 T 03 2Qn 



FOR«ET» 

t T RE A M ( T I ♦8 Uri* »• 1 ) i S 1 1 
S SET QMIT P NOT {PACKETS) 



LIT "♦♦'; 



16902500 T 
16902600 T 



0322«0 
0322«0 
Q32A«Q 



ERRQRJ 

SPCUTER((BUFF-1) 
EXIT» 



INX Z2STA,UMTN0» 1); 



16902700 T 
16902800 T 
16902900 T 



032410 
032410 
0325»3 



IF (MIX^0) ANO (MlX<63) THEN TABCNTt MlX3 l«TABCNTCMiX J«l ; 
KlLLCCMSCWDi 

ENB PRQCEDUHE KEYIN2; -____ 



U902950 T 
16903000 T 
16903100 T 



0325»3 
033113 
0332»2 



to 
11 

12 
13 
14 
15 
16 
17 
18 



REAL PROCEDURE KEYIiyCB); VALUE B/ REAL B; 



SIZE* 0333 WORDS 
16904000 T 0000«0 
START OF REL SEGMENT; DISK ADDRESS « (10421 



X THIS PROCEDURE FUNCTIONS AS :A DRIVER FOR AUXILIARY PROCEDURES 
X •♦KEVIN0«#''KEYIN1« AND «KEYIN2*». PROCEDURES "KEYINO" AND »kEyIN1« 
» AHE CALLEB DIRECTLY* ANp PRQcEDURg '*KeYIN2'* IS cAlLED AS AN 



16904500 T 0000>0 
16905000 T 000010 
1690S«SOO T 000010 



19 
20 



21 



23 



24 

25 ■ 

26 

27 



28 
29 

30 
31 " 
32 
» 



INDEPENDENT RUNNERi 
BEGIN 
RE AL aiM. 



* q; 



REAL MSCWs-2; 

INTEGER Z2STA « ROW ♦ 2; 

REAL B UFF « 22STA 4 1» 



KTR 
TYPE 
M IX , 



* 6UFF 
s KTR 
' TYPF 



+ 



1^ 

1* 



A s MIX ♦ 1# MIXCODE ■ A* KTRX » A, 
I » A ^1' 
-J a_I * If RJfcQ*^ f Jt 



K « J +1* PROCED « k; 
NAvE ADDR s K * i; ARRAY BUFA s BUFFt*]/ 



$ SET OMIT • NOT(PACK£TS) 

LABEt START* CHECK, SWITCHIT* FORGET^ 



ERROR* TBLERR* EXIT; 



16906000 
1690 65 OC 
16907000 



oooo«o 

0000*0 
QQOO'n 



16907250 
16907500 
l690ftonO 



OOOOtO 
000010 
OOOOtO 



16908500 
16909000 
16909500 



16910000 
16910500 
l69UnQQ 



000050 
000010 
0000»0 



000010 

oooo»o 



16911500 
16912000 

169 1 2500 



16912999 

16913500 
16914000 



0000*0 
0000*0 

0000*0 



OOOOtO 
0000*0 
0000*0 



34 
35 



36 

37" 



41 
42 

43' 



46 
47 
«S 
«9 
SO 



52 
S3 



55 I 
56- 



Pee* 

START* : 



0* 0* 0* 0* 0* c» 0* 0* 0); % note P(bj«zzsta 



IF AfSCB) STi 1 THEN BUFF I^BtCFFJ ELSE 

■•••■■■■0EGIN ■ 

_ SUFF *■» GETSPAC£{60*Q>0)-»3i 

SET OMIT » NOTCDCapo AND DATACOM) 



MCBUfF INX NOT 2 3.C9J63 *=» 0* 
P(WAlTI0(BUFF<i.l[24*47;ii*0*25)* 



DEL) 



E.N.OI '■. 
SET OMIT • NOT(OCSPO AND DATAeOW) 
»CBUFF*23l»0&ZZSTAC9t9t93J 



KTR js buff; 

IF (PR0CCD*=(TyPE*sKEYIN5CAN(KTR,MIX)).C1»53)=7 THEN GO TO TBLEHH; 
KTR *» KTR & 6UFFC15;33t 153; 



8JE0K 

MIxCOOE 

TYPE 



} s 



IF TYPE-e OR 
BEGIN 

IF MIX.CU13 



(MlXC0OE«*TYPE,t6»63) Gfq a; -^^— 

(MiXCOOE x(MIX NEQ 63)) AND 3; % ACTUAL MIX CODE 

TYPE»tCF3; 

MIX.Clt23XO THEN % EMPTY OR ERROR 



THEN % EMPTY BUFFER 



keyinjutrue; 

iH 



60 TO forget; 



ELSE GO TO error; % TYPE'O OR MIX. [2*13 



16914500 
16917500 
H? 1 8Q00 , 



16918500 
16919000 
16919'SOO 



0000*0 
0000*0 
0002*3 



16920000 
16921000 
16921500 



0002*3 
0005*3 
0006*1 



0008*2 
0008*2 
0012*0 



16922000 
16922499 
16925500 



0014*2 
0014*2 
00Ut2 



16926000 
16926500 
16927000 



16927500 
16928000 
16926500 



0017*2 
0018*1 
0021*3 



0023*2 
0025*3 
0028*0 



16929000 
16929500 
16930000 



16931000 
16933500 



0029*1 
0031*2 
0032*0 



0033*1 
9Q3<I'2 



16934000 T 0034*2 



• • 



10 



13 



16 

17 



19 
20 



23 
24 
25 
2« 
27 
28 
29 
30 

3rS 

32 

33 

34 

35 

36 

37" 

38 



40 
41 
42 
43^ 



44 
46 
46 
47 
«8 
49 
» 
51 
S2 
i3 
54 



35 

56 



end; 

SET UWTT 



.. N0T . CP . C 3PQ, ANU DATACQM? 



CHECKS 

IF MlXCOOE«l 
BEGIN 



OR MlxC0DE«2 THEN % Mix iNDEX REQUIRED 



IF Hix GTR MixMAx Then go To error; 

IF JARCMIX**]*0 THEN GU TQ ERROR; % JOB MUST BE KENNING 
IF MiXCnOEal THEN it JHR SHaUin RF KATTII^G FHR T HIS TNPUT 



BEGIN 

JI«REPtYtMlX3i 
WHlLr J LSS Q DO 



BEGIN 

IF J.C^2«6]*TYPt THEN GO TO 

J?--v,[(>»363i % Shift Right 



switchit; 



if 



ENO; 
TYPe*VWY 



THEN X "WY"' NOT WAITING pOR JT 



M [BUFF- I J JsFLAG(-"kvY N0T"&^lIX£6M2»63>' 
MCBUFF] «»Q&(PiA37)UJ37JUJ; 



GO TO ehroh; 

ENO; % IF MIXCODE * I OR 2 
SWITCmTt 



TABCNTCMlxJJ=TABCNTCMIX3+i; 
SET UMiT = NOT(PaCKETS) 
end; it IF BIX INDEX R£ QU IPEQ 



KTRX t« KTR 

IF PR0CE0«2 

BE G IN 



& MIXt9M2i6] 

THEN 



& TYPE£2t4ii73; 



MtBUFF-U »* b; % PASS 

iNDEPENDENTRUNNERCNTlJi 

E ND 



VALUE TO PROCEDURE 
iPC. tKEYlN2)'KTRX*nO)' 



ELSE IF ^ROCEO 
GO TO EXIT; 
TBLERRt 



a THEN K£YIN1CB,KTRX) ELSE KEYlNOC B#KTRx)^ 



streaM(ktr*b:=buff-i); 

BEGIN 

SlIsKTR; SH = Sl-2' DSssLiT"*' 



DSjis^ChR' 



DSt«glLlT« 

end; 



NOT COMPILED IN MCP*«; 



ERROR I 



SPCUT( (8UFF-U 
KEY IN »» true; 
GO TQ EXIT; 



INX (0&ZZSTAL9»9:9])); 



FORiETI 

STREAM(|t«syFF«aaurF*l)l DSIsLIT"*"; 
SPOUT (Bt^FF INX iQ>iIZSlAl9*9i9U}J 



EXIT! 
IF 



ABS{B) 

BEGIN 



LEQ 1 Then 



IF (KEYBQAKOCOUNTER|»KEYBCARO|OUNTER*1^<JTR THEN GO TO STaHT' 



keyboarocounteri*o; 
Ei^o; 

KILL([MacW]); 



IF B then 

END PROCEDURE KEYIn; 



: PRO c E D'gi|,,;iiii::Sa;iiiiii**jtiiiii:|,» un irumm^i 



16934500 
1 69 35000 



169A6600 
16947000 
lft<fl7«feflfl 



T 
T 



0034«2 
0,0341? 



003412 
0034»2 

Q036M 



16948000 
16948500 
1^949000, 



16949500 
16950000 
16950S00 



0036«3 
00 3a»0 
Q039»2 



0040U 
0040*3 

ooain 



16951000 
16951500 
16952000 



16958500. 
16953000 
t69«)3500 



0043 »0 
00^3 »0 
0044<3 



16954000 
16954500 
16955000 



0046ti 

0046*3 
0047*2 



16955500 
16955600 
1 69n 5ft O Q 



0048*0 
0051*2 
00'?4«-0- 



0054*0 

0056*0 
0056*0 



16956000 
16956019 
169'S6^0Q 



16957500 
16958000 
169sa»>0Q 



005610 
0059*2 
59* . ? 



0059*2 
0062*1 



16959000 
16959500 
16960000 



16 96 OS 00 
16961000 
16961500 



0063*2 
0065*2 
0067*1 



16962000 
16962500 
16963000 



006 7 * 1 
0071*2 

ooyg*o 



16963500 
16964000 
16964500 



0072*0 
0073*2 
0073*2 



0074*3 
0077*3 
0078*0 



16965000 
16965500 
16966000 



16966500 
16967000 
16967500 



0078*0 
0080*3 
0081*2 



16968000 
16968500 
16969000 



0082*0 
0082*0 
0084* 2 



0086*3 
0085*3 
0087*3 



16969500 
16970000 
16970500 



0088*1 
0090*2 
0091*1 



real FN /i)N * I iVi 2/r# On I TNQ * x; 



lit 



start Of rel 



16971000 T 009111 
16971500 T 0092«3 

SlZ£» 0094 

17000000 T 0000*0 

SEGMENTi OlSK A00«ESS » 

. 17000200 T 000010 

I7OOO4OO T 0000 JO 



WORDS 



00425 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



X****«******4r***ilt**i^***«**1lr********it ************************** ********* 

_X PARAMETERS , 



17000405 T 0000 
^ /ono/t^o T QQQQ 



X 
X 



1.SS a 



12 



FORM OF MESSAGE 
F N / S N, II 



17000420 T 0000 
17000430 T 0000 
1 7Q QQfl40 T QSlSm 



% 
% 

% 



LSS 
tSS 

GTR Q 



GTR 
GTR 







NEQ 





FN/SN 
FN/SN 
FN/SN 



NOT 
NOT 



11(12) 
I1(I2}« 



17000450 T 0000 
17000460 T 0000 
17000/^70 T QQQQ 



X GTR 
X GTR GTR 
X 52 OR 54 



NEQ 



FN/SN U* E 
FN/SN II 12 
fN/SN II I2/F 



17000480 r 0000 
17000490 T 0000 
17000^00 T 0000 



xnotej 

% 



IF II IS NEITHER 52 NOR S'* 



THEN U AND 12 ARE INDICES INTO TABu 
EL$E 12 AND E ARE MFID aND FIDt 



x* ********************************************************** *********** 



17000510 T 0000 

17000520 T OOOO 
17000:^30 T 0000 



13 

14 
IS 



BEGIN 

REAL T#AJ A8RAY TA8it*3; 
TABL»»cMcSPACE(Ai«ME$SAG£TA8tEc43 



catiojjn & 



17000600 T 0000 
17000800 T 0000 
i70nai^0Q T OHM 



16 
17 
18 



M£SSAGETABUEt^]C8«e« lOj; 
DlSKWAITC(TABt.CCFn#A*MESbAGETABLE[43f t22«263)^ 
STREAMCA»sfFN3M<ail LS5 0> T BL 1 « s [ T ABL [ ABS C 1 1 ) 3 1 * E/ 



17002300 T 0004 
17003000, T 0006 
1 7Q 032QQ T 0009 



19 

20 
21 



tl*Il 

BI»IF 



LSS AND 12 NEQ 
P(DUP3 THEN tl21 



BEGIN HDS»»LlT'*.'^)f DS»gLIT' 



0*J»«I1*52 OR Ila»54» 

EtSE CTABtCI2 3 3*T»=T«»SPAGE(l0)>; 

''i SH«Af 



17003300 T OOll 
17003450 T 0014 
17003S00 T OOtg 



22 
23 
24 



IF SC="+" THEN BEGIN uS»*LlT"s»; SilsSJ+e; END 

ELSE BEGIN SltsSl+i; DSJ«7CHR; END; DSJslIT"^"; 
TF SC"*" THEN BEGIN OS » ^L iT"*"; S^««SI»6; END 



17003550 T 0021 
17003600 T 0022 
1 70 Q 37OQ T 00 23 



25 

28 U 

28 
29 

10 



DSlsHT" . 
63{Si;*Sl*lJ 



ELSE BEGIN Sl,USl + i; 0SI»7CHR; 

«; L(0Si*4l.IT'*N0T "); SIt«T8iii 

7(IF SC»"*" THEN JUMP OUT 2 



end; 

TO LI ELSE pSt'CHRJi^ 



17003750 T 0025 
17003800 T 0025 
17003fl50 T 0028 



uii sh»b; 

J (IF Scs"*" 



THEN BEGIN oSl'LlT"***; SnsSl + 8; END 

ELSE BEGIN SllaSI+i; DS«a7CHR END; DSIsLlT"/"/ 



I7003g00 T 0031 
17003950 T 0031 
^70 0^0 00 T 0033 



31 : 

32 

33 



IF Sc»«+9 THEN 8CGIN 
ELSE BEGIN 



osr»uiT»»»"; S|i«si48; end 

SI»eSI + i; DS»«7CHR ENO; JUMP OUT TO 1.3); 



63(Si»xSl + i; 7(IF SCa"*-" TriEN jUMP OUT 
L2« L(DS!SUIT")''); SltsLQC E; Sl|«Sl+5; 

IF Sc NEQ "O" THEN BEGIN DS»s2lIT"> '*; 



2 tu l2 else dsj»chr)); 
dsjs3chr; End; 



17004050 T 0034 
17004100 J 0035 

17004150 T 0037 



34 

35 

38 

37" 

38 

39 



17004200 T 0038 
17004250 T 0041 
17004300 T 00^3 



t3i dsi-lit"*"; 
end; xstream 

SPOUTERCT&UNltN0C9t9{9J^UNITN0*X); 



17004600 T 0044 
17005200 T 0044 
17005400 T 0Q4S 



40 
41 
42 



F0RGETSPACE(TABL,[CF3 ); 
end; XLIBMSG 



17005600 T 0046 
17007000 T 0048 

Size- oo 



3 

1 

49 WORDS 



43 

44 
45 

46 
47 
«8 
49 
50 
51 
52 
53 
54 



PROCCDUfiE STOPMcliCS); VALUE NCSI REAL NCS; 



ST ART OF HEL 



17900000 

17900500 

segment; DISK 



T 0000 
T 0000 
ADDRESS 





a 00427 



BEGIN 

INTEGER PROTY; 

REAL B; 



17901000 
17901500 
179020^0 



T 0000 
T 0000 

T Qonn 



LABEL around; 
S SET OMIT ■ NOTCWORKSET). 

»ROTY i» PRY08CP1MIX3J % SAVE THE PRIORITY LEVEL 



17902500 
17903000 
179Q 9 S0Q 



T 0000 
T 0000 
1 O QOQ 



PRYORtPlMlXJ «* STOPJOB t» ^1777; 
AROUND' 

STREAM( J»»JARB0W[P1MIX3» P1MIX# 



17906000 
I79O65OO 
W907Q00 



T OOOl 
T 0003 

T . OOQl 



56 



S SET OMIT « NOTCWOftKSCT? , 

8 t« B l« GETSPACE(10#0#0)+2); 
B¥;<S IN .. , . 



17907500 
17909000 
) l7y<?95P0 



T 0004 
T 0004 



$ SET OMIT » NQTcwORKStT) 



17910000 T 0006 



• t 



>T 



DSS = 13LIT"J»0PHTR ST-ED "' 
Ll» Sitxjj 2(Slta5Ui; DS(87CHKj pS I «L I T"/" ) ; 



1 

2 
3 

A 

5 

6 

7 

8 

» 

10 

11 

12 

13 1 

14 { 

IS 

16 

17 

IS 

19 

20 

2' 
22 
23 
Z* 

26 I 

26 J, 

27 f 
28 
29 
30 

31 f 

32 ■? 
33 
i* 
35 
36 
37" 
38 
39 
40 
41 
42 
43 



oiiaDi*i# ostxtiT"*"; s-it«»-OC PiMix; osmzOEc; 

END STREAM STATE ME Nt I 



179U500 r 
1 79120QQ T 



0006 

osm. 



179x2500 T 
17913000 T 
17913500 T 



0010 
0011 
0012 



spourcB); 

REPLYXPIHIXJJ* -VWY H. VOK C 36 « 42 J 63 / 
Cn>^R'-EXS|.EEP((TEH^'IX,[CF3«Pl>^IX nR RrPLYtPlMiX] 



GEQ Q))K 



179H000 T 0013 
179U500 T OOI3 
1 791 500Q T Q016 



16164000 ACCIDENTAU ENTRY AT 

IF TERMIX.CCFJ 
BESTN 



N£fl PlMlX THEN X NOT TERMINATED 



17915500 
17916000 



T 0023 



SET OMIT » NOT(WCJrtKSET) 

IF NOT wHYSLEtPCVWY&V0K[36U2»63) THEN GO ARQuND; 

REPi.YEP;iM|Xj,»«'0; 



17916500 
17918500 
1 791 9 QQ0 



T 0025 
T 0025 

T ... 9P 2.7. 



'Mm^i 



17919500 
17980000 
1792Q«i00 



T 002d 
T 0030 
J 0030 



S POP OMIT % WORKSET 

$ SET OMiT s NoT(WORKSET) 

IF NCS THEN Gfl TG INITIATE; 



END PROCEDURE STOPm; 

pROcEnuRE tisktask; forward; 



17921000 

17921500 
17927500 



T 0030 
T 00 30 
T 0030 



17928000 
17926500 



T 0031 

ilZE* 00 

T 0000 



1 
32 mORDS 




PROCEDURE FiLEhGLD(A,B.TUG,lOC»hULD3; 



START OF rel segment; oiSk address 

18000000 T 0000 

STA RT OF re l segment; u i ^\{ a ddress 



00429 



00429 



VALUE LOC*HOLO; 
REAL A'B'TOG'LOC'HQlD; 
BEGIN 



18001000 
18002000 

iROQlOQQ 



T 0000 
T 0000 



REAL SZ*Y,T; 
SET OMIT « NOT SHAREDISK 
ARRAY HGLDLlST[*3; 



18004000 
1800^490 



T 0000 
T 0000 
T 0000 



LABEL SlEPE; 

DEFINE DSE0«(TER«IX.tCF3sPlMlX)#; 

IF HOLD THE N 



laoooooo 

18007000 
16O09Q 00 



T 0000 
T 0000 
T 0000 



BEGIN 



IF Tog Then Tqg*tog+i else 

BEGIN X MAKE AN ENTRY IN THE 



HOLDLIST 



18009000 
18010000 
18011000 



T OOOl 
T 0001 
T 0004 



$ SET OMIT = NOT SHAREDISK 

IF CSZt3(YI»H0LDER»CFF3)*n GTR HOLDMAX THEN 
BYBYC'HQLQ LIST 0VERFLQw»«M9 ) ; 



H0L0LUT»»CM[SPACE(SZ)3 3&SZ[8t38»10]; 

IF YXO THEN 

DISkwa1T(-(HDLDlIST I\x 0),Y#HDLDER.[CF]); 



18011490 
18012 000 
18013000 



T 0004 
T 0004 
T 000 7 



HOLDER, CFF3|«SZ; 

HOLDLlSTCY3l»LOC.CFF34CTOG3CCTFHSYSNOC2»46l2 3l 
OISKWAITCHOLDLIST INX 0# SZ*HOLDER, t CF ] ); 



18014000 
18014100 
18015000 



T 0014 
T 0018 
T 0018 



46 
46 
47 
18 
49 
50 
51 
S2 
S3 
S4 

ss 

56 ■;' 



I8OI6OOO 

18017000 
I8O18OOO 



T 0022 
T 0023 
T 0026 



$ SET OMIT ' NOT SHAREDISK 

fqrgetspacecholdlist); 
. e nd; 



18018490 
18019000 
18019500 



T 0029 
T 0029 
X 0030 



IF MCLOC+43,[3»n THEN 
$ SET OMIT ■ NOT SHAREDISK 

E LSE 



18020000 
18020490 
18 810 00 



T 0030 
T 0032 
T 0032 



BEGIN MCL0C+43.l3«l3J5i; 

DISk>nAIT(LQC.[CF3*-30,LQC,CFF3); 

end; 



18021500 
18022000 

i e q . 2 . 2 , 50p , 



T 0032 
T 0036 
T 0038 



;■ * : ;s^Ei3iiiiaiij|iiiWiii»ii 
mmemmmii 



18022990 
18023000 
18023010 



T 0038 
T 0038 
T OOOg 



IF PIMIX^O THEN 



18024000 T 0042 



h 

2 
3 
4 
5 
6 
7 



BEGIN T»=VWY&CVIFXA,C3»1J)C36U2»6J; 

IF TQG»0 then 



18025000 T OO-fJa'C 



SUEfEl 



filemessc* «#a/8*" in use^'O^o^o); 

RE«lYtPlMlX3l»-T; 
COMPL£XSL££P<REPLYlf»lMlX3aO OR QSEQ OR TOG); 



18027000 T 004710 
18020000 t 0049 » 3 
16 29000 T 005H1 



17V15000 ACCIDENTAL ENTRY AT TOG 

IF NOT WHYSLEEP(T) THEN GU TO SLEPE; 
END ELSE 



18030000 
18Q 31 0Q , Q 



T 0059 
T 00 6 Q 



»0 



BEGIN LBMES3(ABSCA)»B'45#0*''MCP*'*0M); 
SLEEP(CT0G3»n; 

end; . 



180 31500 
18032000 
iB0:s2nOQ 



T 0060 
t 0066 
T 0Q6i» 



»1 
iSL 



10 

11 

12 

13 

14 

tl5_ 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 ;," 

2?" 

28 

29 

30 

31^ 

32 

33 

34 

35 

36 

37^ 

39 

39 

M 

41 

42 

43 ~ 

44 

45 

46 

47 

48 



$ SET OMIT s ShAREUISK 

lockdirectqhy; 

$ POP OMIT 



18032990 
18033000 
1 80 3 30 10 



0068 
0068 
OQM 



10 

»0 



togi»true; 

if PCCPIMIX NEC AND DSED)'DUP) 
THEN FIL£ri0L0CA.B^T0G>L0C>2); 



18033500 
18034000 
lA035flOQ 



T 0074 

T 0075 

_I 007fl 



12 



p(htn){ % I ON TOP Of stack if dseo 
ekd; 

S set QMiT * NOT SHAREDISK 



16037000 
18045000 
^8045490 



0081 
0081 
0081 



«0 
U 

UL 



IF (SZIaH0L0ER.£FF3)»0 THEN 
$ SET OMiT a NOT SHAReOISK 
ELSE 



18046000 
18046490 
18047Q0Q 



0081 
0083 
08 3 



«1 

10 
UL 



BEGIN IF HaLD«2 THEN DI SKWAI T (-LQC , c^F J *- 30*L0C , [FF ] ); 
H0LDLlST|s[MCSPACE(SZ)JJ&bZ[8»38«10j; 
DlSKHAirCCHQLDLIST INX Q) ^ SZfHOLDER » C CF 3 ) ; 



18047500 
18048000 
18 0490 00 



T 0083 
T 0090 
1 09 3 



«2 
»0 
L3_ 



IF Tog Then for ti*o step i until sz-i oo 

$ SET omit » NOTCSHAREOISK) 
IF HOUDtlSTtT3.[FF3<'[TOG3,CCF3 THEN 



16050000 
IflOSloOO 
18053000 



T 0096 
T 0101 

J oiex 



12 

12 



IF (SZlsSZ-l) X T THEN 
BEGIN 

M0VE(S^-T>CH0LDLISTCT-»1 J3*tHOLDLlSTCT3 3); 



18054000 
18055000 
180560C»0 



T 0103 
T 0106 
T 0106 



13 

«0 
12 






18097000 
18056000 
iaQS90QO 



T Ol09 
T OUO 
T Olio 



»2 
II 



IF SZ^O THEN 
BEGIN 

FQ^j Y^O STEP 1 UNTIL SZ' j Q Q 



1806000O 
18061000 
180 62000 



T 0112 
T 0113 
J 0113 



«2 

U 



IF HQU0LISTCY3.CCFJ»L0C.CFF3 THEN 
BEGIN 
S SET OMIT g NOTCSHAREOISK) 



le063oOO 
18064000 
18065000 



one 

0120 
0120 



10 
»0 
L2_ 



MtHOLDLISTCY3,CFF33*i; 
Y«aSZ; 



end; 



18068000 T 0l20«2 
18069000 T 012310 
18070000 T 01,23! 3 



DlSKWAlTCHOLOLlST INX 0,SZ.H0LDER. t OF 3 ) ; 

end; 

$ SET UMIT * NOT SHAREOISK , . 



18071000 
18072000 
18 0724 9 



T 0124 
T 0126 



»1 
13 
L3_ 



IF SZ*Y THEN 

BEGIN 

MELOC>43.[3tl3>eO; 



18073000 

180740QO 
ie0750Q0 



T 0126 
T 0127 
J QIM. 



»3 
»2 

10- 



49 

50,5 

51;', 

52 
U 
34 

55 

56' 



•liiiiiiii^^;ilife^N ^viiiKiiiiiiiiO:^' t:cF-3p«^ii'#;to c * .c f f 3 ^3'i 



16075500 
180759*0 
16077500 



t OJII 

T 0135 

Jt 013§ 



«1 

to 

ISL 



FORGETSPACeCHQLDLlST); 

eno; 
End; % of filehqldeh 



18078000 
18079000 
18080000 



0135 
0136 
01 36 



10 

«0 
ISL 



XCOMfclfNT THE DISK F|UE HEADER CONTAINS THE FOLLOWING INFORMATION* 



laoeiooo 
tftPflSnoo 



SIZE* 01 

f oooo 

T; , 000 



37 
<0 

UL 



MOROS 



57) 



,C15:153 



BLOCK LENGTH 



18084000 T 000010 



• • 



n 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13' 

14 

IS« 

16 

17 

18 

19 

20 

21 ; 

22 
23 
24 

K% 

"i 
27 i 
28 
29 

10 

"I 
32'! 
33 ■ 
34 
35 
36 
37" 
38 



% 
% 



.C:i0ll2] 



RECORD/BLOCK 
S£eMf - NT§/ri LUCK 



»HtU.t6ll83 
X .C25t23] 



CREATION DATE FOR LOGGING 
CREATION TIME FOR LOQGiNG 
NUMBER OF L06ICAI RECORDS 



(WHEN ON DISK) 
(WHEN On DISK) 
PER RON (WHEN IN CORE) 



18085000 T 
1608.600.0. T 



0000»0 
.O.OQ.Q.in. 



18087000 T 

isoeeooo t 

leQfl900Q T 



ooooto 

000010 

ooooto 



»H[2].[0M8] 

% .Clin 



= 

= c 



FREE FILE 

SOLE USER> PUBLIC 

SECURITY FILE 



OR PRIVATE FILE 



18090000 T 
I809l000 T 
180 920QO T 



OOOO'O 
0000 «0 
OQOO'O 



XHt33.tllU 
% .C2n03 



PRIMARY USER^S CODE 

■1 NEW FILE HEADER FORMAT 

SAVE FACTOR (BINARY) 



18093000 T 
18094000 T 
16095000 T 



18096000 T 
18097000 T 
18098000 T 



0000*0 > 
0000*0 

ooooto 



9 
10 

11 < 

12 

13 

14 < 

15 

16 

17 < 

18 

19 

20 < 

21 

22 

23 ' 

24 

2G 

26 ' 

27 

28 

29 I 

30 

31 

32 I 

33 

34 

35 < 
36 
37 

36 ( 
39 
40 
41 ( 
42 
43 
44 I 
45 
46 
47 > 
48 
49 
50 < 
51 
52 
53 I 
54 
55 
S6< 
5^ 



* ,C12J183 
% .[30118] 

»H[4].tui3 



DATE OF LAST ACCESS (BINARY) 

CREATION DATE CBInARY) 

»1 FlLE Is BEING LOADED OR NAME IS BEING CHANGED 



•I FILE IS OPENED BY AN EXCLUSIVE USER 
•1 A PROGRAM IS WAITING TO USE THE FllE 
$YSTEt< NUMBER OF EXCLUSIVE USgR 



0000»0 
000010 
0000«0 



% 
% 
% 



.C3*n 
.C4I23 



18099000 T 

leiooooo T 

18101000 T 



ooooto 

0000»0 

ooooto 



X 

% 

% 



.[6JU 
.t7tlJ 

,t8'H 



USED BY AUTOPHlNT TO MARK A PBD FILE 

USED TO M^RK PSeUdO DECKS THaT WeRE CHEaTED ON 

USED .TO MARK aPECIAL CQMPIL&RS 



18102000 T 
18103000 T 
I fl lQ^ OQQ t 



ooooto 
ooooto 

QQQQtQ 



X 

X 

JL 



'wm 



• 2 Flt-C IS DATA 

«3 FILE IS PROGRAM 

*Sk OON**T KNOW IF DATA OR PROGRAM 



18105000 T 
I8IO60OO T 
18107000 T 



ooooto 

000010 

ooooto 



X 
X 
X 



, C U 1 1 J 
.Cl2t4] 

J16t53 



FILE ACCESSED BIT 
SYSTEM FILE TOGGLES 
OPEN COUNT ?. FOR SYSTEM 



n ,, ( A ) 



I8IO80OO T 
18109000 T 

leiiOQon T 



ooooto 

OOOO'O 

ooontQ 



X 
X 



,C21J5J 
.t26t53 
.C31I53 



OPEN COUNT 2 FOR 
OPEN COUNT 2 FOR 
QP£N COUNT 2 FO R 



SYSTEM 1 (8) 
SYSTEM 2 CO 
SYSTEM 3 (D) 



ISlllOOO T 
18112000 T 
18113000 T 



ooooto 
ooooto 

QQQQtQ 



X 

X 
X 



.[36163 



=0 TYPE IS 
*i BASIC 

^'i. ALGOL 



UNKNOWN 



18114000 T 
18115000 T 
16U60Q0 T 



ooooto 

0000*0 
QOOPtQ 



'■%■[ 
% 






U117000 T 
ISUdOOO T 
le U^QOQ T 



ooooto 
ooooto 

OOOQtQ 



X 

% 

X 



=6 XALGOL 
»7 SEQ 

=8 DATA 



I8I2OOOO T 
18121000 T 
l fl l22 Q00 T 



ooooto 
ooooto 

O QQO'Q 



X •9 LOCK 

X ,[42tn USED TO MARK FILES WHIcH CANT BE 

X .[43123 SENSITIVE DATA ' ZEROING BITS 



MOVED 



18123000 t 

18123100 T 
liigltQeO T 



ooooto 
ooooto 
ooooto 



40 

41 

42 

•3 

44 

46 

46 

»7 

IS 

•9 

50.':;. 

BlS' 

52 

53 

S4 

55 3 

56* 



X 
X 
XHC5 



.[45J13 

.[46 J 23 

3,CO»463 



COk»D START FILE 

NUT USED 

■Q . SQLi; US E R F| ,L £ „ 



1812410C T 
18124200 T 
18U5Q00 T 



ooooto 
ooooto 

OOOQtO 



MM. 



it in 3 



1 



■••1 ■Wfll'^1t^T:£'''i;'ll«»'''''''''''*^^^^^^ 



FILE 



18126000 T 

uiatooo T 

tBl2»000 T 



ooooto 
ooooto 
ooooto 



XH(8 
XHt9 
X 



3 

3.tltl3 
[2tl3 



NUMBER OF Se 
TOGGLE 1 FOR 



GMENTS PER ROW 

SYSTEM (A) 

SYST EM 1 (B? 



18129000 T 
18130000 T 
18131000 T 



ooooto 
ooooto 
ooooto 



m 

% 



,[3113 
.l*tl3 



■iiiiiiPiififtti 



toggle 2 for 
Toggle 2 for 
toggle 2 for 



SYSTEM 2 



iliJi 



SYSTEM 1 (B) 
SYSTEM 2 (C) 
SYSTEM 3(D) 



181320^0 T 
18133000 T 
ISUftQOO T 



ooooto 

0000 to 

ooooto 



X 
X 

X 



,[6tl] 
•C7I13 



mMmsmmm 

OPLN COUNT 1 



FOR SYSTEM 

■liiiiiiiSiiK 



18135000 T 
18136000 T 
1813/000 T 



ooooto 
ooooto 
ooooto 



m 



i 



m'0k9^^0!^MK^^ 



tm 



tKi 



ii 



i» 



SYSTEM 



mm 
iil 

ffr 



mmmmm'i 
m 



mi 



ooooto 
ooooto 

0000*0 



153 



000 T ooooto 



2 
3 
4 



12 



17 
18 



20 
21 



23 
2* 
2B 
26 
27 
» 
29 



30 
31 
32 
33 



34 
35 



36 

37" 



41 
42 
43' 



46 



•8 



49 
SO 



52 
U 
S4 



55 ■( 

56 •.' 



% .C29tl4] NOT UStD 

% ,C43t5] MAXIMUM NUMBER DF ROMS 



16142000 
181^3000 



XHEia3-Ht293 

X 

X 



DISK ADDRESSES OF RQWS (0 IF NOT ASSIGNED) 



U144000 
IB 146000 



0000:0 
OOQ QfO 



XTHE 

% 

% 



OPEN COUNTS ANU TOGGLES ARE USED IN THE FOLLOWING mANNEKj 



TOGGLE 1 



TQ^GlpE 2 



OPEN COUNT 1 



QPEN CO UNT -g- 



18U7000 
18U8000 
18149000 



OOQOtO 

0000 to 
OQOQIQ 



OOOO'O 
000010 
OQOO'O 



X 






_1_ 





1 





i OUT PUT 3 



INPyT ONLY 
NOT USED 
SHARED 



INPUT 
INPUT 
INPUT 



18150000 
18151000 

iftisanOQ 



ooooto 

000010 
00 00 10 



% 

xend 



PROTECT 



INPUT 



comme nt; 



18152100 
18153000 
iRia^OQQ 



RfAt PROCEDURE 01 RECTOR YSE ARCH £ A, fi*OPTN);X 
VALUE A^B^QPTN; HEAL A>fl>aPTN;X 



^tart Of REi 



IftlSSoOO 

SEGMENT; DISK 

t81S6QQ0 



oooo»o 

0000*0 
00 00 «0 



X 
X 
X 



OPTNs 
OPTNs 
OPTN" 



OPENS 
OPENS 
OPENS 



FOR 
FOR 
FOR 



SHARED 

Input 

OUTPUT 



USE 



X OPTN* 3 OPENS FOR WRITEiOCK 
X OPTN« 4 OPENS FOR EXCLUSIVE 
X DPT N* 5 R E T U i NS F I L E H E A D E H 



Use ■ 
cunChangedj 



X OPTNs 6 REMOVES FILE FROM DISK UNCONDITIONALLY 

X QpTNs 7 REMqVES FILe FRO'^ DISK AS SqqN aS IT jS NqT IN USE 

X OPTN* 8 RFMOVES FILE HEADER QnlY 



X OPTNs 9 HEAOERUNLOCK--WRITES HEAOE" POINTED TO B^ (F'«)#tCF] 
X BACK OUT ON CF-4).tFF3* TURNS OFF INTERLOCK & DOES 
Jt FQafiETSPACEfF>4). 



X 
% 
% 



OpTNelO 
0PTN511 

C PTN -1 2 



CLOSE 
CLOSE 
CLBSE 



SHARED 

INPUT 

OUTPUT 



X 0PTN«13 CLQSE rtRITELOCK 
X OPTN-14 CLOSE EXCLUSIVE 
X 0PTN»15 LOGS THE FILE AND 



RESETS ITS CREATION DATE AND TIME 



X 
X 
X 



CpTNsi6 
DpTN«l7 
OPTN8I6 



Makes the fill 
makes the file 
will interlock 



X 

.X 

'■3_ 



0P^tN»l9 RETURNS FILE HEADER 



NOT A SYSTEM FILE 
A SYSTEM FILE 
SYSTEM F l l fS 



(UNCHANGED AND LOCKED, f. It IS UP TO 
THE CALLING ROUTINE TO CLEAN UP) 



X OPTNsgl OPHNS PROTECT 
X 0PTNa22 CLOSE PROTECT 
X DPTN>512 FILECLQSE--ADDRESS 



OF HEADER IN QPTN.cCF] 



X CLOSE OPTION-IO IS IN OPTN.tFFJ 

X OPTN< RETU«N5 AN AREA OF USER DISK AND UPDATES CORE COPY 

X OF FILE HeADER**AOQRESS QF HEADER IS IM OPTNtCCri*' 



X 
X 

X 



A.iitn 



NUMBER OF THE ROW TO BE FILLED IS IN OPTN.CFF] 

IS IN aPTN,[CFl 

DIRECTURYSEARCH WILL FORGET THE MEMORY SPACE 



X Occupied bt the file meaoeR 

X A.tatlJ Is OIALEO INTO FH{«3,tm3 WHEN OPTN»ft 

X A.C3tl3 IF A CONFLICT OCCUHS* AN "IF" WILL BE ENABLED. IF ThE 



X 
X 

X 



B.CH13 



OPERATOR ENTERS AN "IF"* DIRECTQrYSEARCH WIlL RETURN A 
VALUE OF -0» CURRENTLY* THIS IS USED ONLY BY LIBMAlN. 
DIBECTUrYSEARCH WILL RETURN A VALUE OF "0 IF THE 



mi 



BEGIN 



B,t2tl3 
B.t3tl3 



WILL SET FILE ACCESSED BIT FOR CLOSE 



T 000010 
ADDRESS » 
T OOOOiO 



00434 



18157000 
18158000 

Ifl.159000 



OOOO'O 
OOOOIO 

Q QO O» Q 



18160000 
leiMOGO 
18162000 



0000*0 
0000*0 
Q0 0Q *0 



l8l63000 
18164000 

iai65ooo 



0000*0 
0000*0 

0000*0 



18166000 
18167000 

t et^naoon 



0000*0 

0000*0 
0000*0 



18169000 
18170000 
18171000 



0000*0 
0000*0 
0000*0 



18172000 
18173000 
l«ly4nQQ 



OOOOiO 
0000*0 
QQQQ*n 



18175000 
18176000 
18177000 



18178000 
18178100 
lftl79nOQ 



0000*0 
0000*0 
QQQQ*0 



0000*0 
0000*0 
OQ QQ«0 



18179100 
18J79200 
18180000 



0000*0 
0000*0 
0000*0 



isieiooo 

18132000 
18183000 



0000*0 
0000*0 
0000*0 



l8l8*000 
18t85000 
18186000 



18187000 
18168000 

1 61 69000 



0000*0 
0000*0 
OOOOlO 



18190000 
18191000 
18192000 



ooooto 

0000*0 
0000*0 



0000*0 
0000*0 
0000*0 



lei 93411 

rl'M:f#Olil' 



0000*0 
OOOOIO 

QQQQ'Q 



18196000 T 0000*0 



• • 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2G 
28 1: 

28 
29 
» 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

«2 

43 



REAL OLUONEn-/,; 

REAL TEMP* I*T*TQG> J>K»N»F>x; 



INTEGER S*n*l2*I3; 
REilU UNlTNOi 
ARRAY FHC*3#NBC*J; 



18197000 T 
tfl l9900C? T 



OOOQJO 
0O0Q»O 



18199000 T 
18199100 T 
18200000 T 



ooooto 

0000»0 
0000 »0 



$ SET UMIT a NCT SriAREDlSK 

DEFINE OSEOsTEHMIx.CCFJ»PlMlX«> 
$ SET OMiT = SH AR E QISK 



13200/^90 T 
18201000 T 
lB2Qla90 T 



0000*0 
OOOOJO 
OOO QIO 



DEFINE UNLOCKHDR • EXI 
S POP DM I T 
LABEL LL»EXT, CHECK, LWS 



T*; 



18201500 T 
18201510 T 
laZQ Z QO Q T 



0000)0 

ooooto 

000 1 



LABEL UeEIMSHARED,OPENl 
0PENEXCLUSIVE*L6» 

•|HUfCu a §E , LWf ri Q M( ? 



NPUT/0PENOUTPUT*OPENwRlTtLOCK* 
L^^La'EXlT^LWRlTE'FOgND' 



18203000 T 
18204000 T 
lagCaOOO T 



0000 »0 
O0OQ«O 
OOOQIO 



CLOSESHARCO^CLOSE 
CLOSEXCLySlVE»ZER 
SFE>tOCKSYSBnONTW 



INPUT* Cl.CSEOUTPUT*cUaSEWRITEUOCK# 

*UNS¥S»SYS* 

AlT*NOFILE>rOMPLFTF#LEAVrLKd>UNUSFpi 



18206000 T 
18207000 T 
lAananOQ t 



ooooto 

OOOOlO 



S SET OMIT » NDTCDiSKLUQ) 

LABEL QPENPH0TECT*CLQS 
SW ITCH Q «-nP&N§HARFlUOP 



eprqtect; 

FNlNPUT.riPFNnUTPUT^nPENl^RIT£LQr.K> 



182U9000 T 
18210300 T 
IfignoQQ T 



000Q»0 
0000«0 
QQQ0«-0- 



openexclusivc^exi 
closeshareo#close 

CI QSEQtlTPtjTfCl QSE 



T*L6*L7*L8*£XIT* 

INPUT* 

wHlTFLOCKfCLQSEXCLUSTVE 



16212000 T 
18213000 T 



0000*0 
0000*0 
1821^000 T 0000*0 



SET 
SET 



OMIT = 
OMIT = 



NQT(DI^KLUG) 
DiSKLQCi 
*EXIT 



18215000 
18217000 



18218000 T 000*0 



0000*0 

0000*0 

Li 



i POP OMIT 



#UNSYS#SYS 

jl QCKSYS^l EAygl KD.UMiRED.nPEMPfiQTECT«<^|„nsFPRQTECT 



18218001 T 
18219000 T 
18220 000 T 



OOOOJO 
0000*0 
OQ QQ* Q 



X**** ************* ********* 
RFAL SUBROUTINE SEARCH; 



*********************** 



18221000 T 
18222000 r 

lR2?3nQ0 T 



0000*0 
0000*0 

0000*0 



BEGIN 
SET OMIT 

il 



• NOT SHAREDISK 
»SCRAMBL£CA#B)i 



18224000 T 
1822*490 T 
18 225000 T 



0001*0 
0001*0 
0001*0 



DISKWAIT(-N»-60'S); 
LL* fOr X*»0 STEP 3 UNTIL 
IF (NBtX] EQV A,C 



b7 00 

6U2]? X NOT THEN 



18226000 T 
18227000 T 

18227500 T 



0008*0 
0009*3 
0011*0 



IF (NeU + lJ EQV 3 
IF (S*aNB£2J,tFF3)/0 T 
BEGIN DlSKwAiT(*N*60>S 



,L6*42J) • NOT THEN GO TO FOUNq^ 

HtN 



18228000 T 
18228500 T 
18221000 T 



0013*3 

0020*1 
0022 '2 



S SET 



GO TO ll; 

END ELSE 
UMiT » NOT SHAREDI 



SK 



18229500 T 
18230000 T 
18230^90 T 



0024*2 
0025*0 
0025*0 



45 

•6 
47 
«8 
49 

50'* 
51 ■: 
B2 

a 

S4 

55 ; 

56 :F 

55 fc 



6u TO est; 
Found* i*cK«'Netx+23acFi''oi 

J »(K AND WOT lS)i'OIRE 



RfcClDRYT0P*4>«C44'43x2J 
CTORYTOP+191 



19231Q00 T 
18232000 T 
16233000 T 



0025*0 
0Q2SI0 
002912 



EXT* 
END' 



K *- K + DIRECTQRYTDP + 4; 
SEARCH ♦ $i 



18234000 T 
18235000 T 
18236000 T 



0032*0 
0033*3 
0034*1 



0014 »t 
0039*0 






/X'*.#'*/fc*.'* 
•;■■.•: Sualili 

■)::,:Mimmm_,, ..._. _., ,,, 

— DTSKwlTTTr^nio 

$ Set omit ■ not shAreoISk 
*K); 



■■i^mmmm 



18240000 T 
18240090 T 
18240200 T 



49 

50 I 

51 

52 

53< 

54 

55 

5a' 
57 



'^rWWMBi^ 



)035»0 
0035*3 
0035*3 









mmUm 






iiiiiiiiii 

tismMiiiSMSi 






i,ilWB«-f»'»ilHMM'fgSife 

,824 3000 T 



sis 



0036*2 
003618 
Q038t3 



X************************************************* 



# • 



h 



10 

11 



14 
15 



17 
IB 



19 
20 



23 

24 



SUBROUTINE KLMOVLR; 



% CANT BE CALLED FROM qTHEr SUBROUTINES. 



0ISKWAITCN«-60»S); 
$ SET OMl T » NOT SHAReijISK 
ntSKWATTfPN^*aOi»jyi 



NB[n*eHi NBCI + U<-NEXTSLQTi NEXTSL0T«-K; 
DlSKWAlT(N#-30^J); 
% SET QMlT n NQl SHAREDISK . . 



ENOl 

X***************************************** ******** 

SllBRnnTTNF HOLDJ . 



BEGIN 
$ SET OMIT s NOT SHAREDISK 

I F ^»U > 13 Then GO pgNTWAii; 



1 POP OMIT OMIT 

FILEHOLD(A*B, TOG* temped; 
IF P THEN a; OR 1 IS LEFT 



ON TOP OF Stack in filEhqld 



BEGIN TENPIS3; 
ELSE 
IF.PIMIX^O THEN 



A:s-i; GO tXiTi END % DS-ED IN fJLEhOUD 



IF REPLY tPlMIXl^V IF THEN 
'■■BEQ'IN"' 
r r l E HQWD eA» R»T0 fi/T£M F ,2H 



DCNTWAITJ 



TEMPJ' 
GO TQ 



1; 



% IN 
JJ 



USE 



162^4000 T 



0039«0 
QQ39»0 



1824S500 



0040M 

OQttna 



18 247 son T 0041*3 



18248000 T 
18248500 T 



004312 
004711 



1 8248 990 T 004 8 ' 3 



18250000 t 
16251000 T 



0049«3 
004910 



le as aooQ t onigin 



18253000 T 
182534 90 T 
18254000 T 



0049 JO 
0049»0 
QQ49 « Q 



18294010 

18255000 
16 2551 Q 



18255200 
18255300 
1 8 256 .0 00 



005012 
0050(2 
0053 1 3 



18258000 
18259000 



0052 « 3 
0055 » 2 
0055*2 



0056 » 3 
0058 »1 

oosata 



18260500 
18261000 
18 ^62000 



0061»0 
006l»0 
QQ61> 3 



25 
26 
27 
28 
29 



ENOi 

IF SeARCH»0 THEN 

REqTN FILEkULQfA,B.TQr.^TEMP*Qn 



18263000 T 
18264000 T 
18 26 "^000 T 



006211 
0062 »1 
00631 a 



30 

31" 

32 
33 



NOFILE* 

end; 
h ea dfr ; 



lEMpiaU; A«8-i; GO EXIT; 



18266000 T OO66JI 
18269000 T 0068»2 
ia?7Q00n T 0068*2 



end; % OF HOLD 

X ************************************************* 
S SET OMIT » NQT(PACKETS3 



18271000 T 
18272000 T 
lRar2l99 T 



0070«0 
007011 

07 Qf l 



34 
35 



36 
37 ~ 
38 
39 



$ SET OMiT » SHAREDISK 

lockdikectury; 

i PGP OMIT 



18272990 T 
18273000 T 
18 2730 1 T 



0070»1 
0070«1 
0081 i^ 



IF 0PTn»9 then 
BEGIN 

OlSKHAlT("(N'*SpACE(30)),^30,(K»»0LOONE«CFr3)); 



18274000 T 008113 
l«27500O T 008212 
16276000 T 0083*0 



40 
41 
42 



FHJs[M[F»s0L00NE.tCF]]]&30C8>38ll0 3J 

AI»NAH3(A); 

FHUi « = C*P(DUPn&MCN + 4]t3»3«lJi 



18276500 T 
18277000 T 
18277500 T 



0087«3 
009110 
009210 



43 



45 

46 

47 
•8 

49 

50 

51 

52 

53 

54 

55 t 

56',/ 



GO TO closexclusive; 

ENO; 
N8t«Ertcilf»SPAC£(60)n&6OC6«38»lO3; 



18278000 T 
18279000 T 
18280000 T 



009SI3 
0098*0 
009810 



IF search=o then 

BEGIN 

AisOJ 



18281000 T 
18282000 T 
1628 3 Q0P T 



0102*1 
Ol03»2 
104»0 






18284000 T 
18285000 T 
16aft50»9 T 



0l04t3 
0105*1 
0105*1 



$ SET UMIT « SHAREDISK 

FHl=[McFl«SPACE(30)]]i30[8j38«10]; 

s"pop 'omit;'";; ' ; ' .7..^.....'^.'.T/... !^I. 



18285999 T 

18286000 T 

laaa^oQi T 



0105«1 
0105*1 
Q1P9I2 



fiiiiiiiiiiPiipiiii^^ 



'^^^^/^/iS& 



■.iili*iWI|l 



010912 
0111*0 
0112*1 



t SET OMIT ■ SHAREDISK 



18289999 T 0127*0 



• t 



h 



IF 
POP OMIT 



QPTN LS5 5 OK 0PTN=17 OR OPTNs/ THEN 



SET OMIT a NOT SHAREDISK 
CHECKl 



lH29Qn0l, 



0127»0 
0129<3 



18290099 T 
18291000 T 
1fl?920Q fi T 



012913 
012913 
OllOM 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 



IF FHC^l.LAAM] ANU OPTN ISS 5 THEN 
BEGIN X TRYING TO OPEN I^HIUE FILE IS 
i SET QMT T « NOT ^hare qi sk ^ 



BEING BLANKED 



18292100 T Ol30»l 
18292200 T Oi32ll 

18292300 T Ol32n 



A SET QMIT »* 



GO NGf He; 
end; 

iMAREQlSK 



18292600 T 
18292700 T 
182929 99 T 



013213 
0133M 
Qt33M 



POP 
SFT 



OMIT 



IF NOT OPTN OR OPTNs?- THEN 
NOT SrtAHFni.SK . 



18293000 T 

18293001 T 
6?9309V T 



-1 



0133 M 
0l34»3 
013013 



IF FHt43,C12U3XO THEN 
BEGIN % IT IS A SYSTEM FILE 
- TEMPtap; % SYaTFM FTLF 



18293200 T 
18294000 T 
18295000 T 



013413 
013613 
1 371 



J SET OMIT s NOT 

end; 



SHAREDISK 

GO TO exit; 



18295490 T 
18296000 T 
18 297009 T 



0l38«0 
Ol38«0 
01 38 »2- 



19 
20 
21 



see« 



IF (FHC<t3.C2»23 
BFGIN 



AND (NOT Tog or 2))^0 THEN 



18298000 T 0l38»2 
18299000 T 0l38»2 
1 830 000 T 14111 



22 
23 
24 

25 

Mi,; 
27 ij 
28 
29 
30 



hold; 
GO check; 



end; 



18301000 T Ol4l»3 
18302000 T 014310 
18303000 T 0l43»? 



end; 

GO TO QtOPTNj; 
QPEN S H AR EPI 



18305000 T 
18306000 T 
18307000 T 



0l43)2 
0143(2 
Ol56»n 



IF FHC9].tb«4]sO 
IF FHC9],[l«4]X0 

e£ ( ? i N 



THEN 

OR FHt^^ •t9!20]»0 Then 



18308000 T 
18309000 T 
1831 00 T 



0l56«0 
0i57>2 
01<?1»1 



31 

32 li 
33 



34 
35 
36 

37' 

38 

39 

40 

41 

42 

43 



S SET OMiT a NqTcSHAREOISK ) 
S SET OMIT • SHAREDISK 
FHC93,t9t53;«P(DUP).[9»5J*i; 



$ POP OMiT 



FHC9],Cl«l]«si; 
GO TO LWRITe; 



18 3 10 99* 
i83l4Q9^ 
Iftl l^lOO 



18314200 
18314201 
16115000 



0l6|»3 
016113 
0l6i»3 



0i65«l 
0i67«3 
0l67>3 



end; 

hold; 

go to open3hareo; 



openinputj 
$ set omit = notcsharedlsk) 

$ SET OMiT » SHAREDISK 



18116000 T 0l68>l 
18317000 T 0168*1 
18316000 T 0169 10 



18319000 

18319999 
18321099 



0l69»2 
016912 
0l69i2 



»t;*^1VtffMiliil'f0.y;P■)■,il6^fii««l:; 



18321100 T 016912 
18821101 T 017310 
1832 200 T 017310 



46 

47 
18 



QPENOUTPUTI 

IF FH[9],[5«24 3a0 TH£N 
REGlN 






18323000 T 
18324000 T 
18325000 T 



017312 
0l73»2 
0l75»0 



49 

50.,. 

51 I 

52 

S3 

S4 

55 

56,:, 

57 i 



^•tiiii.iiii#:' 



017512 



$ POP OMIT 



end; 



GO to lwrite; 






fil'ttg: 



IF FHt9],ti«8]aO Then 



18327101 T 
18328000 T 
18 329000 T 



0178»0 
0l78»0 
Q l78t2 



16332 QQQ T 






18333000 T 0l80«2 



# • 



>r 



17 
IS 



19 
20 



22 



24 

26;'; 



28 
29 
30 

31^ 



34 
35 
36 

37" 



39 



«2 



♦7 



♦9 

50?, 
B1 ', 
52 



55 j 

56 ,S 



BEGIN 
$ SET UMir g NQT(SHAHEDISK) 



S SET OMIT 
S POP QMtT 



SHAREOISK 

FH C 9 3 . C 9 1 S 3 { *P ( DUP ) . 1 9« 5 3 +i; 



end; 
HOip; 



GO TO i-write; 



GU to openwhitelock; 

OPENEXCLUSIVEI 
IF FHt93«[5l203«0 THE^ 



IF FHC«3,[l6S203sO THEN 

BEGIN 

CQMPLfTEI FHC43;»(P(DUP,L0[:i)U5YSN0c4;^6»23&ir2 U7l l3&A[i;2:i]> 

GO TO IWRiTe; _.^_— _ vy 6 iJ 

end; 
hold; 



GO TO openexclusive; 

CPENPROTECTt 
SET OMIT e NOT ShAREqISK 



SET OMjT » ShAREOISK 

GO TO OPENEXCUOSIVe; 
POP OMIT 

CLOSESHAREDJ 
SET OMIT s NOT(SHAREDISK) 
SET UMlT » ShAREDISK 



IF CII«FHC93,C9l53-l)sO 

FHc93am3»*o; 

FHC93,t9>5J»«IJ 



THEN 



$ POP OMiT 

GO To CLOSEi 
CLQSEINPUTJ 



SET 
SET 



NQTCSHAREOISK) 
SHAREOISK 



OMIT 
OMIT 

FHC»3,CX6t53tsp<DUP).Ci6t53«i; 



$ POP OMIT 

FH[4],[6»1J»=0; 

GO TO Lw; 



cuoseoutputj 

$ SET OMIT s NOT(ShAREDlSK) 
S SET QMTT 8 SHAREOISK 



FH[93.[5«n«-0; 
$ POP OMIT 

GO TO close; 



FHl93,[«:5]»«PcDUP).[9Jb3-i; 
$ POP OMIT 

go Toj,w; 



:;V.,;i':ii:::;:3iiiiiiiitiiii^^'?t' 

Closeprotecti 

$ SET OMiT » NOT ShAREDISK 
$ SET OMTT « SHAREOISK 



m 
m 



OMIT 



SYSl 



ilWiiilKiili 



18334000 
l&334g99 



0182*0 
0i8g«? 



18336099 
IB 1361 00 



018212 
018212 
Ql66t0 



18337000 
18338000 
1B339Q00 



16340000 
18341000 
lR342nno 



0l86>0 
0l86»2 
Ol86»? 



018810 
018812 
0l«fl»3 



18343000 
18344000 
18345000 



18346000 
18347000 
18348000 



0i90t0 
0i92«0 
0l92l? 



019710 
019712 
0l97»? 



18 349000 
18349100 
t 834 9 l 49 



0l99»0 
0l99»2 

1 99 « 2 



18349799 
18349800 
18349801 



019912 
019912 
020010 



18350000 
18350999 
18357099 



l&35?l00 
1835/200 
lft357'»00 



0200«0 
0200»0 
020010 



18357301 
18358000 

18359000 



020«i0 
02021 a 
0205* i? 



18359999 
16361099 
18361100 



0208>0 
0208*0 
0208*2 



020812 
0208*2 
0208*g 



18361101 
18361200 
18362000 



18363000 
18363999 
lA36Sn90 



0212*0 
0^12*0 
0214*? 



18365100 
18365101 
]83ft600n. 



0215*0 
0215*0 
021510 



18367000 
18367999 
18169099 



0215*0 
0217*2 
0?17*2 



18369100 
18 369101 
18370000 



0218*0 
0218»0 
021610 



T 

T 

X. 



18371000 
16372000 
16373000 



0218*0 
0221*2 
02ei»2 



18374000 
18374001 
]ia374!j99 



0222*0 
0222*0 
0224 1 g 



18374600 
U374601 
lft374Q99 



022510 
0225*0 

0225 »a 



0225*0 
022512 
Qg2g*9 



18388000 T 0225*2 



T< 



10 



12 



18 
19 



2S 



27 

28 



30 



33 
34 
35 ( 
36 
37 
38 i 



41 I 

42 



44 1 

4S 



47 ' 
48 



50 \ 



52 



56 1 

57 



• • 



>r 



IF FHC9J.C l«83 = 
REGI^ 



THEN 



$ SET OMIT » NOTCSHAREOISK) 
$ SET QMiT • ShAREOISK 
FHCft3«tl2lUt»i; 



18389000 
lfl39QnQQ 



18390999 
18392099 
18392100 



0225«2 
Q227»0 



0227>2 
022712 

082y»2 



$ POP OMIT 



£ML 



GO TO lwrite; 



18 392101 T 
18393000 T 
18394000 T 



023010 
0230 »0 
02 39» 2 



hold; 

GO TO SYS; 
UN'SY S; 



16395000 T 
18396000 T 
183 970 T 



0230»2 
023210 



10 

11 

12 



$ SET OMIT = NQT(ShAREDlSK) 
$ SET UMIT ~ ShAREDISK 

f Ht4].Cl2«n»=0; 



18397999 T 
18399099 T 
16399100 T 



0232»2 
0232«2 
02 32 > 2 



1* 

IS 
16 
17 
18 






:4t; 



$ SET 



OPTN«=<i; 

GO See; 

OMIT = IMQTCSHAREDISK) 



I8399t0l 
10400000 
16401000 



023510 
023510 
023S<g 



18<»02000 
18403000 
18403999 



0235»2 
0236»1 
023^«3 



19 
20 
21 



$ SET OMiT * NOTCDISKLOG) 

GETAROWr 
IF FHCl2t»0PTN,IFF33»O THEN 



18411000 T 
16421000 T 
164 2200Q T 



023:6>3 
0236 1 3 
0236*3 



22 
23 

24 
25 

26 'i, 

2e 

29 
» 



BEGIN 
$ SET OMIT = NOT(DISKLOG) 
IF C FHUg ]»° GETUS ER D lS K ( FH L8 u 3[l »46« 23? );=0 ^hE N 



184 23000 T 
18424000 T 
184 25 1 00 T 



0238»3 
023911 
02 3911 



$ SET OMIT ■ 



BEGIN 

shareoisk 

UNLQCKDiRECTCHYi 



I8425i50 T 024310 
18425l75 T 0243*2 
lfl425aQ0 T 0243tg 



t Set OMjT a NOT ShAREDlSK 

Il|sGETUSERDISK(-FH[8]); 
S SET OMiT g ShAREQISK 



18425225 T 0247»0 
18425300 T 024710 
ia435-=>90 T 0?49>0 



31 
32 
33 



$ POP OMiT 



tOCKDlRECTORYi 
IF SEARCH80 THEN 



16425400 T 024910 
1642S410 T 0235«2 
1 642 5500 T 255 *2 



34 

35 

36 

37" 

38 

39 



dEGiN F0R6ETUSER0lSKcIl#FHt83); 
TEMPtsOi A«<B-i; 
GO TO EXITJ 



18425600 T 
16425700 T 
la4?5800 T 



0257*2 
025911 

0261*0 



..f>Htitt*.^:i..ii;. 



18425900 T 0263*0 
10^26000 T 026310 
10426^00 f 2, 6^*0 



40 
41 
(2 



end; 
end; 
for i2>gfh[9], [43:5349 step -1 until 10 do 



18426200 T 
18427000 T 
16426000 T 



0265*1 
0265*1 
0265*1 



43 
44 

45 



GO 



MCOPTN 

TO LW; 



INX I23«»FH[I23; 



10429000 T 0270*1 
18430000 T 0273*0 
1B4S1QQQ T 0273<? 



*6 
47 

48 



IF B.C3*i3 Then 

IF OPTN GTR 511 

afGiN 



FH[43 .[ll»l3 
THEN 



18431050 T 0273*2 
18431100 T 0277«1 
ia ^3l , 2PQ T Q.27fl«0 



49 

50 

51 :| 

52 

53 

54 

56 

56 ■;; 






(FHC 



iiiiii 



m 
m 



iliiii«illil:*t»iiv: ::im ^mt^n i , t3o m 2 3 ) 

~ ■ ^■■■■iiaiiiitjjL 









XCIF <I2»9l3.[l«l43)e0 THEN 30 ELSE 12)3 
01 V (I3l«MtOPTN3).C42l6])xl3,C30ll23 
+({((Ii DiV 30) MOD I3;[42»63?x30 



DIV 30) 



18431600 T 
18431700 T 
18431800 T 



0266*2 
0292*0 
0294*2 



0297*1 

Mmm 

?04«3 



«iliiil«i 



ff^^ 






13,11* 143 )*l) 



rQR'iffroiN*4T'iNr'i'6) 






FHC4] J= 



8432150 T 0306*3 



FHC7] l*MtOPTN+7]; 



rf 

2 
3 



10 
11 
12 
13 
14 
IS 
16 
17 
18 



■9 
20 
21 



22 
23 
24 
25 



27 



28 
29 
30 

31 ~ 

32 

33 



34 
35 



36 
37' 



38 

39 
40 
41 
«2 
43' 



45 
(6 
47 
IS 



19 ; 

sot 



51 ; 

52 
53 
S4 



551,' 
561' 



fcNp; 



L7tX 



GO TO tw; 

IF CFHCO3 kUD 9U0Q777tT777m00)i'0 OR 



18^32200 
18<t3230Q 



0310«2 
313»0 



BEGIN 



FH[93,Li:26]X0 THEN 

J 

hold; 



18432S00 
16032600 



031310 
0313*2 
3t3 <2 



ao TO 1.7; 



18433000 
18434000 
164 3^0 00 



03lb»0 
0316«3 
Q317M 



L6I» 



EHDi 



IF FHC4J.C4i»2] NEQ THEN % T£ST FILE SENSITIVE 
BEGIN 

STREAM(A>B^TtaT«sSPACEClO)-»2); 



18436000 
18<I37000 
18436000 



18438100 
184 38110 
18438120 



031610 

0320»0 
032010 



0320*0 

032 1« 2 
0322«0 



0Sl»10Ln"CC REMOVE " 
OSl*LIT**/**; SIfLQC 



b; 



DSJ=6LlT";END,«-"i 
END/ 
FH[4] .L43t2]»8i; 



sii'LOC a; sit»si*u osi»7Chr; 
sn»sH'i; ds»«7chr; 



16438130 
18418140 
t »< 3 615Q 



032513 
0323»3 
032ato 



inoependentRunner(p(,#cqnthol.card)#t&cif unItno NEQ 

THEN UNITND ELSe 31 ) C2« 42I63& I [8* 47» 1] , 192)* 
M[T-43.£9l63;>Qf 



18438155 
18438160 
18438170 



SET OMIT = NOT(ShAREDlSK) 

GO complete; 

EMi 



16436180 
I8438i90 
1 84 3S2 Q 



O329I1 
033011 
3 3 t g 



0333»0 
0334*0 
Oa3fl*l 



% SET UMiT « Packets 
if libmsg then 

* POP QMiT 



18438202 
18438210 
18436220 



341*2 
0341*2 
34 2*0 



LBmESSCABsC A ),ABsCB)*7,0,0,uMTN0* LIBMSG); 
S SET UMiT s .MOTCDi^KLOG) 
PBCQnNT»sPBCauNT-(((CA,C6U23 EOV "PBD ")8NQT 0) 



1843^000 

18439050 
Ifl439i0n 



L8i 



((A,Cdt423 EQV 

remover; 

IF PCtOrTN NEO 6)«DUP) 



-PUO 



m. 



«)aNOT 0)) AND 8,tCF3»l); 



18439125 
18440000 

16442 , 000 



0342*0 

0342*0 
03A 2 I3 



342 1 3 

0346*2 
3 46* ? 



THEN 



FOR I ♦ 1 STEP I UNTIL FH[93 DO* 

IF FHt9+I]X0 THEN FORGElUSERDI SKC FH[ 1+9 3 *FHL 83 ) ; » 

IF p Then go lw else gq exit; 



18443000 
16444000 
18»4<fS00 



0349*1 
03S4»1 
Q355*Q 



lwrite* 

IF NOT S,t2*l3 THEN 
STREAM(A»C0ATE3*8«-CFH[3J3»C»0); 



18445000 
184/116000 
18447Q00 



0356*0 
0360*2 
367*0 



BEGIN si«-a;oi«-loc c;DS*e Qct;si*lqc c;si«.si+5; 

oi«-b;di«-di+2;dS4.3 chr; 
end; 



18453500 
U4S4000 
16455000 



0368*0 
0368*0 
0369*0 



LW« 



18456000 
18457000 
18456000 



037HO 
0372*1 
0373*0 



IF FHU3«C3*13 flR TOG THEN FILEHOLO(A*B*TOG*TEMP#0); 
S SET OMlT * Htil SHAREOISK 



LKiSI D1SKWAIT(F*-30*K); 
EX* FHC93*=»(*PCOUP)) AND 

EXiTtX 



18459000 
18460000 
18460fl90 



31; 



liiiiiiiiiiiMiila 



18461000 
18462000 
18463000 



037311 
0371*1 
03^7*8 



$ POP OMiT 

leavelkdj 
Unused* 



18465000 
18465990 



0377*2 
0379*0 
38 1 *0 



0361 to 
0365*0 

036510 



18466010 
18466100 
18466101 



0368*2 
0366*2 
0388*2 



18467000 
U 4 660 00 



0389*0 
0369*3 
0>90tg 



SlZE» 0392 WORDS 



1^ 



1 
2 
3 

4 
5 

6 
7 
8 
9 
10 



14 ( 

15 

16 

17 ( 

18 

19 

20 { 

21 

22 

23 ( 

24 

26 

26 I 



27 
28 



29 ( 

30 

31 

32 ( 

33 

34 

36 ( 

36 

37 

38 ( 

39 

40 

41 4 

42 

43 



45 
4« 

47 ( 
48 
49 
SO { 
51 
52 
63 ( 
54 
SS 
,^S6< 
57 



• • 



>1 



Procedure pickthelgck; forward; 



Procedure EvENTANDiNtERRUPr; forward; 

PROCEDURE C0MMUNICAT£U 



STA RT QF REL 



18468100 

s egm e nt; pisk 



T 000010 
JlP QRESS , 



00/1 <t6 



START OF REL 



18468200 

segment; oisk 
iflSoonoo 



T OOOOtO 
A0O«E8S ■ 
J 0000*0 



00448 



Begin real R4a-^#R55-5,R6e-6,R7=' 



7,r8»-8; 



START Of REU 



array A4s»4C*J*AS**5C*l#A6a-6[*]; 
ARRAY A7»*Ft*3; 

NAME N4«-»a*N5»*5jN6»-6; 



segment; disk 

18500100 
1B50020Q 



LABEL C0#Cl»C2»C3»C4^C5»C6'C7,C8*C9>Cl0»Cii,Ci2*Ci3,Cia#Ci5#Ci6# 

Cl7,Cl8*Cl9,q20,C2WC22,C23,C24fC25,C26; 
LABEL ,C?7,yg26fC2S^C30>C3UC3^; 



LABEL C33#C34*C35#C36*C37*C3e#C39>C45*C47»C48»C49f 

C30A«C30B«C49A# 
INIT^ A£0» ACi* ACa# AC3* ACfl^ ACS# CHANGEN AME t 



ADDRESS « 
T OOOOtO 

J 0000 »n 



00448 



18500300 
I8500i(00 

iaioo«^Qo 



000010 
OOOOtO 
0000*0 



18500600 
I8SOO7OO 

laaooBOO 



18500900 
16501000 
18501100 



oooojo 
0000*0 

0000*0 



0000*0 
0000*0 
OOQOIO 



20 
21 



22 
23 



24 

2G 
26 
27 



28 
29 



>0 
31 



32 
33 



38 
39 



40 
41 
42 



SET PMIT « NQT SHAREDISK 

SWITCH AC»*AC0»ACl'AC2»ACi'AC4'AC5; 

SWITCH C'»C0»IMTflMT>IMT»C4»lNIT^INlT>lNlT>lNlT»INlT#IMT* 



INIT#INITMNIT»INIT,C15*C16*INIT#INITMMT'INIT* 
ZNniINlT,|NlT#INlT,INIT#lNlT,lNlT*INlT,lNiT,C30# 
lNrT*C3g*C33#TMT>lMT^ tN tT^ tN tT» tN jTmN tTmN tT» 



INITMNIT»1MT* I MT , C45MNIT MNIT* INIT* C49; 

REAL rcw=+o*i*j*t; 

ARRAY A[.*]/FlB»Ar*Jf FPR[, f3*Hr*3; „__ 



GO TO CCPRTCPl«lX*9n; 

initi 60 TO initiate; 

A CORPL INVALID fcnj 



COJ TERMINATE(PlMiX); T eRI^^ IN AL^ESS AGE(26 ) ; 
% GENERALIZED ZIP 
JL4J TF f i«.AA.ra>iQ3}XQ Thfn bfgtn 



SET QMIT B PACKETS 

MC(T»»GETSPACE(I+4«0»0)+4)'*ll] ,C9«63t«0; 
t POP QMtT 



SET OMIT = NQT(PACKETS) 

IF NOT A4,t2»l3 THEN MAkEPRESenT ( nFlAGC NOT 3 I NX [RCW])); 

IF (J»USERC0DEtPlh^IX3)»N0TC*0) THEN j»o; 

STREAMCcoJ'AA^ilfcliCaaie]* I^QfrOifT); 



BEGIN Sn«|4; i»II«SI"U 

Lt sn«si»i; IF §c«* 

IF SCSP14 



THEN 
DSlafiLlT^CC USER*"; bilsLOC 

DS»» LIT";" ; siJ»A4; 



Then go to l; otasi; oi*«Q' 

DSJsLiT" " ELSE DS»*2LIT" 



c; siiasi+i; D3j»7 chr; 






16501200 T 
18501700 T 
18501800 j_ 



0000*0 
0000*0 
0000*0 



18S01900 
18502000 
165 21 00 



18502200 
18502300 
18502400 



0000*0 
0000*0 
000 0* 



000010 
0000*0 
0000*0 



18902600 
16502700 
IftSlOoOO 



T 

T 

4- 



0000*0 
0028*1 

ooaan 



lesioiog 

18520000 
18820100 



laszogoo t 

18120300 t 

ifisaoaOQ t 



0028*3 
0030*1 
0030*1 



18520500 
18120800 

18520900 



00 32* 3 
00 32* 3 
0Q3fl*g 



0038*2 
0038*2 

004210 



18521000 
18521100 
18521200 



18521300 

185 2U00 
18521500 



0045*1 
004810 
0046*2 



0050*0 
0052*0 
0054*0 



52 
B3 



56 



'iBMMmlmXSk 



Dlt»Q;SilaLOC 
END stream; 
J*IF USeRcOdE[P1WiX]sMcP 



i;SllsSl+7;0bl*CHR; 

Then 3i else 26; 



:t ■■;tiiv;:iip^iilKPi^^ia:iiiii 



i''M%immsm 



$ SET OMiT « NOT (PACKETS) 
END ELSE 



Ijc1'»43»5]*l92); 



BEGIN FlB*N4tN0T 




ii^W^fipip 



'3";'ri3iin-T)'xtTf^LNGi 






18522100 
18522200 
18522300 



WKWmW' 



0057*0 
005810 
0058*1 



Ml 



l8S23l00 
16523200 
18523600 



iO«2lO 

mmm 



06310 
0065*1 
0045*1 



18523800 



m 



liiiif? 
iii 



ijtrttffr 



>r 



15 
16 



IS 
19 



22 



25 



2' 
28 



29 



31 
32 



34 

3S 

36 

37" 

38 

39 



42 
♦3" 



•7 
18 

49 
50 
51 
52 



T<-FPBCI + 3] 
IF T=lQ OR 



T»12 OR 



7si3 OK T=26 THEN 



BEGIN 



If F 10 C 5 3. 1 42 11 3 
■H*Fl&tl4J; 



THEN GO TO CHANGENAME; 



$ SET OMIT « 
i POP UMT 



OATACOM AND RjE 

h[6] :=o; 



Ht53l*USERC00lEPlMlX); 
S SET OMIT * NOTcDATaCOM AND RJE ) 

IF HC43 THEN 



CHANGENAME* 



BEGIN FlLtCL0SEC\4,C33:i3]); 

IF (T«-DlRECTCRYSEARCHCFPBCn#FPBCI + l]M)) 

L SS 6^ 



THEN GO TO iNtTlATEl 
H*-tMCT3U36C8r36M03; 
t SFT OMIT » NnTfSHAHFaiSKY 



H[5]»«Ut>ERcODECPlMlX]; 
$ SET UMIT s NOTCPACKETS) 

, „ , ENT E RCONTRCLPEC KC H ?^ 



pCDlRECT0RYSEAReH(*FP8M3*rPBn*n*8),DEL); 

J«.Ht23; X SAVEb iASTCDNUM 

FnftfirTSPACf fH?t , . 



END ELSE 

BEGIN FlLECl.0S£.((Na,C33:i53)&6[l8«33J153); 
EMERCGNTROLDECKCH); 



end; 

iF RUNUMBER 
oEgIN 



J«-HC23; X SAVED EaSTCDNUM 

FOR T«-10 STEP 1 UNTIL 29 DQ HtT3*0J 

FlLECL0SLCN4.C33n53)J ^ 



lEQ THEN 



STREAM C A* t JAR t P 1 Ml X* q3 3 # 8*H*USERC0OE E P IM I X 3 * 

F«-HXKCP AND H>0* P1MIX# a# T*T*SPACE(lO))i 
JEGtN;Si*'A; DS*LIT'^#"; _ ■ __^ 



2(Sl«-Sl + li [)^*-7 CHR; DS^-LIT"/"); Dl«-DI"i; 

F(si<-LOc; b; si«>si + i; qi«-di + i; ds*-? chr); 

Sl«-LOC PIMIXJ DS»LIT'*-"J A«-Oi; 

DS«-2 



DECi DS*H LIT" DIPPED DECK # 

si-LOc ji us*'^ dec; ds^lit"*."; 

DI»DI-5j dS«.3 fill; DI»a; DS*FlLi; 

ENo; 

sPnuT(T); 

end; 



end; 
end; 
GO TO initiate; 

X display (COBOL) 

C15J DISPlAY(A4 INX 

X COBOL ACCEPT 

ITi^I DjSPlAY(A4 JNX 



d; uo TO iMitiate; 



18029000 



2); REPLY CP IM 1X3 »*-VWY&VAXt3eM2« 63 i 
C0MPLEXSLEEPC<TERMIX,|:33I15J»|»IMIX OR REPWYCPl MIX 3>0 ) )# 



ACCIDENTAL ENTRT AT 



18524100 
165?4?0Q 



oormz 



18524300 
le5?4400 
16 1 2 4 5 



18524600 
18524700 
IB':24aQQ 



0080 » 1 
008013 
8 21 ? 



18524900 
18525000 



0083(2 
0083«2 
0084»3 



00841 3 
0086 It 
QQa 6>l 



18525600 
18525700 
18525750 



0086»3 
0088»2 
0090?2 



18 S 258 00 
18525900 
18526000 



0091 »1 
099213 

00 9 sin 



18S26300 

18526400 
18526700 



18126800 
185270 00 
IflSgTiOO 



0095»0 
0e96«2 
0096 » 2 



009712 
0l00»l 
QlQlH 



18527200 
18527300 

18527400 



18527S00 
18127600 

1 8 M770Q 



0102»1 
0l02«l 

0I04>2 



010512 
01061 2 
OllM? 



18527800 
18527900 
1852 8000 



Oll2«3 
Oll2'3 
0113»2 



18528100 
18528200 
lfi528300 



0ll4«0 
011611 
012211 



18528400 
18528500 
18528600 



T 

T 

T 



18528700 
18528800 
18528900 



0123«0 
012413 
0126»2 



012712 
0l29»3 
0l30t3 



18529000 
18529100 

181 29200 



18529300 
18529400 
18529509 



0l3l«3 
013210 
1 32» 3 



Ol32«3 
013213 
0132>3 



18530000 
I8S3O1OO 
1 8^40000 



18540i00 
18540200 



013311 
013311 
. . 13 511 



013511 
013911 



li 



10 

11 ( 
12 

13 

14 ( 

15 

16 

17 ( 

18 

19 

20 I 

21 

22 



23 \ 

24 

25 

26 < 

27 

28 

29 ( 

30 

31 

32 ^ 

33 

34 

35 ( 

36 

37 

38 I 



40 

4, ( 

43 

43 



45 
4« 



47' 

48 

49 

sol 



53 
S4 

55 ;< 

56 3 

57 S 



IF TERMlX.[3Jslb3»PlMiX THEN GO To INITIATE; 

IF NOT wHYSLEEP{V>HY<ivAxC36|42j6]) THEN GO TO Cl6i 

T*-REPLYCPlMiX3,li8M53; REPLY[PiMiX3*-0; 






SUSI + i; 2(DS4.40 CHR); 



18540300 T 0146>2 



1854 04 00 
18540500 






014813 

oinio 

015410 
015610 



18540900 T 0l57'0 



531 



55 

5.1 



• • 



end; 

FORGETSPACEd- 



d; go to initiate; 



% directorysearch anu un-fill 
C3o:j comment searches OiSK 

tQ3 IS USEfi.'TYPF 



iA IL > 

LE ID FOR NURHAL STATE PROGRAMS 
ECTORY AND RETURNS DATA IN ARRAy. 

uAT.anirCcruT c-i A i^ 



FI 

DIRE,., ,_ 

OK NOT^PRESENT FLAG 



l8b«l00C T 
lfl54UQQ T 



18550000 T 
10550100 T 



0158» 
JUJiU 



01601 

01601 
016QI 



tl] 15 MULTl-FlLt ID 

CaJ IS FILE ID 

IF NUT PRESENT^ [33 => C53 ARE -1 



18550300 T 016010 
18550400 T 016010 
lfl55Q5Q0 T Q160«0 



IF INVAUID USER* 
IF PBIMARY* SECON 
£33 IS RECORD LEN 



C33 a> [53 ARE 

DARY, OR TERTIARY USER» 

Mil 



18550600 T 0l60t0 
16550700 T 016010 
18550flOQ T 0l6Q»0 



10 

11 

t2 
13 
14 
IS 
16 
17 
18 
19" 



in} lij BLUCK lENG 
tSl IS tND OF FIl, 
Ui I^ QPEN COUNT 



£ POINTER 



18550900 T 0l60»0 
18551000 T 016010 
Ifl SSUOO T Ol6QtQ 



IF ARRAY SIZE IS 

£73 « FILETYPE 
C83 a HEAQER[3 



GREATER THAN 91 

CFHQM HEADER) 
3 fCREATION/ACCESS DATE»SAVE FACTOR ? 



18551200 T 016010 
18551300 T 016010 
lftS«>l4QQ T Q16 Q?Q 



[9J = HEADER CI 
IF ARRAY SUE IS 

[103« SYSTEM N 



J ( LOGGING DATES) 
GREATER THAN iQt 
UMBER (ShAREDISK) 



18551500 T 0l60»0 

l855l600 T 0160«0 
18551700 T 0160» 



20 
21 
22 

23 

24 

25| 

28 

27 

28 

29 

» 

31 1 

32 ■ : 

u 

34 

35 
36 

37" 

38 

39 

40 

41 

«2 

♦3~ 

Uf 

♦S i 

«6 

»7 

18 

Wf 

50 ; : 

61 J 

» 

56 



not«'PREsekt flag is -1 
invalid user flag is 
primary user flag is 7 



CLMUNPUT* AND OUTPUT BITS) 



18551800 T 016010 
18551900 T 0160«0 
18552000 T 016010 



SECONDARY USER FLAG 1$ 3 (INPUT AND OUTPUT BITS) 
TtRTlAHY USeH flag IS 2 (INPUT BIT ONLY) 



18552100 T OI60JO 
18552200 T 0l60»0 

1P552300 T Ql60»n 



IF A4.[8»l03<7 THEN dcGiN T eiRM INATE(F !« IX ) ; X 

TERMINALME$5AGEC7); ENon 
IF NOT A4.C2I13 ThEN MAKEPHESENT f NFLAG (NOT 3 T^X cRCW3));X 



18552400 T 0l60»0 
18552500 T 0l62«3 
lfl552A0Q T Ol63t9 



P([ 
FIB 



MiAa inx nqt u3*dup*dup,lud»xch,ccx,,j,std,idr);x 

* N5tN0T 2); FPB *• PRT [P 1MIX# 33 ; 

IF Ff9E . ^^M2«l3 THEN , FI , (3 , { 4J ,tl3M , l , 3* 



18552700 T 0l67»0 

18552800 T Oi70»3 
18552900 T 0l74«0 



ELSE criat4J«tl3»tn*UxETRUNGi 
A4[l3 * rPfiCiJi A4Ea3 * FPBCI + Ul 
IF P(FPBCl'»3 3*U3t5 3^OUP»0UP)«lo 



XRANDOM 



DR (P(XCH) DR n=13 OR P(XcH)*26 THEN XSeR I AL^ UPdATE'PROTEcT 
IF (T ♦ DIRECtORYSEARCH(A4[13,A^[23,5;)xO tHEn 
Begin if CAA[03 ♦ StcURlTYchEcKCA4[l3^A4[23*USERcODECPlMlX3,T))XO 



18153000 T 
l8S53iO0 T 
165532 T 



01751 
0l79t 

0183 < 



18553300 T 0l85» 
18553400 T 0l88« 
18553500 T 0i9H 



AND MCT+«],[l2»4)aO 

THEN BEGIN A4C|J * M tT3 ,1 l» IftJf* 

A4£43 » MET3,[1S»153J A4C5-3 «• M[T'»73?» 



$ SET OMIT s SHAREDISK 

A4[63 J*M[T+43 .tl6J53+M[T+93 ,[9153; 
$ POP OMIT 



18553600 T 0i95»0 
18553700 T 0i97«2 
16553800 T OaOlU 



$ SET QMiT « NOTCSHAREOISK) ' ^"^ 

l¥ A4.i8llOj GTf» 9 THEN 
SEaiN A4C7 3t*MtT»43,C36»63l A4ce3 l«M[T»33i 



18553900 T 
18554000 T 
18554100 T 



02061 
0206« 
021H 



1855«200 T 
16S5<I600 T 
18554700 T 



0211« 
02111 
02U» 



A4[93tsMtT+lJ; 



End; 



C«#jJI4i i lvJl...,'!.,...li..J.^.|'^.,.....ftifl.QJ>!."^ 



Iw3 



liiiiBfiiiiiiMillfiiiii^^ 

:iiiiiiiiiiiiaiil 



18554800 T 021910 
18554900 T 022l«2 

JJ555500J|L02^J^2_ 









1*1; 



END ELSE GO C30A EUSE 
BEGIN 

T»a-i; 



ir t|i*'CiwiNPMtCA4cu-##i|i#rp#ti*.ai,citi7 3, 

ri^.f||,#2|*|i8l|03f.fft'f|^*|,tt»5J»CA4t333 INX 0# 

, ^%;t , y:;':iifkti|fa:yi^ftfaw-.i%';.iii,^,ift,fiioA el,h 

iF t GEO ^ thEn 



18555400 T 
18555500 T 
18555600 T 



0230( 
02301 
02311 



^ ^ -'■■■- - 



■' i^*^ ■ 



'iliiiilillii 

'i'85560CI0*t" 




0241 « 2 



m • 



2 

3 



8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IS 
19 



20 
21 
22 
23 
24 



25 

26 

27 

28 

29 

90 

31 ~ 

32 

Mr 

34 

35 
36 
37" 



38 

39 

40 

41 

42 

43 ~ 

44 

45 

16 

47 

«8 

•9 

SO 

51 

52 

53 

S4 

55 > 

56.1 



BEGIN 



A4[QJ;s4; A/H:3]»g(I:«RDCTABLE[T3).[l4llQ]; 






0242«3 



A4C4J I « I . C24« 1^3 i A4C53 »»1 , Cn » 7 JV 
A4C6JlwlINU(Tl.X30Vt8i; If t<l6 THEN 
A4C6Ji<f*PfniiP))&PRMTABLErT3ri2t3Q;^6]J 



Q O C 36Bi 



18556300 
18556400 
tfl5565Q0 



0247 «0 

0250 » 2 
025311 



END EU3E 

tiZGlH 



^nl■i) .Li;s3;gARSfT)f no c-iOr 



18556600 
18556700 
18556800 



0257»0 
0257«0 
025712 



end; 



end; 



C30AI A4[03:i«A4[33tgA4[4 3;sA4t53i»A4C6It**'ll 



18556900 
18557000 
18557i00 



026210 
026210 
0262»0 



C30B« 



IF NOT J, [2: IJ THEM 

GO TO initiate;^ 



PCtH[JJ]>PRL);X 



18557200 
18557300 
, 1 85 5740 



0267 » 2 
0267»2 
Q27 0t1 



C 32 1' I 

* SET OMIT » NOKDATACQM 
fiO Tfl TNTTl^TEJ 



) 



C33JJ STREAMCR4,A#-(h4;<0)#J«-jARRCW[PlMlX]#PlMlX** 

T4-T4-GETSPACEC10*0^0)+2);X 
Bi^GTN DS^-lO LIT " PAUSE ^ 0";% ^„,__^_ 



18560000 
I8560i00 
18565600 



18570000 
18570100 
18570200 



0270»3 
027013 
027013 



027H2 
0274»0 "* 
0276«2 



ACDUDin; S1*L0C «4; SUSI + 2; 0S*6 CH«); 
0S4.5 LIT '♦ FOR"; SI*Ji Sl«-Slfi; DS«-7 chr;x 
OS *LXT "/'*; SX*SI*U DS*7 CHRI OS»UtT "«»*;> 



SI4-L0C 

ENn;% 

SPOUTcT)>i(; 



piMix; os«-2 dec; ds*-lit ••*" 



DI<-DI-^; DS«-fILL;X 



18570300 

18570400 
lftS70s00 



0278'0 
0a79»3 
026112 



18570600 

18570700 
1H570800 



18540200 



C0MPLEXSLEEP((TERN<IX.t.CF3=PlMIX QHX 

STOPjOBaPlMlX OR ST0PJ0B»Pl777));X 
ACCIDENTAI ENTRY AT fl777 



18570900 
18571000 



0283«0 
028412 
0?84»3 



028512 
0285*2 



C45t t 



IF STC1PjaB = Pl777 THt.i\l STUP JU8«.P iM jX; X 

GO TO Initiate;* don"T keep communicate around needlessly 

IF R4 THEN i C0BQL68 EXIT PROGRAM/ EXIT PROGRAM RETURN HERE 



18571100 
18571200 
18 5 8000 



8E5IN IF A5.PBXT THEN 

IF AsCfc]*! 

BEGIN 



X IF THERE 

THEN X TYPE » 

A5C73 * i; 



IS A Task 

CALLED 



ARRAY 



18580i00 
l8i80200 
16580300 



0293«1 
0295M 
0p9^M 



0296*1 
0297»3 
029911 



ELSE 
GO TO INniATE; 



SLEEPCCA5t7n*2); 
A5 «• 1; 
END ELSE A5 » 



18580400 
18580500 
1 95 8 0600 



A 5 * 0; 



OETACH task array? us QR eS job RUNNING OR SCHEDULED 
If N5C63=2 THEN GO TO INITIATE; 
IF N5C33al Then SHEETUlUDLERC0f20»N5C43 )f 



18580700 
18560800 
18580900 



030110 
0302«3 
Qi 03»2 



18581000 
18581100 
18581200 



0304(0 
0306*0 

&ao6*{» 



0306*2 
0306*2 
0309*0 



IF 



NSC33»2 

acaiN 



THEN 



TERMINATecN5C'*3&6UCTf3); HALT; 
NOPROCESSTQG » NOPROCESSTOG*!; 



18561300 
18581400 
18561500 



0313*0 
031412 
0317*2 



GO 



C49» t 



ENO; 

TD initiate; 



$ SET OMIT » NOT SHARCOISK 
GO INITIATE; 
END Of COMMUNlCATEi; 



18581600 

18581700 
1659OOP0 
I059O1IO 
18593300 
tftS99nOQ 



318*3 
0318*3 
0119*1 



031911 
0319*1 
03201^ 



PROCEDURE COMMUNlCATEO; 






Size* 032i words 

18700000 T 0000*0 
ST A RT Of HfL SEG MfN T; OlStS ADpRfSS m oQ459 



18700100 
18700200 
1870 01 00 



0000*0 
OOOOtO 
000 fO 



ARRAY A7*-7[*j; 



18700400 T 0000*0 



• • 



h 



9 
10 



12 
13 

14 
15 



16 
17 
18 
19 
20 
21 
22 
23 
24 
2E 



V 



28 
29 

M 
31 

M;. 
!3 ' 
34 



36 

37* 

38 

39 



«0 
41 
«2 
*3 



«« 
»7 
M 
49 
50 
61 
S2 



'BW9if 



a 

54 



56 



LABEL C0^Cl^C2>C3fC4^(:5>c6#C/>C8^r.9^rl0»Cll#Cl2^C^3^C^a*C)5,C^6» 



Ct7*Cl6,C19,C20,C21/C22,C23#C2«#C25,C26; 
LA8CL Cg7#C28^C29#C30*C3l*C32i 
LABEL C33>C34^C35>C36^C3y>C3e#C39»C45»C47jCa6>C^9^ 



C21A*C3A»INIT*US^D*T0*PR*IQT»TMH*IT*ADjiWD; 
DEFINE CNsDIFFCOM*; 
SWITCH S»alT*ua,D,TD»PR>IQT»TMR»AD»WD; 



SWITCH C**lNn'Cl»INlT>c3#INn»lNlT#c6#C7*C8MNlT*lNn* 

lNlT*C12»INIT»INtT#INlT#INIT#Cl7,INIT*lNlT«C2o# 
C23l*Ca2#INlT*lNlT»C25#C26>lMTMNiT.C29MNlT> 



R£At 



lNlT»INIT#IMT/INlT»INrT*INlT>lNlT*C38#C39*INIT* 
INITMNIT, INIT» INIT, INIT' INIT*C47>Ca8» IMT^ 
I>J*TJ 



A«RAY AITE*]^ REAL AItL«AIT; ARRAY AaAlTC*3i 

NAME ADDA; 

CO TO CCFRTCPlMiX»933j 



INIT« GO TU iNlTlATti 

X TIME INTRINSIC 

Cl« IF (I4«-I4) GEU C-2) 



AND 14 LEQ 6 THEN 



BEGIN GO TO SCU+23; 
ITI l4*JARcPlMlX#23.t5«l3i 
JARtPlMlX»23» (*F(DUPn & 2C4U6l23i 



GO initiate; 

US: R4l«uSERC0DEtPlMlX]; GQ TQ 
PI Ifl<.Q#TE; GO TO INITIATE; 



initiate; 



to: i4*xclock+p<btr); go to initiate; 
pr i u*jarcpimix*33+pr0ctim£cp1mix3*cl0ck+p(rtr)* 
GO TQ initiate; 



IUT: I4«-lUTlMEtPlMlx] + JARtPlMlX#43; 

While i4<o po i4«-i44CL0ck+P(Rtr j; 
QO TQ IinH.iatl; 



tmr: i4»pcrtrj; go TO imtute; 
ad: 'U«-actoaTe> gg to initiate; 

JLQJ T<t»w££KOAYf 



end; 

go to initiate; 

RETURN SPFI.CIFIC 



ARRAY 



C3» ARTNCM4t03»l); % RLMQVE 1 DIM ARRAY 
C3AM T*tAlTt3,ECf3i % REMqVE FROM AIT 
IF N0T<AlT*PRTEPlMlX*63i>C2m THEN MAKEPRESEhlTC T ); 



J *■ AITC03; T «■ N4,tCFJ; 
FOR l^-l STtP 1 UNTIL J-1 DU 

IF AlTCU,i:i8tl538T THEN 



'MMM 






C6t 



GO TO 

WHEN 



initiate; 



X 
C7» 



I4»60>iI4->-P(RTR).fCL0CK; 



iiiiiilfiTiFW'W 



FILL 
IF NOT 
I*-MCA5 



nJyMiHtliteL 



^ 






A3, C2! U THEN MAKEPRE3ENT(NFLAG(N0T INX [14 3)); 

INX NOT 03; J»MCA5 INX NOT 13; 



jHu. 




tt-P%'F«'T|*|ltii»«l^)#a»»lS3>>NT'3*A5,C8U03 ThEN 

/„ JiMltU'l,..,. ., :,. IH.J I i 



t M iM nM j i m\i y ihi .L,4li ^A l | l | ll tAl ll ( | [ ^ [W^ffl l|ll l |( ' li ;^ ^j p/ ^^ ^ ^ H , i ^tU ^,^ , « ^ l . ^n ^ 



18700500 

i n7CQhPg 



18700700 
18700800 
18?00900 



0000«0 
000Q»Q 



OOOOtO 

ooooto 

0000*0 



18701000 
18701100 

In 70l2 00 



18*01300 

18701400 
18701500 



oooo«o 
ooooto 

Q0QQ«n 



18701600 
18701700 
lB701fl00 



ooooto 

ooooto 
ooooto 



ooooto 
ooooto 
ooooto 



18701900 
18702000 
l8y02g0Q 



18702300 
18710000 
187l0l00 



ooooto 
ooooto 
ooooto 



18710200 
18710300 
18710400 



0028t0 
002812 
0028 « Z. 



18710500 
18710600 

U7 1 0700 



003110 
0037»g 
0039tg 



18710800 
16710900 

i ey nQ O O 



0042t2 
0043t0 
0044t2 



la^uioo t 

187 11200 T 
lfl7ll3QQ T 



O045t3 

0047t2 
0050 » a 



OQSltl 
0053t2 
00 57t Q 



1871U00 
18711500 
16711600 



0057t2 
00S8t3 



18711700 
18711800 
lfl7?00Q0 



18720100 
18720200 
187203Qn 



0060 t 3 
0060t3 
006lti 



18720400 T 
18720500 T 
18720600 T 



006ltl 
0«62ti 
QQ64I1 



18721000 T 
18730000 T 
187 30100 T 



0067t3 
00 70 to 
0074 11 



■itrsoao^::.;! 



0086t3 
0087 ti 
0087 tl 

VT ^ TT"" ' ■ " " ft '' .T ^ "" 



18740000 
18740^00 
18740200 



I* 



0095t2 
0095t2 
009910 




>T 



2 

3 

4 

5 

6 

7 

8 

S 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19" 

20 

21 

22 

23 

24 

25 ' •:' 

26 

27 

28 

29 

30 

31 "^ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

«0 

41 

42 

43" 

44 

45 1 B 

«6 

47 

48 

49 

SO 

51 

52 

B3 

S4 

55 If 

sei; 



DIV (Nr3*-JARCP1MIX#8J) + 1QJ+NT1 MUD NT3 

ELSE DALUCCPlMlX^NTl.[33:6J-»PfDUP)«l]»NTl.[39t9] ); 



1 SK rt A I T C • A5 . EC F J , N 1 2 » 1 4 3 i 
MEA5 INX NOT 03**P(,I)1 
IFMQT C*P(.J)).C2I13 THEN 



16740/00 
lB74QflOO 



PClMtA^ INX NOT llt.PRDl 



16740900 
18741000 
1 87^4 1100 



0115»0 
0119>0 



0l24il 
012612 



GO TO iNlTXATt/ 
* PLAIN ZIP 
C8» ZIPP£R(R5>R4*0)J 



18741200 T 
18750000 T 
i g/SOlOO T 



0133M 
0133»3 
0133V3 



X 

Cl2< 



GO TO initiate; 

BREAKOUT 



18790200 T 
18760000 T 
i iy60iO0 T 



Oils 10 
013512 
01 3 51 2 



$ SET UMiT = NOTCBi^LAKGUT 
GO TO INITCATL^ 
COBOL I/O ERRUR 



) 



18760200 T 
18760500 T 
18770 000 T 



Ol35»2 
0135S2 

0136»Q 



Cl7t A5**A5; A<.PRTCPIMIX, 

IF ASCSJ.cniJ THEN 
BEGIN I»" "iNVALI 



33; I*"I/0 ERR"J 

D"jjt«" USER**; R6»«l £N0 ELSE 



16770i00 T 
18770200 T 
18770300 T 



013610 

0l39«2 
014012 



STREAM(R4*N«-CJJ ); BEGIN SI«-LOC R4; Ol«-DI+i; DS*/ DEC/ 

ni«-Di-7; ps«-5 FILL; 
. ENOi 



18770((00 T 
10770500 T 
t)i)77060n T 



Ol43»l 
0i48»3 
014911 



FILeMkSS(i&R6[1:47I1 
IF K4<-(R4*16 
IF H4 THEN 



]#J/AtT*A5C43,[13lll]3*ACT+l3# 

OR H4»17 OR R4«82) THEN R8 ELSE 0# 
R7 F_LaE 0*0?; 



18770700 T 
18770800 T 
1877090 T 



014912 
013410 



GO TO INITIATE/ 
% TAPE SWAP FOR TAPE SORT 

C20; SlEEP(CN4[3]3WOMASk); SlLEP(CN4[4]],I0MASk); 



18771000 T 
18780000 T 
187eoj | 00 T 



Ol61«0 
0161J2 
0l6l«2 



FOR I*3 STEP 1 UNTIL 

BEGIN N5tl3.Ci3»15U 

MCN4n3 INX NU 



4 130 
N4C!:i; 
T lJ*(*P(DUP?)<tN5C3Hl4?3i4 3&[N5C33][33»3aii5l 



18780200 T 
18780300 T 
16780400 T 



016512 
Ol67»0 
Ql70*0 



end; 

A«-N4[0]; AC5J. 
NT4«-AC1QJ .13» 1 



[39J4] 



«-2; /»[16]4.0; AC18]*NABS(*p(DUp)); 

io]a3M5]«-o; _______„ 



18780500 T 
18780600 T 
18780700 T 



Oi75»l 
0178«1 
0i84»P 



A*N5£0]j aC5]* 
Atl03.t3tl53*N 
GO TO INITIATE 



0; ACl6]«-NFLAG(N5t33); AC 18 3*ABS( *P(OUP ) ); 
T4; 

; 



18780800 T 
I8?e0900 T 
1 67 84000 T 



0188«2 
0l94»2 
0197*0 



X SORT STORAGE A^blGNM 

C21! A«-[MtQETSPACEcK6+R5# 

A[0]«-(R5 I N X A)&R6C8 



ENT 

2M) + 2J]RR5[8I38»10J; 

t38! lOJ; 



18790000 T 
18?90i00 T 

iH?yo?oo T 



0197«2 
019712 

o;jOtn 



N4coi«-a; 

if not conquer 

BEGIN FQRGETSP 



tO#R5-WR6»l INX A*J) THEN 



18790300 T 
18790400 T 



0204>3 
0205 » 3 
Q209in 



C2lAt STREAMCPlMlX#T*R5xR6 
BEGIN DS«-LIT "*"; SI 
DS»g DEC A. 0?*- 



jiA«'I«-SPACE(7)); 

♦LOC PiMix; 

li LI T " N Q S ORT MEM»"; 



18790600 T 
18790700 T 
18 790 8 00 T 



0210»2 
02 1 4 M 
021 5t0 



;li#iKf itl?»'iift9 ■■ LIT- *».. : W'OS'- ■RQO*" J 



■■mMmmmti^^ 



18790900 T 
18791000 T 
lfl7 91 l QQ T 



021711 
0219t0 
Q2X 9H 



1 857 1000 



REPLYcPlMiX3 »'="'VWY&V0K[36»42:6]liV0U[30l42«63; 
COMPLEXSLEEPCREPLYtPlMIXl>0 OR TERMI Xt C CF 3»P1 Ml X); 
ACCIDENTAL ENTRY AT PlMlX ^^ 



18791200 T 
18791300 T 



0220»0 
0223»2 



If TEftMIXtCCF3"PtMlX THEN SO TO IMTIATEI ' 

If NOT «4*r3UEEP{VWnV0K£t6l42l6HV0Ut30l42t63) THEN GO TO CglAi 

Jt»R£PLYtPlH|X3.CCn*VQy# • 



l879U0q T 
U791500 T 
4 879 1600 T 



V H JW' W ' Wm 

023213 

oai 6«o 



GO TO C2i; 

end; 

GO TO initiate; 



18791700 T 
18791800 T 
1B791900 T 



023e>0 
0238"2 

OiJJ ..«.?^ 






until (I»MCI]ai8tl61)«0; 






Q239»0 
023910 
0240»1 



FORGETSPACECN4C03); NaC03*0; 



I88OO3OO T 0245«0 



• • 



GU TO iNlTIATt^ laSOOaOO T 0246»2 

^>, X R£TURM ULD COPY OF Qa\ ARHAy Im^lOnQO t 02ti7tC) J 

M C25II ArtTN(A5,H4)i IfSlOlOO T OM^IO ^~ ^ 

MCA5.CFFn«'A*PHTtPlMIx*l73&P(,A5,LOD)Cieil8ilS3l iS^SloaOO T 02«8I1 

" ._— __^ , IF A.CaUJ THEIN MCAtCCFJ-ntCCF^^-AS.CFF]; ^ UtiQiOO T 0^5315 

GO TO iNlrlAFt; 1891Q400 T 0258M 

' X INVALID ARGUMtmS TO AUqUL INTRINSICS XWF 18820000 T 025813 

* C26ii IF C I » R^)>0 Thk n iRflyQiGo t Q?^^t»^ 

STREAM(A *.RH» UI«-GtTSPACt:(lO#0#0)+2); ~ IQdaOgOO T 0260 «1 ~ ~ 

BEGIN SI»lOC li SI«.Si-ii 05*LIT «•«; XWF 18820300 T 0263»3 

.■■ ■ ■.■-■■■ ■•■■ ________^ IF SC£»i THEN DS»a LIT "MAXN** ELSE >wF laflgQiiQQ t 0?6al^ 

IF SC<?2 THEN DS«-5 LIT "NEGTV" ElSe DS«-4 LH ••^ERQ"; XWF 18820500 T 0266JI 

DS«-8 LIT ''ARGMNT 'S XwF 18820600 T 0268n 

_ ^ —^ ^. CI»qI-»A; „^ XWF 18620700 T 0270tO 

GO log; go root; go log; go exPj go sin; xwf 18820800 t 027012 

DS*-3 LIT "COS"; ao exit; xwf 18820900 r 027i«3 

"U— : —^ log* DS» 2 LIT "LN"; GO ExlTI %^ 18821000 T 0273»3 

root; 0S4-4 LIT "SQRT"; GO exit; XWF 18821100 T 027312 

EXP» 0S*3 LIT "EXP"; GO EXIT; XWF 18821200 T 027^*2 

-— ^ aXii; D9* 3 Lir "JIN"; , %Ml 1M871-.QQ T Q^'7'^» p 

EXIT! DS«-2 LIT " *"; XWp 1882U00 T 0276$! 

ENDI 18821500 T 0276«3 

IF I « {"7} THEN « COROL INVALTO TnOEX __. IftflpMOn y n?77in ■, 



17 
IS 
19 
20 
21 
22 
23 
24 



25 



28 
29 
30 
31 
12 
33 



39 



43 



45 



49 

SO 
51 



52 



SEi^IN 18821700 T 0278*0 

Hu «• Hi?; R5 «• R<5; 18821800 T 0278«2 

£R«nHFlxFRC4); H INVALID INQFX CHFCK t«fl3lQ0p j Qpaptn 



end; isaazoOo t 028o»3 

'I TERMlNATECPlMlX); TERMINALM£SSaGE( -U; XwF 18822100 T 028013 

•"^ C99II COMMENT ThIS CUMMUNtCATE PHOvjOES FOR D:>«|Nr. AN OBJECT PROqflAM laa^nnQQ T Q?«gtg 

ANO/OH SPqUTInG a message about a program, I883O1OO T 0283'0 

R4 IS USED TO SPECIFY THE MESSAGE REQUIRED, I883O2OO T 0283«0 

Rb S£[ TO TrUf: SPECIFIES PlMTX IS Tn HE OS-FD. iBejO^jOO f 02H3;0 

T Is THE ADDRESS OF THE MESSAQEC WHICH ENDS WiTH A "♦"), 18830400 T 020310 

Re»aining Variables may be used as desired; lassosoo t 028310 

* errspACEtig/OyOj^a; laaaoAOo t OgaaiQ 



"* If R^ ^ 2 Then 18830700 t 0285M 

'' begin; % 29-1 18830800 f 0286*0 

'" STREAMcJtTj; 18830900 T 0286»? 

" BE«IN % 29-2 18831000 T 028713 

'^ DS ♦ 9 LIT "-DEC ERRt"; 1883U00 T 026713 

■j * 0I> ^______ _1 18631200 T 0289»l 



*'] £nd; % 29-2 I883I300 T 0289:2 

J «■ P' laasuoo t 0289*3 

1 . IF R^'l then 18831500 T 0290«1 

■ ■"•■■■■•: ■ begin; % 29-3 ' ~ ~ ~~~~~ ^ ^ lisiuOO T 029i«0 

STREAMCTl«-<Re<0),ft6«.ABSlR6)*J); 18831700 T 029H2 

, ^-^ -:.■ ■' ■- ■ ' -■•-■" eEGIN % 29-4 ;■ ■'■■;. . ■■ ■ ^ /' ' : . I6»3ie00 T 0293*2 

« Ui>*-17 LIT "ARRAY DIMENSIONS 'STlCUS* l LIT w-^";); 18831900 T 0293*2 

SJ «. LUC R6; 18832000 T 029711 

„ 0^ * 8 dec; «> »m; I8832100 t 029712 



\r'.,,,.\.:Or''#,;i|ii|vv\ ■:■;■■ • 18832200 T 0298»0' 

■■■■■.-■■■;...;■; /■Ot.:;fl'7:i#m^^^^^^^ . . 18832300? 0298*1 

■■,.:■■■•-. ■ ...■■..■....-/-. V...;-/'^ •■ •;: •■ V;^^..■^^■■■V■■■:Wvv-^:^;:o.fltl^aife^^^^^^^ ■. .. ■■ . Ut32a00 T 029813' 

end; X 29-4 18832500 T 0299*1 

"I END X i:9.i 18832600 T 0299*2 

"* ELSE 18832700 T 0299* 2 

"^-^^^ ■ 18832800 T 0299*2 

^::',«'fc;;v:v■■•:--■-/v:-^^■■•^' ' ■' ^«/:.: -A-:::::.;.a:'C;::fr:s,::5wv:^ • 18832900 T O3OOIO 

'D^^mV LiT'^"NU;BflK imW ' H ' ^ "j laflsliOd T OjOito 



10 



12 

13 

14 

(15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37' 

38 , 



39 

40 



«2 

43 



46 
47 

ts 

49 
50 



52 
53 



56.,; 

^1 



Ob 



Dl 
OS 
OS 



LOC R6; 

8 DLc; 



-Oil 



Oi-er 
7 f itu 

2 1 T T '^ 



Dl ♦ Ji 



JJLL 



end; 



END, 



JML 



2V-6 
29-5 



ir R<>»3 THEN 
BEGIN 



BEGIN 

Di»«- 18 



LIT "-MAXN aRgMNT EXPJ*-"; 



IF 



ENDl 



THEN StREAMCT)V BE6IN 
QSig^y LIT ««IL.LEGAL PFRFaRM 



RETi^ftN QR RELEASE t*."; 



end;; 

IF R5 
BFfilN 



THEN 



% ?9-7 



END 



TERMlNATECPtMIXJJ 

Te«minal:messa6ECT); 



ELSE 

spout(t); 
TO initiate; 

RETURN STORAGE 



JiC 



G38«« X RETURN STORAGE AND AUXILIARY 
IF A4.C1UJ THEN X CODE SEGMENT 
BEGIN A » dRTlPlMlX^*]; T » mFLAG(A4 



DO 



IF 
If 



T.C5H] 
T,C6»ll 



THEN 
THEN 



MEMORY FOR CODE UR DATA SEQmEnT 
& (I*0)C5«5«n)l . 



UNTIL IXO; 
AOOR ♦ I INX A[«3; 
IF ADDRC03.C3U3 



T.CFF] ELSE 
T,C7ill] EUSe 

NFLAGCACT,C7»n33 J 



THEN 



18/91300 ACCIDENTAL ENTRY AT I 



COMPLEXSLEEPCCNOT ADDR [0 J , [ 3 U 3 ) ) ; 



ADDR[03,L3!23 » 2} 



COMMENT TURN OFF AUXILIARY 
ON THE "00 NOT 



TURN 



MEMORY FLAG# AnO 
TOUCH" FLAG FOR 

RE-ENTRANT PRESENCE-BIT PROTECTIONI 

IF NOT STOREDY THEN SLEEPC [TQGLE3 * STuREMaSK); 

lqcktogcstorei^ask); 

IF (I ♦ (T ♦■ ADDRCQ3 ).[FF3 )>1023 THEN * PRESENT 



BEGIN J 
$ SET OMiT s NQT<AyXM£Mj 
$ SET OMiT -m AUXMEM 



♦ MCI-n; P(0LAYCI-2)* DEL) END 



POP 
SET 



OMIT 
OMIT 



NOTCAUXMEM) 

AOORC03,t3»l3*0| 



COMMENT 3|1 aQ* NOT 8ElN6 MASSAGED 8Y PRESENCE BH 

4t2 *2> ASSIGN AUXILIARY MEMORY N£XT OVeRLAYJ 



18833200 
18933300 



18|J3«<)Q 
188 33S00 
lifl;^36Q0 



0303J1 

0303»? 



030410 

0304 1 1 



ia833/00 
18833800 
1. 8633^00 



18834000 
18634100 

isasflano 



305«1 
03U5J2 
Q 3 0S»2 



0305»2 
0306U 
03fl6l3 



18834300 

I66344OO 

I B6 3 45OO 



0307J2 
30712 

natoio 



16834600 
18834700 
18834600 



18834900 
18835000 
18fl3'a;0Q 



0310M 
031011 

3t au 



03171 1 
0317>2 
. 3 1 7? 3 



16935200 
18835300 
lfl8l5aQQ 



03t8n 
031910 

32 QI0 



18835300 
18835600 
18835700 



10840000 

18840 1 00 
la i 4 0800 



oa20«o 

0320«0 
Q32l»l 



OMiis 

0322»O 



18840300 
16840i(00 
lfl840500 



0327«1 
032913 
033213 



I6S4O6OO 
18840700 
18840800 



0334>0 
033611 
03 37* 3 



18840900 T 0338^2 
18841000 T 0345*0 



18841100 
1884 I 2QO 
18841100 



16841400 
18841500 
18841600 



034613 
0346*3 
0346*3 



18841700 
16641800 
18842200 



0346*3 
034913 
0353*1 



18642300 
18842400 
18642500 



0355*3 
03S9*3 
0359*3 



END, 



unlocktogcstoremask); 

GO TO INITIATE 
X OF CODE SEGMENTS 



18843400 
18843500 
18643600 



T 

T 
T 



035913 
0359*3 
0359? 3 



liiiiWWiiiiiiiiiiiiffi^ 



18843700 
16843800 
18843900 



O359I3 
016112 

03^i»a 



BEGIN Mt J3.C3a3]«-7; XMARK AS «READ-ONLY"* ALREADY WRITTEN 



18644000 



036U2 
0365*0 
0365*2 



m 

m 



036512 
0368*2 
0372»Q 



18844300 T 037512 



1 
2 
3 

4 
5 

6 

7 

a 
9 
10 



12 

13 

,44 
15 
16 

lH 
18 

2G I 

21 

22 

23 I 

24 

25 

26 { 

27 

28 

29 ^ 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 ^ 

39 

40 

41 < 

42 

43 

44 i 

45 

46 

47 < 

48 

49 

50 ( 

SI 

52 

53( 

54 



.9 



• • 



n 

2 
3 
4 
S 
6 
7 



9 
10 



11 
12 
13 
14 
IS 
16 
17 
IB 
19 
20 



21 
22 



23 



27 
28 
29 

90 

Jli> 

32 r 

33 

34 

35 

36 

37" 

36 

39 



42 
43" 



4S 
«6 
47 
«8 
*9 
50 
51 
S2 
S3 
S4 
55 

56 f: 

P7i 



M[r INX INOT 0] ♦• ( 
AITl, «• MCT rNX NHT 



$ SET OMIT 



P(0LAYCT.CCF]-2))i 
» NOTCOEBUQGING) 
PfQ EvL) 



'H(DUP)) & 
IJtCPM 1? 



((I«-PCDUP),[FFn OR DCCTF]; 



18844400 
lRa4450fl 



C39t I 



C47tl 



END £LS£ Ani,«-CCl*T,CCF3) = n; 

IF I>511 TritN UISKHTNCI, T»ce;i0]); 

MCJ3 <■ FLAG(TdO[2l42«63&AlTL[rTr] w 

unlocktog(StQR£mask); 

GO TO INITlATEi 

X BASIC ARBAY HFTljRM __^^ 

ARTN(N^[0]'R5)' % HeTuRN R5 DIM aRRaY 

GO TO C3A; % TO REMOVE FROM AlT 



18644600 
1884«700 
1«R4SlflC 



0378«3 
0,^6 H 2 



1884520O 
18845300 



0386M 
0388)0 
Q388I0 



0388»1 
039i»0 
0393»3 



18845500 
18645600 



0397t0 
0400*2 
OAQI in 



PRT[PlMIX*a3 «• FLAr,fR8)nDnNi r ONLY AT pND Or TMTpRHUPTrR I NTRTN 

PC8 INX PftT£PlMlX,TSX3*DUP,(.OD*0,FFX,XCH,StO)J 
GO TO IMTIATEJ 



I885O1OO 
18850200 
^ftfl/sonon 



% MEMPRY nUMP nR TRACF TRnu ThF ImToTi^StpS 
C48> X 

* SET Omit * NOTCDUMP OR DEBUGGING) 
GO TNTTTATfc;» 



I866O1OO 
I886O2OO 



O4O1IO 
040210 
04Qptg 



0405*0 
O4O8OO 
Q4Qfll2 



END Of communicateo; 

PROCEnURF SHQRTrOMMuNlrATF; 



1887O10Q 
I887O2OO 
l8fl7Q9Q0 



0408 »? 
0406(2 
0408 »2- 



BEGIN REAL R4 = -4'R b'-S^Kda-bi-R / = "7*R8*-a* R9S-9; 
INTFGFR l4 = «4W5:»"b,l6s-6; 



ARRAY A4»''4t*3j'A5»-5t*3i»Ac»-6t*3; 

ARRAY k7»'7l*}i 

NAME N4»'*4<'N5«'*5<iN6»"fi; 



0TARI OF REl segment; DISK 

* (ShM) 19501000 

19502000 



18872000 T 040912 

SIZE* 0410 WORDS 
losnono n t nnnntn 



ADDRESS m 
T 0000«0 
T 0000»Q 



00473 



Label ce»Cl'C2'C3*cA*c5'C6*c7»c8'C9*ClO»CU'C12'Cl3*Cl^'Cl5* 
Cl6,Cl7vCl8,ci9,C2 0*C2l*C22,C2 3,C24,C25,C26,C27,C28, 

C29^C30» C3l*C32^C3j*c34»c35/C36»C37^C36#C39*C40»c4l#c42»r4 3»r4 4 

♦ C46*Sl.*TW; 

SWITCH C»«SU#TW*C2*TW#SU#c5*TW*TW*TW#c9»Cl0*Cll'TW#cl3'Cl4' 

TW*SL*i;31,SL#SL*C j4»C35» 036*037* TW*TW,C 40*0 4 1# 
C42,C4 3,C44,SL*C46*TW/TW*SL; 
DEFINE CNgDIFFCQM»; 



19503000 
19504000 
I99Q5QQ0 



19506000 

1 95 o7 000 
19506000 



0000»0 
OOOO'O 
0000*0 



oooo»o 

0000«0 

oooo»o 



1-9508010 
19511000 
19512000 



0000 »0 
aooo»o 

000010 



UASflU AC0,ACl*AC2*AC3,AC4,AC5; 
SWITCH AC ♦. AC0i»ACi*AC2'AC3*AC4*AC5; 
REAL IjJ^T^RCW-fQ^ 



19513000 
19513010 
19S15000 



0000*0 
OOOOlO 
OOOO'O 



ARRAY AlTt*3* REAL AItL*A1T; ARRAY A*AIT[*3; 

ARRAY f'lBsAlT[*3,|rpB[*3,H[*j;LABEU CHANGEnAME; 
NAME ADDH; 

BEGIN P(DEL); TERMI NA TEC PI Ml xT; TERMI NALMEsSAGECS 1 ) END; 



195J7000 
19*16000 
19519000 



0000*0 
0000*0 
0000*0 



19520000 
19521000 
19522000 



XWF 



GO TO CCP3, 
SL» P(fC0MMUNICATE13* 



GO diffcqm; 



It : 



19523000 T 
t9525000 T 
>95?5l00 T 

19825200 T 
19526000 T 
19526l00 T 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0006*0 
0007 13 

0010*0 
0035*3 



RETURN SPECIFIC 

EOJ 

PCCO MS)/ GO TD 




19526200 
19541100 
1»542000 



19543000 
19552000 
19553000 



0036*2 
0«37*1 
003711 



0040*0 

0040*0 
0040*0 



BLOCK EXIT 



9 
10 
11 ( 
12 

13 

14 ( 

IS 

16 

17 < 

IB 

19 

20 < 

21 

22 

23 I 

24 

26 

26 I 

27 

26 

29 % 

30 

31 

32 f 

33 

34 

35 % 

36 

37 

38 % 

39 

40 

41 I 

42 

43 



45 
46 




47 
48 

49 

50 ( 

Bl 

62 

534 

54 

55 

..I 



11 



h 

2 
3 
4 
5 
6 
7 



cioi PC. ASH); 60 TO cn; 
% A Lfini I/Q FUNCTIONS 



19566000 T 



C0«0»3 
00<H»2 



cm 



IF 



R4«0 THEN FIL£0PEN(0»AS,CCF1); 
Rflgft THFN ^ • • ■■■ ■■ ■■■■. ^ 



X (SHM) 
X CShM) 
1i ( S H M) 



19568000 T 
19569000 T 
19S7Q00Q T 



004112 
004l«2 
QQ4fl»2 



BEGIN FILECL0SE(NFLAGCA5)); GO TO INITIATE ENq; 
IF H^au THEN 
BEGIN 



X CShM) 
X CShM) 



19571000 T 
19572000 T 
1 9573 00 T 



0045»1 
00«7«2 



10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 



IF A5t 
FORGET 



4] TH 
SPACE 
IN 



EN % FILE IS IN DIRECTORY 
(0IRECT0RYbEARCH(R8*R7*-{A5.tCF3)«R6tCTF3)) 



X (SHM) 
ELSE 

X CSh W ) 



19574000 T 
19575000 T 
19976000 T 



004e>3 
0049* 1 
00 53* 



IF CT»=R9.C18«5]) GTR THEN X EU SPECIFIED 

Tl*(lF T GTH 20 ThtN eLSE "T) ELSe 
IF (T»'«H9,C16t2]) GTR n THEN X SPEED SPECIFIED 



T»s(lF T GTR 2 THEN ELSE T) ELSE 
Tt»Oj X NO SPEED OR EU SPECIFIED 
A5cR63»»PETUSERDISK(A5C63<T); 



X CSHM) 
X (ShM) 
% CSHM) 



X (ShM) 
% CSHM) 
X cShM) 



19576100 T 
19576200 T 
19576300 T 



19176400 T 
19576500 T 
19576 600 T 



005312 
0055 «1 



006110 
0664M 
00 6 5»? 



22 
23 
24 

26 
27 : 
28 

2S 

30 

31" 

32 t 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



END* 

GO TO initiate; 
end; 



X cShm) 

X (SHM) 

jl cshm) . 



19576700 T 
19577000 T 
19577100 T 



0067«3 

0067«3 
0068«1 



PC, COM It); GO 
X COBOL I/O FUNCT 
Cl3> PC.cQMl3Ji GO T 



TO OIFFCOMI 
IONS 



X CSHM) 



19578000 T 
19579000 T 
195^"^"" T 



0068 « I 
006910 
006910 



X INVERT OVERLAYA 

C14I IF NOT N4C0].[2 

MCN/iffl] INX NOT 



X 
C1 8I 



GO TO INIT 
ERROR • IN 



lATEi 
QUIRY 



BLE STATUS 

jU then MAKEPRESENTCCN4C0]] Inx 0); 

n«-P( ooPfL OnuPtDU^'^LNG?r2»?»i3; 



19581000 T 
19582000 J 

195fl30QQ T 



0069>3 
0069|3 

0fl72»2 



WRITE 



19584000 T 
19584200 T 
i95flA3QQ T 



0076»1 
007613 
007613 



X 



$ SET OMIT » NOTcDATACOM) 

GO TO initiate; 

PRINT BACK-UP 



19584400 T 
19584700 T 
19565 000 T 



09 76 » 3 
0076«3 
0077'! 



C19I PC,C0Ml9)i GQ TO CN; 

X LOAD CONTRfiL 

C23H P(.CQM23); GO TO CNj 



19566000 T 
19587000 T 
19588000 T 



0077*1 
0078*0 
0078*0 



X RETURN ONE ROrt OF A DISK FILE 
C24M T*sA4[R5]; A4tR5]J = 0; 
$ SET OMIT s ShAREDISK 



19589000 T 
19590000 T 
19591000 T 



007813 
0078*3 
0081*1 



F0RGETUSERDISKCT#A4E6]); 
$ POP OMIT 
S SET OMIT * NQTcSHAReoiSK) 



19192000 T 

19192001 T 
19593000 T 



0981*1 
0082*2 
O Q9 2*2 



X 
C27» » 



GO TO 
COBOL 



initiate; 
datacom I 



INTERROGATE 



19595000 T 
I96OIOOO T 
19602000 T 



008212 
0083*0 
0083*0 



45 

46 

47 
18 
49 

50 s 

BiSJ 

52 

» 

M 

SSw 

56 if 



i SET OMIT » NOTtOATACOM ) 

SO INITIATE* 
t ALSOt PATACQM I INTERROGATE 



19«03000 T 
19637000 T 
19636000 T 



0083fO 
0069*0 



C28« t 
» SET 



OMIT • NQTCDATaCOM 

m iwiiiiiM... 



) 



19639000 T 
19640000 T 
1966,6000 T 



0063*2 
0083*2 



■flit*; 



iiiiKiiiil|iliiliiiiliii''**>^^ . 



19*69000 T 
19670000 t 
l967lft0Q t 



008«(2 
Q0i4i2 
Q afl 6 l? 



terminalmessagec17);x 
end;x 
if not (m[a63 and rs^anot thenx 



19672000 T 

19673000 T 
19674000 T 



0087*3 
0088*2 
OO88I2 



iiiiiii«ilii«iiiMWiiiiiiiiii^ . 



it fiiliiiJi 



mm 

9Q9S *0 



CNDTCMtA6] AND R5)XN0T 0));X WAIT SATISFIED 



19678000 T 0095*0 



• • 



188A0900 ACCIDENTAL tNTRY AT 
16 » NQT(M[A6J 



AND RSj^NQT 0}% 



GO TO INITlATt;X 
C34JI IF (T^-RAJ > THEN STREAMC 
BEGIN Sl»R<>J US»17 WpS ENQ 



ft<»#T«-T«-SPACE<l7)}; 



19679riQ0 



19680000 
19680200 
19660300 



JL Q10 5 » 3 
T 0l09»( 
T 0l09»: 
J Ol H« 



'0 
2 



TERMlNATt.CPlMj[X);X 
TERMINALMESSAGt.(-T)n 
C35M IF Rg.CFF] LEO 33 THEf^ P ( . L I BW ARY nU^^P ) 



19680400 
19680b00 
1 9^8 1 000 



T 0115» 
T 0ll6« 
T . 0U7» 



ELSE IF H4.LFF3 LEQ 35 THEN P( •LIBRARYLOAD ) 

ELSE PC.LIBRARYZERO); 



GO TO CM 



.19681100 
19681200 

l96fl200Q 



T 0l20« 
T 01221 



10 

11 

12 

13 
14 
15 



C36U % TYPE 19 DATacOi^ 

1 SET OMIT ' OATACUM 

GQ TO initiate; 



J/n INTERFACE 



19683000 
19683^99 

196B35 . 



0l23» 
01241 
Pl24< 



$ POP 
4 SET 
C37n 



OMIT 
OMiT 



NOTtOATACOH ) 



19683501 
19684000 
19685010 



T 0l24l 

T oia** 

T 0^241 



16 
17 
IB 

19 
20 
21 



AlT«-JAKgOrt[PlMIX]; 
IF AlTC93,CFF]a0 THEN AH 
H»[MEGETSPACE(5'0>0)-»23]& 



C9j,[FF]«-GeTE5PDlSKi 
b[8:38M0 3; 



19685015 
1968502C 
1 9685Q2 5 



0l24« 

0l26» 
0l30« 



Htl3«-R5;HC23*R4; 
$ SET OMIT » NOTCOATACOM ) 
S SET QMIT a OaTACQW 



19685030 
19^85)035 
1 966 5 50 



0i34« 
0I36I 
Ol 36« 



22 
23 
24 

ai 

K% 

V 

28 

29 

30 

31 I 

32:' 

33 
34 

35 
36 

37 ~ 



HC33«-0; 
$ PDF OMiT 
0ISKWAIT(H 



INX 0.5»AlT[93»[FF3); 



19685055 
19685060 
19685065 



Oi36« 

0l38« 
0i38» 



Cgon 



FORGETSPACECh); 

GO TO initiate; 

IF R5.C6ll03«lQ23 



THEN 



19685070 
19685075 
19 < la & 34 



T 01411 
T 0142* 
I OxA2l 



BEGIN MtR5.tCF33 J»PRNTA8Lt;tR5.tFF33;GQ iNlTlATEitND £l,Se 

IF R5,CCFJ»0 THEN 

BEGI N WINKUPCH6.R5'»P5 ., [ FFJ)J 



19685350 

19685360 
1 968 5.1 70 



T 0l44« 
T 0148J 
T 0t49« 



SLE£P(CMlR533»l 
END ELSE 
■ IF R5.C15»153»0 THEN 



iiooooooooooooooo); go return; 



19685380 
19685390 
19685400 



0l52t 

0i54» 
Ol54» 



BEGIN 
$ SET OMIT 
S SET OH I T 



NO^COAl ACUM 

datacum 



) 



19685410 
19685419 

19685429 



Ol58« 
0i58« 
QlSflt 



t POP OMIT 



MtR53«»0J 

^^■GO-;. INITIATE.;. 



19685430 
19685431 
19685440 



T 0i58» 
T 0l60> 
T 0l60> 



40 
41 
42 
43 



END ELSE 

IF R5,[FF3»«»7777? Th 

BEGIN ^^[H53l»MUD3lQS 



BEGIN INOEPE'^DENTRUN 
GO RETUHNI 

end; 



EN 

; GO I 

NeRcP( 



nitiate; end else 

♦ D*<8USINE5S)*R5#128); Slee^ ( CM JRSJ J» I ); 



I9685ij50 
19685452 
19685456 



19685460 

m»mmm 



T 01601 
T 0i60« 
1 0162 t 



45 
«6 
♦7 
48 
«8 : 

»;:; 

B1 S 

52 

» 

B4 

S5 

55? 



C41U I0REQUEST(87,r6,Fl.AG(R5)); 

C42U p(,,tisktask)/ GO TO cn; 

C4$» » H «■ PHTCP1MIX»TSX3; X S 



T Ol65« 




GO Initiate; 

ET TASK ATTRIBUTES 



19685550 
19685560 
19685570 



T 01701 
T 0l73« 
T 0l73I 



■■MMMm 









t^ftiisii':: 

19685590 



l.:.*|:?'5< 
t OlTil 

T OIW 



04411 PC ,,PlCKTHELOCK ); GO TO CN. 
C46U PC.EVENTANDINTERKUPT); GO 
END Or SHORT COMMUNICATE^* 



TO cn; X ATTACH, DETACH# CAUSE STMTS 



19685595 
19685596 
19686000 



0l83( 
01841 
0|85« 



mfiiiififiimlmieittiM 



ilsiiiiiSMiiiil 



CiJBOL OR al&Ql PROtiRAM wi 



igM-iiiiMfMSiiM6aMJ'X^^ :.::■■.'.... -ST A.rT:. ■•OF REL 



iiiSlliiili 



tOROS 



% A 



19687100 T 0000«0 



^ 



% PROCESS' CALL* OH RUiV/Ex 
% OR FVFNjTa CALGQLJ* wiLL 



ECUTL STATEMENT* OR MANIPULATES LOCKS (COdQL) 
H E FL A fi GrO IN SEG>^^:NT Q (HQHp ?,. jilM'^x) QF 



19687i20 T 
19687140 T 



OOOOiO 
QOOOIO 



X ITS CODE FILE AS HAVING A TASK ARRAY, 

% THE FORMAT Of THE TASK ARRAY (MYSELF AT PRTCTSX3) IS AS FOLLOWS 
_% TSKAC03 g TASKVALUEt PRCVIDED FOR USER 



19487150 T 
19607200 t 
19687300 T 



OOOOIO 
0000*0 
OQQ .O< Q 



X 

X 

X 



TSKACl] 
TSKAt2] 
TSKAC3J 



« 7 CHH MFID OF CODE FILE 
- 7 CHR FID QF CODE FILE 
« STATUS* laSCHEDULED 



19687^00 T 
19687500 T 

19667600 T 



0000 SO 
OOOOJO 
OOOOIO 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 ■ 

21 

22 

23 

24 

25 

26 

27 ,C 

28 

29 

30 

Si" 

32 

33 

34 

35 

36 

37" 

38 : 

39 

40 

41 

12 

♦3~ 

44 

46 s 

46 

47 

18 

•9 

50;-; 

BI'J 
B2 
S3 
S4 

55 ?i; 

58 v: 



X 
X 
X 



2-ACTlVE 
^tuTERMINATEO 
'•2»INITIATIQN 



(OS-ED OR 
ATTE MPT E D 



EOJ) 

BU T FAIUfP 



19687610 T 
19687650 T 
lQ6a?A80 T 



OOOOIO 
OOOOIO 
OQ QQ I O 



9 
10 

12 

13 

u( 

15 
16 

'H 

18 

19 

20 { 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 i 

30 

31 

32 4 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 

44 1 

45 

48 

47 ( 

48 

49 

SO i 

51 

52 

53 ( 

54 

55 

56 1 



X 

X 
X 



TSKAC4] 
TSKAtS] 



= STACKNQl MIX INDEX IF RUNNING 

schedule"IO IF Scheduled 

sHEAO OF LIST OF LOCK-ITEMS IN CONTRUl PR (JuEiiED 



19687700 T 

19687750 T 
19687780 T 



OOOOIO 
OOOOIO 
OOOOIO 



X 
X 
X 



TSKAC63 



« TVPEJ 0»AsYNChRONOUS DEPENDENT (PROCESS) 

USYNCHRQNDUS dependent (CALL) 
2«IN0EPENDENT f RuN/EXECUTE) 



19687800' T 
19687840 T 



OOOOIO 
OOOOJO 



X 
X 
X 



TSKAC73 



* CALL oT aTE» 



0»INITIAL 

Is EXIT PROGRAM/ 

EXIT PROGRAM RgTURN 



HE RE 



19687860 T 
19687870 T 
19687^72 T 



00001,0 
OOOOIO 
OOOOIO 



X 
X 

JL 



TSKACeJ 



2»C0NTINUE0 OR RE-CALLED 
I Clll3«l IFF JUST EXECUTED JNTeRRUPTeR INTHINSq 
AND SFIMTQ IS NON-EMPTY , 



19687874 T 
19687876 T 
1966 7 ^78 T 



OOOOIO 
OOOOIO 

Q Q QQ I Q 



X 
X 
X 



[2113'! IFF SFlNTa IS NON-EMPTY 

C35U51 IFF Interrupter Intrinsic is rUnmng 

[a»l] » SFIWTQ INTERLOCK BIT fON TO START) 



19687880 T 
19687882 T 
19687863 T 



OOOOIO 
OOOOIO 
00 . 1 



X tFFJ « ABSOLUTE ADDRESS OF OLD IRC" 

X CCF] a HEAD OF LIST OF DECLARED INTERRUPTS 

X SEGMENT FOR IPC PROGRAM FIlESI 



1968788ft T 
19687885 T 
19»9 7 886 T 



OOOOIO 
OOOOIO 
OOOQIQ 



X 
X 
X 



SC2].l2!n 
S[23,C3il3 



=1 IF THERE ARE DECLARED INTERRUPTS 

*i FOR AN IPC Program file 

(EITHER INVOKING OR INVOKED) 



19687887 T 

19687888 T 
196 87R89 T 



OOOOIO 
OOOOIO 
O. QQQI O 



NQtEI 



St23,[«ll3 

SC2 3.C2I3 3 

THAT THIS 



1 FOR AN iNVgKEO jPc PROGRAM FILE 
» JARC23,C5J33. JARt23, f 61 13*1 INDICATES TO G0M5 
JOB MAY HAVE DePeNOeNT TASK DeSCENOeNTS TO Be OS' 



p-O 



19687890 T 
19687892 y 
19667fl9<( T 



0000*0 
OOOOIO 
OOOOIO 



% 

% 
% 



UR ES-LD AND LOCK QUEUES TO BE CLEANED UP HHEn IT TERMINATES. 
SC83 NUMBER OF TASK PARAMETERS 10 BE RECEIVED 

( a N HELOK) 



19687896 T 
19687898 T 
196e7gOQ T 



OOOOIO 
OOOOIO 
OGOQtO 



X St93 

X FcRMAT OF Entry in -para 

A C beginning IM WORD 



DISK address of PARAMETER DESCRIPTION SEQ 
METER DESCRIPTION SCGmENTI 

_JJ : 



19687910 T 
19687920 T 
lQ6fl7Q25 T 



OOOOIO 
OOOOIO 
QQQOin 



X 

X 

JL 



[181153 J TYPE - 



TASK ARRAY - NAMe; 

1 EVENT/LOCK - NAME 

2 PRI C^LL, - NAME 



1966793C T 
19687935 T 
196R7940 T 



OOOOIO 
OOOOJO 
OOO OIO 



X 
X 

JL 



3 



-VALUE 



19^87945 T 
19687950 T 
19667055 T 



OOOOIO 
OOOOiO 
0000*0 



X (Only i-dimensional arra 

X C8I103 I SIZE - 
% [331153 i LOCATION 



YS CAN BE PASSED AS TASK PARAMETERS)* 

SIZE OF ARRAY FOR TYRgS 4 AND 5* ELSE 
-PRT LOCATION FOR TYPES Q-4* FPR TYPE «, I 



19687957 T 
19687960 7 
I9<>.a7965 T 



OOOOIO 
OOOOIO 
OOOQIQ 






iiii;iiiii 

A 



X THE F- CELLS tsEE BELQw) 
X OR CAUSES A 1 TQ BE RETU 
X CONTAINS AN "QN EXCEPT 10 



DESCHIPTION SEGMgWT AND THOSE SPecIfIEU 



M. 



19117970 T 
19607 975 T 

1968797? T 



000010 
0000*0 
OOOOIO 



. LACK OF AGREEMENT EITHER DS-ES THE PARENT 
RNeD (IN THE CASE Of A COflOL PROqRaM WhIcH 
N*' CLAuSe). 



19687980 T 
19687982 T 
19687964 T 



OOOOIO 
OOOOIO 
OOOOIO 



mmmgKmmemmm 









OOOOIO 
OOOOIO 

0000*0 



IP 



X TASK ARRAY, THE NEW SHEET ENTRY IS FLAGGED A GO JOB (AS FROM A 



19687998 T 0000*0 



12 
13 
14 
15 
16 
17 
IB 
IS 
20 
21 
22 
23 
24 
2S 
26 
27 



29 

W 
31 
32 
33 
34 
35 
36 
37 
38 
39 



40 
41 



45 
•6 



47 
18 
49 
50 



51 
52 
S3 
54 

55 



8 



% ccmpile-and- 
B EGI N 



■GU), 



REAL MFl0s*z»»Fl0*''5» 



N=-6; 



% FILE ID UF CODE FILE TO 8E INVOKED 

% MFIO<0 IF ON EXCEPTION CLAUSE iS pReSenT 

* flU<0 IF CALL OR CONTINUE STATEMENT 



% NUMBER OF F- PARAMS BETWEEN F'7 AND MKSCW 
% THERE WILL BE A PAIR OF F- CELLS FUR 

it Each task parametfr. fcd contains 

X THE NAME OR VALUE OF The PARAMETER* 
* FC-CI + U) CONTAINS TH£ TYPE 

«..'•: : ., . (AS IN SE6MENT 0). 



ARRAY NAME PARMi 



% (TSKA IS THE FIRST TASK PARAM^TeH) 
% N<0 IF CONTINUE STATEMENT 



ARRAY SC*3#RC*JiiH[*3#Dt*3#WC*3* 

TSKA«-7C*j; % TASK ARRAY DESCRIPTOR FOR PROCESS* CALL 

* INTEGER » TASK ARRAY LENGTH FOR RUnj 



Real T'TUTa*T3*T4,0NEXCEPTlUN,CALLED0RC0NT# 

VArtRAY* IO0*I0Dl»NR*SR/HADDR*PRTRLOC'HRTSZ*ERR'S2#Sl*CR'f rTS; 
LABEL L1»ERR0R^NExTH0|>v>L2,XYT; ^ 



INTEGER PaD0«*A00R; 
DEFINE CONTINUED s VARRAY#, SaVEBIT b IODl#* 
QNfXCEPTTON » WFlD<OJ MFtU » ABSfMriD); 



CALLEL)0!5IC0nT ♦• FId<0; FID * ABS(FID); 
CONTINUED ■<• N<0' N «■ ABS(N)i 
PARM *■ fNi; 



IF CALlEDQHCONT THEN % CALL OR CONTINUE STATEMENT 
BEQIN IF CONTINUED THEN IF TSKaC33/2 OR TSKaCTJ^*! THEN 
\iLSLUi ERR «• IJ TFRMIMATEf PlMIX&VatCTFJli Gn ^>ffi 



If 



end; 

TSKA[3J«=2 

tiEG l N. 



THEN IF TSKAC/Jal 
TSKAC7] 4- p; qO 



THEN 

xyt; 



Ll» 



END ELSE ELSE TSkAC73 «• O; 

end; 

IF (TlcOIRECTQRYSEARCH(MFlQ«FIn^3i3 GEO 64 THEM 

BEGIN IF SECURlTYCHtCKCMFI0,FID*USERCODECPiMlX]#T) 

BEGIN ERR ♦ i; 
IF T GEQ 6H THEN FORGETSPACE( T ) ; 



'0 THEN 



end; 



GO error; 



End 



IF MET INX 43.I9:2JJ<3 THEN GO Hi » MQT EXEcUTAbIe C^DE 



ELSE GO Ll> 

IF TSKA.PaiT Then if TSKAC3]ii Then go li; 

S 4- [M[GeTSPaCE(30>2^0 J*2 3 3&30[8»38»10 3; 



X READ SEGMENT ZERO INTO S 

DISKHAITCS»£CF-3#30*MCT INX lOj); 
IF SCa3^N THEN 



L2» 



BEGIN 

end; 



FO(jJGETSpACE(S); 

GO Li;' 



W *- tMCGETSPACE(T3*N OIV 2+1,2*0 )*23HT3C8 |38 »lO]; 

Read ipc parameter oescription seqment into « 

DlSKWAtT{'*lil«CCf3*T3*A0PR » MCT INX (IQ4( ( T2»St9 3 ? 

INX 83))J3 + (T2 MOD SR)); 



FOR 



DIV (SR*M[T INX 83))J3 
Tl * 2 STEP 2 UNTIL N 00 
IF ^AfmCN0T(Ti 'l)3^W[Tl DIV 23. 

PiiJi 









mm 



|,w^|.|....>^ , ..y^y...^.gy^...-^ 





+ (T2 MOO 
[FF3 THEN 



Mim: 



19687999 
19688000, 



19686050 
19668060 
106ftBn70 



OOOQJO 
Qnonin 



19689000 
1 9689010 



000010 
0000»0 
OQOQtn 



l9689o3o 
19669040 
19689Q50 



0000 «0 

0000*0 
OOOOiO 



0000»0 
0000>0 
OOOQIQ 



19689060 
196890/0 
19691000 



19692000 
19692100 
19692300 



OOOOJO 
0000«0 
0000»0 



0000»0 

OOOOJO 
OOOQtO 



l9693oOO 
19694000 
19695n00 



19696000 
19696500 
1969660Q 



0000 10 
0000 «0 

oooo: n 



19696700 
19696800 
1 9 6 97000 



0000«0 
0000*0 
0QQ »Q 



19697^00 T 
19697300 T 



0009M 
0011«? 
00 13 U - 



1969 7500 
19697600 
19 697700 



001412 
00 14 « 3 

opt ell 



19697800 

19697900 
19698000 



002l«l 
002111 
23' 3 



t 

T 

X. 



19699000 
19700000 
19700S00 



002610 
00261 1 
0028 i1 



19701000 T 
19702000 T 
19703000 T 



0030«2 
0033«1 
0034«2 



0036»2 
003710 
0037«0 



19704000 
19704^00 
19 70 50 00 



0040«0 
0040>0 
0043 «0 



19706000 
19707000 
19708000 



19709000 
19710000 
19711000 



0046*3 
0046*3 
0850*1 



1971U00 
19711200 
19?1130C 



0051*1 
0052*3 
0053*1 



1971U00 T 
19713000 T 
19714000 T 

TWxWxmTT 
I*f7t'«2«?©/T 

itn^iot T 



005311 
0058*2 
0038*2 



0061*0 
0067*0 
0068*0 






n 

2 
3 
4 
5 
6 
7 



9 

10 

11 I 

12 

13 

14 < 

15 

16 

17 ( 

IS 

19 

20 ( 

21 

23 

23 { 

24 

26 

26 ( 

27 

28 

29 \ 

30 

31 

32< 

33 

34 

3S { 

36 

37 

38 \ 

39 

40 

41 4 

42 

43 

44 I 

45 

46 



47 
48 
49 

SO 
51 
52 
53 
54 



11 



19718000 T 0076*0 



n 

2 

3 



10 



12 
13 
14 
15 
16 
17 
18 



19 
20 
21 



23 
24 

26 ■; 

28 



29 



31 
32 
33 
34 
35 
36 
37' 



40 
41 
42 
43 



46 



49 
50 



52 
S3 
M 
is 
J6 



R «. CMCGET!5PACE(5[3J,2^0H2]J&SC3]C8«38ll0i; 
DISKWAITCR.[CF3>S[:3]>F-AD0R » M [ T INX ( lQ»f (PHTS«-S [2] , rCf J ) 



BEGIN 

enb EUF 



OIV SH))J 4 (FRTl MOD SR))> 
rO« Tt * 2 !»TEP 2 UNTll W DO 

IF PARMfNQTfTl*! )1S5 fHtTM 



PAMM[NOTCTl-n] *■ wCTl DIV 2D.CCF3; « 
VARRAY 4. VARRaY + I; % 



% PASS'aVVAl UF ARI^AY 



RELATIVE DISK LOCA- 
TION Of TYPE-2 SeG 



bcgIn 
jemml 



RC«tTl DIV 2].[crJJ * *tPARMcNOT(Tl-2)33;X 
PARMCn0T(T1-1)3 * "977777} % 



PLACE Name 

OR VALUE In 



prt 



% BUILD HEADER FOR NEW CODE FILL IN H 

H *■ CM[GETSPACE(30*2*0i+23]&30ca:38«l0]; 
M&VE(3Q*T I NX QMh n; 



Ht23 «• HtS] <• Ht63 ♦. 0; 
T4 «■ M[T INX 93 ,[43:53-1; 
WHILE MET INX ClQ'*-NR)3^0 AND 



T4 4. NR + 9; 
HL43. [16:203 
H C 93 «• nr; 



NRST4 CO NR * NR*i; % MR 9 g RQwS 



0; 



FOR Tl «• 10 STEP 1 UNTIU T4 DO HCTU •• GETUSERDI SKC SR); 

HAooR *• getespqisk; 

DISKIQCIQO^H INX 0-U 30#HADDR ) i ^ , " "■ ■' ' 



CR ♦ 3[73 ,Cl'F3; 
PRTRlOC <• PHIS DIV sr; 
PADDR ♦•(PRTa MOD SR); 



PRTSZ ♦C(St33+29) olV 
SL£EP(CI0DJ»I0MASK); 
SI » SR-i; 



X SAVE CORE REQ, 

X ROW PRT IS LOCATEU IN 

ilt I^HICH SEGMENT IN ROW 



FOR Ti «■ 10 STEP 
BEGIN IF VARRaY>0 



30); % NUMBER OF SEGMENTS iT OCCUPIES 

at NO. OF SFGS/Rnw 



eEGiN 



FOR T2 ♦ 



1 UNTIL T4 DO 
THEN 
2 STEP 



X COPY CODE FILE CHANGING PRT & 

X PaSS-bY-VaLUE TYPe-2 SEGMENTS 

UNTIL N 00 



If CT1-1C)«(PARM[N0T(T2-1>3 OlV SR) THEN 

X THERE IS A TYPE.2 SEGMENT IN THIS RQW 
BEGIN SZ * CWCT2 QlV 23.C8I103 * 29) DIV 30; 



D *■ PARMtN0T(T2-2)3; 
ADDR *■ (PARf/CN0T(T2-n3 
VARRAY *■ VARRAY-i; 



MOD SR);X SEG NCiN RQW 



T3 *■ 0; 

WHILE T3SSI 00 
btGlNIFCTl-lO)*PRTRLOC 



AND T3»PADDR THEN 



BEGIN DISKWAITCR,[CF3*PRTS/X30*HCT13+PA0PR); 
T3 * T3+PRTSZ; 

END ELSE IF T3«'ADDR THEN 

BEGIN WHitE D»F8IT»0 00 

MAKEFRfcS£NTCC03 INX 0); 
SAVEBIT- * MCD INX NOT 13.C2«l3; 



P(MCD INX NOT 03); 

M[D INX NOT 13. [2113 «■ i; 

0ISKWAITCD.LCF3>SZX30>H[T13*ADDR); 



MCO INX W3T 03 ♦ P(XCH); 

MtO INX NOT Ut£2U3 *■ SAvEBIT; 

T3 ♦ i^*Hi 



END ELSE 
BEGIN 



DlSKWAlT(-S,CCF3»30»MtT INX Tl3*T3); 
IF TlslO THEN IF T3«Q THEN 



;liiii«iiliiliif K»i:;3> .:■■■ •- 



END. 



19719000 
l972QflOQ 



0076«0 
QOSQM 



19721000 
19722Q0C 
19723000 



19724000 
19725000 

19726000 



008310 
0087*3 
QOa^lO 



19127000 
19728000 
19729000 



0091 J 1 
0095 «l 

009612 



19730000 
19731000 
19732000 



T 

T 



009612 

OlOllO 

-04AJ 



19733000 
19733400 
U73 3 6 QQ 



19734000 
19735000 
19735050 



0105 
O1O5 
QlQ9 



Olll 
0115 
QIU 



19736000 
19737000 
19736000 



125 
0126 

Ql28. 



Ol30 
0135 
01 3^ 



19739000 
19740000 

19741000 



19742000 

l9?«3oOO 
10744000 



19745000 
19746000 
19747000 



0139 
0140 

0142 



0143 
0145 
Q146 



19F48000 
19748050 
19749000 



0148 
0149 
.1, /^ 9 



19749050 
I975OOOO 
I975IOQO 



0l5l 
OlSfl 
PISH 



19751100 
19752000 
19753000 



19753100 
19753200 
I97533OO 



T 
T 



0157 
0160 
Q162 



0164 
0164 
0166 



19754000 
19754100 
19754200 



0i68 
0171 
173 



0174 
0177 
0l7» 



1975^250 
19754300 
19754400 



19754500 
19154600 

1 975 800 



0182 
0184 
O I S7 



19759000 
19760100 
19 760150 



01911 

019312 

0197M 



19760160 
19?60a00 
197602»Q 



019812 
0i98»2 
0203«0 



020510 
0208*0 



19760300 T 0212«0 



1< 



sv 



• • 



two; 



h 



( jQ TQ h t XTp^nw; 



ENO» 



end; 

IF (Tl*lO)aPRTRLDC THCN % PRT IS IN THIS ROW 



19762000 
19763000 



0212*0 
0?l?«? 



19764000 
19766000 
l97ft70Q0 



021310 
0215«1 
Q21 5I1 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 



BtSIN 



13 * o; 



19767050 T 
19767100 T 
76715 T 



-LSI 



0216 « 2 
0217 »0 
0.217 « 3 



BEGIN IF T3XPA0DR THEN 

BtGiN Oli«WAiT(-S,CCF3*30^MCT INX Tl34T3)i 
IF TlsiO Then JF T3»0 THEN 5C23.C3»2l 



<• 3; 



19767200 T 021910 
19767250 T 02t9l3 
t97 67?60 T 022 »M 



OIi)«WAlTcS,[CF]*30*HtTl3 + T3); 
T3 ^ T3+i; 



£iND i-:LSE 



19767300 T 0229* l 
19767305 T 0232«0 
19767310 T 0233M 



BEG Ik 

E-NDi 



OlSKWAlT(R,CCF3#PRTS2x30#HtTt3*PAOOR)i 
T3 * T34PRTSZ; 



19767320 T 
19767340 T 
19767^50 T 



0233«1 
023710 
0236*1 



end; 



GO TO NEXTROw; 



FN n; 



FOR T3 «• STEP 1 UNTlU Si 00 X WRjTE OUT ROW UNCHANGED 
BEGIN 0ISKWAIT(-S,f:CF3,30,MCT INX Tn+T3); 
IS Ti:»l0 THEN IF 13^0 THEN SC23>t3»23 » 3; 



19767 370 
19767 380 

1 97673 90 



19167400 
19767450 



0238 « I 
0238 » 3 
0239»-L 



0239M 
Q240I0 
0?4al0 



22 
23 



nextrpw» ; 



end; 



DlSKrtAlT(3,CCt- J*30*HCTl3+T3); 



19767500 T 
19767550 T 
19767(S00 T 



0249»0 
0251»3 
025iLLQ_ 



26 3 



27± 
Z8 



End; forgetsCacecr); forqetshace(t); fqrgetspaceCwj; 

BUILD SHEET SKELETON IN S 
STR£AH($)JB£GIN 30(DS » 6 LiT "0**); ENOi 



19 
M 

31? 



SC20] «- ch; 
SC25] «■ haour; 

siQ] » mfid; 



l976765o T 
19767700 T 
19767750 T 



025^*0 
0259«0 
0259*0 



19767760 
19767800 
19767900 



0262«0 
0263«1 
0264»? 



sen ♦ fid; 

StaJ * StldJ •- PRY0RtPlMIX3i 
X WRITE OUT DUMMY CONTROL CARD FOR LOGGING ROUTINE 



34 
35 



SrR£AM(MID*MFlO*FIfJ*-FlU*T*CH[2]]); 
BEGIN DS «■ 11 HT "CC EXECUTE ** 

SI «• Loc Miu; SI «■ si*i; 



19768000 T 
l«768050 T 
19766100 T 



0265*3 
0267*0 
0269*2 



DS 



* 7 CHR; OS » LIT 



/"; 



19768200 
19768300 
19768^00 



0269*2 
0271*0 
027213 



37 
38 
39 



ENO 



SI * 

.3(05 
stream; 



LOc 
♦ 8 



FID' 
LIT " 



Si ♦ 5i+i; OS * 7 chr; o* ♦ 6lit "IeNo 



40 
41 
«2 

♦3~ 



HC0] *■ o; 
HCi] «- lo; 

SC63 » GEtE^PDlSK 



19768450 T 0274*0 
19768500 t 0275*3 
19766550 T 0277*2 



& 10 LCTf]; 



DlSKwAlT<H,tcn»ll»SC6J INx 0); 
SLEEP(CToaLe3#SHEETMASK)| LQCKTQSCSMEETmaSK j; 
STR£AM(A»OlB»PCfSCHEDguEIOS))f 



19768600 T 
19768650 T 
19768700 T 



0277*3 
0279*0 
0280*1 



•8 



61 i 
S2 



BEGIN sub; 

47(SKiP sti; SKIP oa; tally«-tally+i; 

IF Sb THEN BEGIN END ELSE JUMP OUT); 



19768750 
19768800 
19768900 



0282*1 
0285*0 
0290*0 



19768950 
19769000 
19770000 



029111 
029112 

0292*2 



SC23], [31J 
St2n *■ SC12] 
SC16] *■ SC17] 



CCLOCK+PCRTR)) 
512; 
^377777777777; 



DIV 6o; 



19772000 
19W73000 



m 



iiiiiiiii«iiiiiiiiwi»iii» :■■:•:■ . 

igiigaiiiiiiaii»wiiK^^ 



19774000 
19775000 
19776000 



0294*2 

0294*3 



H[29] ♦• HADDR. 



mmmm 

19778000 
19779000 



0297«2 
0301*0 
30 3 * 1 




19780000 T 0312*1 



1^ 



>r 



16 
17 
IB 



19 
20 



22 



24 

25 /: 



27 
28 



31 



33 



34 
35 
36 

37' 



39 



41 
42 



47 
48 
49 
50 
51 
52 

a 



55-, 



DiSkWaITCH.CCF ]»3U'Tii); 



19781000 



SHEETCOJ.CFF] *• HADDRi 

scan* 01 



ERROR: J 



UNLUCKTOGCSHEETMASK); F QRGETSPACEC S ); F QRGE TSPACECH J ; 
IF TSKA,PBlT THEN 



19783000 
1978«000 

loTB'tonn 



0313«2 



BEGIN 

En d> 



TSKAC3] *■ l"3xERRi 

IF NOT ERR THEN TSKAUJ 



% STATUS! IsCHEOulEO OR ERROR 

* Ti) X Schedule-ID 



19786000 
19767000 
19766000 



0I18»1 
0320 tt 
0321 ig 



0323«2 
0329«0 
O329<0 



IF ERR AND NQT 
PARMCNQT(N+1 n 



QNEXCEPTlON THEN TERmI NATEC P I MIX&94C CTFl ) Eu^E 
*■ EHR; % PLACE BOOLEAN IN WORD BElOw MKSCw ^ OR 
* ON EXCEPTION BRANCH IN COBOL 



19F9i00O 
19792000 
19793Q0Q 



XYTU 



r. Y,',7 H.^'.vrbf f * r"* — vnn--' wn — * , !T, ,,, w ., >^ , v<.;f , r 

PC0IRECT0RYSEARCH(NA8SCMFI0)#F1D»13 3,0EL)#XCLQSE*F0RGET HtADER 

IF NOT ERR Then SELECTItlN; 

IF CALLEDOHCONT AND NOT ERR TH£N SLEEPt t TSKAC7 3 3 . Ul 



19796000 
I97970OO 
1 979 8 0QQ 



0330»0 
0332«3 
335^ 



19799000 
19799050 
19799Q60 



O335JO 
033/ J 3 
3 ^0'? 



END Tisktask; 
PROCEDURE pickthelock; 



03«0>2 
0342« 1 
3^4«g 



BEGIN COMMENT 



THIS PROCEDURE 
LaCK-lTEMS FOR 



HANDLES LOCKING/UNLOCKING OF 
TASKING* IT ALSO HANDLES THE 



START OF HEl 



19800000 T 03<t8«l 

SiZE» 03A9 

19900000 T OQOQ*Q 



WORDS 



MAINTENANCE 



OF A WAIT QUEUE AWU PasSInG CONTROL OF THE LOCK TO T^E 

Fir^sT Process in the wait uUeue' after it haS been 

RELEA5EU BY ANOTHER PnOCESS. THE HEAD OF THE QUEUE 15 
THE LOCK-ITEM Of THE PROCESS 



SEGMENT; OISk 
19900010 
19900020 



ADDRESS 
T 0000 10 
T 000010 



00*92 



OF THE P«OceSS CURRENTLY IN CONTROL ANO 
ENTRIES ARE MADE AT THE END 8F THE QUEUE. LQCK-ITEMS 
ARE IN THE PRT ANC HAVE THE FOLLOWING FORMAT' 

LlUjBl, MEANS LUCkED(L0CK BIT, ORIGINAL ONLYi 

taUJsi* IN CONTKOLCCQNTROL 8lT) 

i:3tl]sl# ORIGINAL LOCK-ITEMCORIGINAL BIT) 



l99C0030 
199C0040 
l99oQ n5o 



19900060 
19900070 
19900080 



0000 «0 
OOOO'O 

oooQ'n 



19900090 
19900100 
19900110 



000010 
0000 '0 
0000 < 



0000«0 
0000 '0 
OOOO'O 



*0» A COPY 
cam* QUEUE INTERLOCKCQRIGINAL ONLY) 
[8»10J»MIX INDEX UF PR OGRAM IN CONTHQLC ORIGINAL ) 

TrT 



sRLLATly/F l-'RT ADDRESS USED TO LINK ALL 
IN CO(\TROL OH IN WAIT «UEuES(COPY) 
[1B8 1^3=P0INTER TO Next process IN WAIT QUEUE' 
r,33U5]«P0INTER 



LOCK-iTeMS 
ELSE U 



19900120 
19900x30 
I99OOHO 



OOOO'O 
000010 
0000*0 



•POINTER 
"LQCKPTR^ IS THE 

CltlJsO, 



TO HEAD OF «U£UEC ORlGl NAL ) 
TU ORIGINAL LOCK- ITEM (COPY ) 
PARAMETER PASS ED AND HAS THE FORMAT* 



19900150 
19900160 
19900170 



OOOOJO 
OOOOtO 
0000 «0 



19 too I 80 
19900190 
19900200 



OOOOtO 
0000 >0 
00 00 10 



cam*!' 



C33«l53»RELATIVE 
REAL L0CKPTRe"4nPAHAMETER 
REAL Q^R,S*T>U>VJ 



LOCK* ELSE UNLOCK 
TEST LOCK BIT^ LOCK 
RETURN A 0* ELSE RETURN 1 



MEANS 



IF UNLOCKED AND 



19900210 
199C0220 
19900?30 



OOOO'O 
000010 
0000 »0 



PRT ADDRESS OF LOCK-ITEm; 



199002<(»0 
1990025Q 
199QQ26Q 



OOOOJO 
0000*0 



ARRAY AC*]; 

DEFINE DSED»CTeRMIX.CCF3»PiMiX)#, 

SUB R OUTINE LTNKITJ 



iMASK«ei:oooooooooooooo*; 



BEttK 



lF(V»»AC5a3«0 THEN AC53 *<»U0CKPTR IftX 
ELSE BEO-IN «MlLE PRTtflMiX,Vl,t8M03 NEQ 00 
V»»PRTCPtMIX»V3«ce-*lQU 

PRr[PlMlX*V3.t8«lOJ««LOCKPTR INX o; 
END; 



19900270 
19900280 



0000*0 
0000*0 



19900300 

i99003i0 

1 99 1)0^20 



end; 



Q|«CPRTCP1MIX#L0CKPTR INX OU INX O; 



19900330 

I99OO34O 
I99OO36O 



0001*0 

0003(3 

00 7( 3 



Aj=PRTCPlWIX*TSxJ;XTASK ARRAY 



iiii»iiiiiiiWiii^ : 



i99iiiPi$ 

I990iti0 



0010*1 
0013*3 
0013' 3 



it 

m 



0014*0 
0018*1 
0C20I2 



19900395 T 0023*3 



2 
3 
4 
5 
6 
7 



If not mcsj.c^jij 
i^rs].r4»i]:=0; 



THEN SUEEPCCMCS]] WMASK); 



IF taCKPTR,[2»l J THEN XTEST 4 UQCK 
BEGIN IF NOT MCSJ.CUiJ THEN XUNLOCKED 
BEGIN MCSJtBNABSCMCS] jAU[CTCUPlMlXC8l3eU0 3J 



19900^00 



00i?5M 
0029»? 



19900420 
19900/J30 
199Q0A4Q 



0032tl 
0033>0 
0035»1 



IF U^S THEN BEGIN 



(iOCCTFj; 

Mcgj.[8«io>o; 

LINKIT/ 



I9900rtb0 T 
199004bb T 
19900460 T 



00 3V«3 
0043 »0 
004Mn 



XM 



LOCKPTRi*0^ 
ELSE LaCKPTR»ai; 



ENU; 



19900465 T 
19900470 T 
19900460 T 



0048 »0 
0048 »0 



10 

11 

12 

'3 
14 
IS 
16 
17 
18 
19 



M[Sll=C*P(DU»)) 

P(XiT); 
end; 



UR imask; 



19900490 T 
19900500 T 
19900510 T 



0051S3 
0054»0 
0054tl 



IF LOCKPTR gTR THENXLU^K 

IF NOT MCuI.CZUJ THENXNOT IN CONTROL 

bfgin if NOT M[si,n»i3 Then 



19900520 t 
19900530 t 
1 9900 §40 t, 



0054*1 
0055*0 
0657 H 



BEGIN MCSj«sNABSCM[S])iiUC 
M[U]«sC(*P(OUP) J OR 
IF U^S THEN BEGUN M 



CTC]&P1MIXC8:38«10]; 
M)&0CCTF3; 

[UKcat iO]»o; 



19900 550 T 
19900560 T 
19900S65 T 



005912 

0064 '0 
0066« 3 



linkit; 



20 
21 
22 
23 
24 

KV 
26*: 

27S 
28 
29 
M 

33 
34 
35 
36 

37" 

38 

39 

W 

41 

42 

43' 



end; 



Ewo Else 



19900570 T 
19900575 T 
l99005flU T 



0070*3 
0072 »0 
007 2 8 



BEGIN 

TSsMCS] INX 0; 

WHILE H[T].[FFJ Nr.Q 



DO T»»M[T3.CFF]; 



19900590 T 
19900600 T 
1 9900610 T 



O072»O 
0074'0 
00;^680 



M[T3.[FF3J»U; 
MCU].tFF3 J«0; 

IF u;'S then arGiM 



MEUltCeaQltOi LINKIT ENQf 



19900620 T 
199006 30 T 
1 9 9QQ<^S Q T 



0181 » 2 
0083»3 



1 9676 000 



MCS]<=(*P(PUP)) OR IMA 

comple><sleepcdsed or I* 

ACClPfNTAL &NTRY AT I 



sk; 

tuJ,C2M]); 



19900660 T 
19900670 T 



0091*0 
0093»1 



IF MtU3.C2»n 
MCS1*'CC*PC0UP) 
P(XTT)/ 



Then 

)&PiMixC8i3ejioi) OR imask; 



19900675 T 
19900680 T 
19 900690 T 



OlOl'O 
0102*2 
QlOfi*! 



end; 

END else else *UNLQc 
BFGIN IF MC S3. [1* 1 3 



K 
THEi\ilii.OC^EQ 



19900700 T 
19900710 T 
19900720 T 



0106*2 
010652 
0106*0 



BEQiN 



M[T» 

IF T 
BEGI 



-M[S 

''S T 

N 



3 JNX 
HEN 



OJ .E2*l3*-0;XTURN OFF CONTROL 



19900730 T 
19900735 T 
19900740 T 



0110*0 
0ll5«0 
0115*3 



a:*h 
r: = a 
IF 1 



HT[Vi 
C5]; 
NEQ 



SM[S] .[81 103»TSX3; 
(LPRT[V^R33 INX 0) THEN 



19900745 T 
19900750 T 
19900755 T 



0116*1 
0119*2 
0120*2 



«s 

♦7 
•8 

49 
50 i 

51 1 

a 

» 

M 

56 . 

56 '- 



BEGI 
BEGI 



N 

£ m 

N ill 



S],tCF3 t^EG (CPHTtV*R33 INX 0) cO 



199oOfSt T 
19900760 T 
19900770 f 



0122*2 
0123*0 
0126*3 



4S 

46 

47' 

46 

49 

50 * 

51 

52 

53 I 

54 

55 

56 ' 

57 



end; 

»»RT[ 



R J=PRT tV»R J , C 
V»U3 .cet 103 > = PR 



8*103; 

T[V*R3 ,r8*103;XDElINK 



19900780 T 
19900790 T 
199Q0fl0J T 



0127*2 
0129*2 
01 30*0 



:ffS' 



II 



E:.^'.Ai5:i*,*WC.I 
3>»(Tl»iWtT3 






19900805 T 
19900810 T 
199 00 8 15 T 



0l34*l 
Ol37»l 
137 *1 



IF T 

BEGI 
ELSE 



NEQ 

N H[ 

M[S 



TH 
T]«-C* 
3 »«AB 



EN 

PCD 

SCM 



UP)) OR m; P(XIT) end 

CS3); 



19900820 T 
19900830 T 
199008 40 T 



0Hl*2 

0142*1 

-OliSM 



IfiPT 

0148*1 

oi»a«i 



57 §://M^: 



mnm 



McS4>»(*P(DUi?) 



IMASK? 



i^ttOliiftli::: 

.tifiiiiwi? 



End; 



19900870 T 0150*2 



>T 



PROCEnURE E.VEM ANDlMEtihUPT/ 



BEGIN 



TYtEg-^f.. 



START OF REL 
% TYPEt ItATTACH INTERRUPT t AT REL«ADdR RfLINT) 



Sizes 0152 

19900 90 Q T 0Q Q0» O 



^OROS 



segment; disk 

19901000 
1 990UOQ 



AOOf^fSS » 00498 
T 0600 to 
T 0000 to 



10 
11 
12 

13 

14 
15 
16 

\i 

18 



RElINTs-5* 
ABSEVTs-6/ 



X 

% 
% 



TQ EVENT (AT ABSQi,UTE ADUR ABSEVT) 
2=DETACH INTERRUPT (AT REL.ADDR RELiNj) 
3«CAUSE EVENT CAT ABSOLUTE AQQR AB^EVT) 



19901200 
19901300 
1990U00 



000050 
OOOOJO 

ooogjo 



REAL K,T*A,5IZE'MIX*J*1'AB50LD»J; 

LABEL aTTACHL*0ETACHL'CAUSe:L'QN'L1»L2'L3'LA>00NE; 

SWITCH S «• ATTACHL^DETACHL^CAUSEi; 



19901500 
19901600 
19901700 



ooooto 

0000»0 
O 00Q»0 



ARRAY SFlNTfclC*J'TSKA[*J; 
NAME BIGGEHU; 
DFFINE IMaSK ~ (*iiOO00OOGOOCC0GC#» EM ASK = li'200O0O0OU0O0O0Q0ii' ^ 



19901800 
199018^0 
199 01^50 



OOOO'O 
000010 
OQOQ»0 



Subroutine detachint; 

BEGIN IF (*BSQLD»PRTCPiMiX,RELlNT3.CFF3>/0 THEN 

BEGIN WHILE NOT HI ABSOtPl* tSU 3 



DO 



19901900 
19902000 
19902100 



000010 
0001*0 
0QO3»3 



ABSULO *■ MtABSOLD3,[FF3; 
IF MtABSULDJiO THEN SlEEPC t MC ABSOLtJ^ ^ ' EMASK ) * 
MCABS0L03 «■ P ( DUP^ LOP* SSP ) J 



19902120 
19902130 

19902 M 



0006 « 2 
0009«1 

0Q l3«l 



19 

20 



K «. T «■ PRT[P1MIX»REUINT3.[FF3; 
A *-CPRTi:PlMIX*RELINT33 INX 0' 
WHILE ^^(:T3.CFF3^A pQ T «• MCT3.CFF3; 



19902150 T 0015«1 
l9902l9Q T OOiato 
19902200 T 0020*0 



23 
24 

25 5; 

26^ 

27',', 

28 

29 



MCT1.[FFJ «■ IF TsK THEN ELSE 

PRT tPlMiX#R£LINT3,[FFl «• 0^ 
MCAbSpLDJ «• P(DuP#LUD*SSN); 



k; 



19902300 
19902350 
19902 360 



0027*0 
0031*1 
0033 *3 



LhOi 



END detachint; 



% FORMAT OF INTERRUPT fIN PRT)l 



19902*00 
19902500 
19,902501 



0035*3 
0035*3 
QQ3A*n 



30 

31 " 



-* UPPER WORD 
A [ 1 1 1 3 - 

_A [ F F 3 * 



(LINK WORD)* 

1 IFF INTERRUPT IS DISALLOWED 

ABSHLUTF ADDRESS QF NFXT INTFRrUPT nN 



19902502 T 

19902503 T 

1 99Q2'^Q<t T 



0036*0 
0036*0 
00 36*0 



32 
33 
34 
35 



36 
37' 



% 
% 



UF3* 



EVENTS ATTACH LIST OR OF THE EvENT IF 
THIS INTERRUPT IS THE LAST ON LIST 
RELATIVE PRT ADDRESS OF NExT DFClArED 



19902505 T 

19902506 T 

19902507 T 



0036*0 
0036*0 
0036*0 



4 

% LOWER WCKHO! 

i FORMAT OF EVEiN 



INTERRUPT FOR THIS PROCESS 
PROCEDURE DESCRIPTOR FOR INTERKUPT 

T UN PPT3* 



19902508 T 

19902509 T 

199Q251Q T 



0036*0 
0036*0 

0036*0 



38 
39 
W 
41 
«2 
«3 



i "ORIGINAL" 

% Clil3* 



EVENT-^lTEM (AT ABSOLUTE ADDR AB^JEVT)* 
EVENT INTERLOCK BIT (ON TO START) 

1 qtSTimquiShfs the fvfnt from 



19902511 T 

19902512 T 
109Qgi>l<t T 



0036*0 
0036*0 



% 

% 



ATTACHED INTERRUPTS 
CFF3: ABSOLUTE ADDRESS Of FIRST INTERKUPT 
ON ATT A CH LI S T . . 



I99025I6 T 
19902520 T 

19902522 T 



0036*0 
0036*0 
0036*0 



45 

«6 

•7 

•8 

•8 

»■ 

51 



% [47*13 

% "COPY" EVEN 
a CCF3* 



* CONTENTS OF TS 
X tl«l3al IFF 

% 



t HAPPEH Bit 
T*ITEM CRECCIveO AS 
ABSOUUTC ADDRESS OF 



A PARAMETER)' 
ORIGINAL EVENT 






to 36*0 

■:iii*i;o^ 



KACBJ* 

interrupter has just run and 
sfinTo is non*emptt 



19902528 T 

19902529 T 

19902530 T 



0036*0 
0036*0 
0036*0 



% t2»U»MrF $r i N to I r NON*€MP T Y 

% i;3»lJ«t IFF INTERRUPTER. IS RUNNING 

X t4in» SFlNTfl tNTERtOCK BIT (ON TO START) 



B2 

a 

S4 

5«S 



% [FF] » ADDRESS OF OLD IRCW 

% tCF] « RELATIVE PRT ADDRESS OF FIRST 

Jl LIST OF DECLARED INTERRUPTS 



19902940 T 
|99fl?550 T 

^99028 .6 T 



0096*0 
003610 

QQ ?6I 



IN LINKED 



19902570 T 
19902580 X 

1 99025 9 i;;t; 



0036*0 
0036*0 
00 36*0 



fmmmm 



■■ffll^iili^ill 






■IWiiiWt'^ 



0041*2 



IF MtABSEVT3S0 THEN SLEEP ( [M [ABSEVT 3 1 *EMASK ) ; 



19902850 T 0043*0 



• • 



2 
3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 A; 

2«| 

27;;/ 

28 

29 

30 

31 

32 

33 

34 

35 



IK (T»M[ABSt:VT3 .[FF 3 ) = THF:N 



prtCpimix 

MtASSevT] 
P(XIT)f 



T «• abs^vt; 



• RELINTJ «• PRTtPlMlX»RELINTJ4T CCtF3&P1MIX t8l38«;0]; 
♦ PCOUP»LOo* C^'RTCPIMIX*RELINT3]*CFX*SSN); 



1V9C2860 T 
1 99Q 2gQ Q . T 



00^7 

. ^ 9 



19903100 T 
19903200 T 
10903^00 T 



0053 
0057 
0060 



DETACML: 

causel' 



DETACHINT 
MCaBSEVT] 

IF MEABSE 



; P(XIT 
»C^7:i] 
VrJ.CFF 



lAO THE 



xset Happen bit: awaken all ye whu wait 

NX IF THERE A RE INTERRUPTS ATTACHeU 



19903400 T 0060 
19903500 T 0062 

199 03 (S Q Q T fiM5 



BEGIN IF MCaBSEVTJJO THEN SlEEPC CMt ABSEVT 3 3# EmASK ); 

M[ABSEVT3 *■ PC DUP'LOD»SSP ); 
A » M£ABSEVTJ.CFF3; ' 



19903650 T 0067 
19903660 T 0071 
1 990 3670 T 0073 



WHILE A/AHSEVT OQ % INSERT ATTACH 
BEGIN * RELEVANT SFIN 
MIX «■ (T*-M[A] J.[g: 103/ 



ED INTERRUPTS IN T^^E 
TQS 



19903700 T 0076 
19903800 T 0077 
19903fll0 T 00'^7 



IF TER 
BEGIN 



MIXtCCF 

IF T.CF 

DO MIX 



JsMjX THEN 
F3^A8SEVT T 
♦ fT*-MfA«-T 



HEN 
.tFF33).railQ3 



19«03820 T 0079 
19903825 T 0081 
1 99Q 38 3 Q T Q0Q2 



Until TERMix,[cF3^Mix 

ly TERMIX.CCF3»Mlx THE 
RFfiJN K[ARaFVT3»PCn 



OR T.tFF3»ABSEVT; 

N 

UPH,nnfS§N 3i PCX ITJiENO; 



19903850 T 0086 
1990 3860 T 0090 
19903865 T 0091 



end; 

TSKA ♦• 

IF NHT 



PRT[MlX,TSX3; 

TSKAfSJ.Liun ^ 



THEN .SUFP(ETSKArfl31»tMA.SK)«' 



19903870 T 0094 
19903900 T 0094 
19 9 03907 T 009*5 



Ti3KAC83 ,1^4! 13 *■ Of 

SIZE *• (bFINT«*PRT[MlX*SFINTx3).[8»103-l; 

. J . ♦• . K ♦ • . 1 .1 j. ^ ^ 



1990390a 
19903910 



199Q3915 T 



0099 
OlOl 



IF NOT TSKAt8j,C3tU ThEN* IF INTERRUPT 
rthlLE JSSUE DO % COMPACT SFINTO* 
BEGIN Jt ENTRIES TqWaRO T 



ER INTRINSIC NOT rUnNING 

Pushing all non-zeRo 
HE FRONT qF The array 



19903917 T 0105 

1 9 90 3920 T Ol07 
19903930 T QlOa 



IF SFlhTQCjJ'O THElN /Ji AND ZERQlNG OUT REMAINDER 

tiEGiN 
i *■ IF KXQ THEN K-»2 ELSE J-H; 



199039^0 T 0108 
19903950 T 0l09 
1 9903960 T QUO 



LIS 



IF i>sizl Then go done; 

IF SFlNTQCn«0 THEN BEGIN I 

K » Tf fio TO La; 



*■ 1 + ij GO TO LU End; 



19903970 T 0ll4 
19903980 T 0115 
10903090 T 0120 



L^» 
LJ: 



L4; 



IF K>SIZL THEN GfJ TO 
IF SFINTQCK3X0 ThEN 

BEGIN SFINTQLJ] 



» sfintoek]; 



19904000 T O121 
19904010 T 0122 
19904020 T 0123 



37 

38 
39 
40 
41 
42 
43 
44 
4S 
«6 
47 

•a 



sJ «. 4+1; K 4. K + i; GO TO L2; 



L4I 



E 



ND/ 
1; 



19904030 T 0i2S 
1990«0<>Q T 0128 
19904050 T 0126 



END 



FQR I «■ J STtP 1 UNTIL K DO SFINTQCI3 «• O; 

else J «• j+i; 



end; 



DONEt IF SFlNTQtSlZea/'O THEN 

IF siZE+6>io23 Then 

BECIN TEf^HlNATE(MlX&l03CCTF3)l 



X QUEUE FULL— GET MORE SPACE 



19904060 T 0129 
19904070 X 0134 
19904|00 T 0136 



1990«300 T 0136 
19904340 T 0137 
19»0<t350 T 0139 



tskA[8j «. *pcDlP) ur imask; a «. t,[FF3;go on; 

END ELSE 

BEGIN PRtCMIx*SFINtX3 «• BIGGERQ «-FLAG( l&t PRTC Ml x# SF I NTX 3 3 



liiPlflfiliKliiiiliSlT 
:«igi«ifililM':i§.^i»x;j»i#«it ■•and., zeros it out 



19904360 T 0i4l 
19904370 T 0146 
19904400 T Ol46 



•9 
50 
51 

a 

i3 
i* 

55 

56 i. 

57 t 



19904*50 T 0148 
19904^00 T 0151 
19904650 T 0153 



M0VE(S1ZE+1'SFINTC*8IGGERQ); 
FORGETSPACEtSFlNTQ INX 0); 
SFINTQ * BIGGERQ; 



19904700 T 0156 
19904850 T 0l58 
19904860 T 0160 



19904900 T OT^ 
19905000 T OlH 
19905100 T 0165 



end; 



lilSiiiiiiiliiilipiiH 

SFINT0CK3 * A-i; X ABSOLUTE ADDRESS OF INTERRUPT PP 



JP 



A *■ T.CFF3; 



19905200 T Ol66«3 



h 



10 

11 



15 
16 
17 



19 
20 



25 
26 
27 
28 
29 
30 



T5>KAC8] *■ *PCUUP) OR ? 1200000000000000; 
\f f^ I Xsp ^ MIX ThE l\ 



BEGIN 

end; 



halt; NOPRaCESSTOG ♦ noprocesstoq- i^ 



ig903j00 



JIM. 



19905320 
19903330 
19909^40 



0l68«0 



Ol?0»3 
Ol73»0 



enb; 

MCABSLvr] 



*■ P(UUP»LOD*bbN)> 



xun. 



End Event AND! nte«rupt; 

X THE FORMAT of SEGMENT ZERO of PRQfiRAMS?! 



19905350 
19905360 
l990ftlOvV 



OlO'O 
0l75«O 
(} 1 7 y » 



19906300 T 017710 

Si2£« 0l78 WORDS 
20000000 t OQQQ «Q 



% 
% 

% 



SCO] 

sen 

SU3 



LOCATION OF SEGMENT DICTIONARY^ 
SIZE OF SEGMENT DICTIONARY* 
LOCAT ION OF PRT* 



20001000 
20002000 
P0003000 



0000' 
0000«0 

oooo»n 



X 

X 

JL 



SC3] 
still 



# $l2t OF^ PRTX •:■ 

* kOCAtlON OF FILE PARAMETER BLOCKX 
» SIZE nr Ft! r PARAMrTrR Bt dckx 



aoooi»ooo 

20005000 
20006000 



0000 «0 
0000 »0 



% 

% 

JL 



s[6],ti m 

SCG] 



1 FUR NEW FORMAT SEGMENT 0# 
STARTING SEGMENT NUMBER* 
FORTRAN FAU L T FLAa . 



ELSE 



20006500 
20007000 
200n7l0Q 



0000 »0 
0000«0 
0000>0 



X 
X 



Strl,C33ll53 » 

s a 3. tie: 15 J » 
ir SfPi < n TH>N 



NUMSeR Of riLES* 
CORE REQUIREMENT / 64X 
Thf jQfl kaS roMPTLrn ttY rnRQLX 



20008000 
20009000 
20010000 



OOOO'O 

ooooto 

0000?0 



% 

% 

JL 



SllS] 



DISK ADDRESS oF LABEL EQUATION EnTrIe^ 
PRESENTED WHEN PROGRAM WAS COMPILED AND 
A PPL I CA BLE TO AL L E XE C UT IONS 



X 
X 
X 



SC 163 
5U73 
SC183 



ESTIMATED 
ESTIMATED 
PRIORITY 



PROCESSOR 
I/O TIME 



TIME 



(FROM 
CFROM 
(FROM 



CDMPI,LAtN) 
COMPIlATN) 
CO MP I LAIN) 



200i0l0U 
20O1O2OO 
20OIQ3QO 



000010 
OOOO'O 

00Q0«n 



20010^00 
2O01O5O0 
2,0 010600 



0000 «0 
0000*0 



% 
% 

% 



Stl93 
SC203 
Sill] 



COMMON VALUE (FROM CQMpILATN) 

ESTIMATED CORE REQUIREmENTSC FROM CDMPIlAtN) 
STACK SIZE (FROM cOMPILATNj 



20010/00 
20010800 
20010900 



OOOOJO 
OOOO'O 
0000«0 



31 
32 
33 
34 
35 
36 
37 ~ 



38 



40 

41 

42 

43 

44 

45 

46 

47 

•8 

49 

SO 

51 », 

52 

» 

54 

56 I 

56iS 



PROCEDURE SELECTRUNi; 



20011000 
2OOII1OO 
20011200 



OOOOtO 
000010 
OOOQIQ 



BEGIN 



START Of K£l segment; uisk address = 00504 

20OII3OO T OOOOJO 
2O01U0Q T OOOOtQ 



Real 



■;MSew ■; 

...MYMSCM- 






*2#" 



200U500 
20011600 
2QOU700 



0000*0 
0000»0 
0000»0 



RCW 

I 

T 



+ 0* 
+ 1> 
+ 2* 



20011800 
20011900 
20012000 



0000«0 

0000»0 
OOOOJO 



L 






20012100 
20012200 
20012100 



OOOOtO 
0000»0 
000*0 



HOH 

LEVEL 

MCPJOB 



+ 6» 
+ 7* 
+ 8» 



2OO124OO 
20012500 
2Q0 1 260Q 



OLA YD I SK 

■■T**ISL|.i«? 



9 



■49*;.;; 

mm:- 



20012700 
20012600 
20012900 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
OOOOtO 



PREVLINK 
TYPE 

stacklOc 



+ 12' 
+ 13* 

+ ia» 



20013000 T 
20013100 T 
20013200 T 



0000*0 

Oooo*o 

0000*0 



ARRAY 



>iiiiiiliS«''*'''''' 



iiiiiia 

mmmmm 



20013300 T 0000*0 
20013^00 T 0000*0 
20013S00 T 0000*0 



SEGO 



+ 1 7 C * ] ' 



20013600 T 0000*0 



• • 



tkp 

.ue u . 






SO 
TSKA 



« NT2C*3» 
s NT2£*3; 



20013700 T 

?n(ll3B.OO T 



oooo«o 
oountQ 



29013900 T 
2001^000 T 



0000»0 
OOOQtO 

noooto 



NAME 

REAL 



AOUH 
PASSUtVtL 

s.valoe 



s l8L +1/ 
' aDOR + I* 
a PASSutV£i, ^ 



20014 300 T 
20014^00 T 

2oni<>500 T 



0000«0 
Q000«0 

ooooto 



ftCTu9NMSCW 
RETURNRCW 



» PASSLEVEL, + J.* 
s RETURNMSCW + 1* 



20014600 T 
20014700 T 

aomaano t 



000010 

ooooto 
nonnio 



10 

11 

12 
13 
14 

15 
16 

17 
IS 
19 

20 
21 
22 
23 

24 

ISf 
26 S 

28 

29 

M 

31 

32 

33 

34 

35 

18 

37" 

38 

39 

«0 

41 

42 

•3" 



DEFINE SHEEJMAX = MIXMAX#; 



2OOI49OO T 
20015000 T 
200i6l00 T 



0000 VO 
0000 «0 

ooofi?n 



XfXX ***NOTE**** 

Xl«* THE VAfilABLES DECLARED ABOVE MUST CORRESPOND EXACTl^ Tq 

%%%% THOSE DECLARED IN PRQCEOuRE SEUECTRUN. 



Sseoiegoo t 

20016300 T 
2QO164QO T 



ooooio 

0000^0 



REAL 



EUVAL 
FBAJRS 



» RETURNRCW + 1# 

* e;:uval * if 



20016500 T 
20010600 T 
a O0l67Oq T 



0000 »0 

ooooro 

OQQO^O 



FPBvERSION 
FT 

L TN nK 



« FBAORS + Is 

» fpbversion* x» 

» FT * 1* 



200l6e00 T 
29016900 T 
gOOl7oOft T 



OOOOIO 
0000*0 

oooQfn 



LINK 

senseval 
sppy AL 



s LINDX + l# 

s link + i# 
- 5EN§£^AL * \» 



20O1/1OO T 
20017200 T 
20017300 T 



0000 «0 

0000«0 
0000?0 






■;»::'.r;Q>:'.;^..:. ■ : 






2001/400 T 
20017500 T 
2QQ176Q Q T 



OOOOiO 
0000*0 
QQQOlfl 



Real 



FTl 

TYP.EQISK 



NTl/ 

N T3r 



20017700 T 
20017800 T 
2OOI79QQ T 



OOOO'O 
0000 «0 
QOOQ « 



COMMENT THE VALUE OF "TYPE" DETERMINES WHJCH PORTIONS OF 

This PRQCEOgWE will be executed. This procedure can also 



determine rtHlCH PQHllQNS OF PROCEDURE "SElECTRUni Will BE 

Executed by AssitiNiNG A negative value to "type" before 

RETURNING To THAT PHOCEUURE. 



20016000 T 
20018100 J 

20016200 T 



ooooto 

OOOO'O 

ooooio 



20018300 T 
20018AOO T 
20OI85OO T 



0000»0 
OOOO'O 
OOOO'O 



END OF COMMENT* 
DEFINE STARTINO 



X«i 



CONTINUEINQ 
(SUIT TING 
RUNING 



20018600 T 

zooiaroo t 

g'OOlSftOO T 



OOOOIO 

ooooto 
ooooto 



2«* 

3*/ 

4#> 



20OI69OO T 
20019000 T 
200lV|00 T 






OOOOIO 

oooo«o 

OOOOIO 



45 .■• 



EQUATING 



■■■« 






DEFINE XCLOCKTIME 3 ~ ""~~~" 

(((NT2»s(XCLUCK OIV 36003) MOO 60 + (nT2 DIV 60jx100 ♦ 

0t5 ) Qiv ix; 



OOOOIO 

^■piil;o.'; 

OOOOIO 



16 

♦7 

u 

49 I 

50 I 
Bl| 
52 

a 



20019500 T 
20019600 T 

20019700 T 



OOOOIO 
OOOOIO 
OOOQIQ 



<mmi^mmmmmmmmmm 






OOOOIO 

ooooro 



+ CNT4 rtOD NT3) + 0,5) UIV l)*i 
SET OMIT a NQT(PACKETS) 



2002O1OO T 

20020110 T 

20Qg.Pl..l9„j.,. 



OOOOIO 
OOOOIO 
OQOOIO 



M» 



mmMmmmmmmmm 



iliilli 



VBMtJMMgtSMBBiiiMSi^SMS 



^*iiiiiiiti*iiiii»^i;'«i*it^K»-': ,•• • s top ;• 



ii^^lSiiivliaitffiiiv^ii#i^ 




■m 






MJ li P 



Subroutine delk^k; 



20O2O5OO T OOOOIO 



n 

2 

3 



% DELINKS THt ShtET ENTf^Y ANG RlTURNS SHELT DISK SPACE 
BF Q I N 



200i;0600 T 
2.QQ2P7Qt) T 



0001 »C 



STREAMC A »»SU3,C8 1 101*BS«P(, SCHEDULE IDS)); 
8EGIWI X MARK SCHEOULE SlQT "OPEN" 

SKIP A pa I OS I PRESET I . 



20020800 T 
2002C900 T 

?nQ2ioon T 



0001*0 
000213 
Q0Q2n 



end; 
if f s then % sheet entry not passed as parameter 

flEUlN 



20021100 T 
20021200 T 
20021300 T 



0003 « 2 
0003 13 

nonqt? 



10 

11 

12 

13 

U 

IS 

16 

17 

IS 

19 ~ 

20 

21 

22 

23 

24 

2S 

26:'; 

27 S 



IF NEXTHNKsO THEN SHEET C LEVEL ] .IFF 3 l»PREVUI NK; 
IF PREVUNKsO THEN 
6E0IN 



SHEtTCLEVEUJ<ccF j»=nextlink; gq olx; 
end; 

IF L B t = q THt fN : 



20021-nOO 7 
20021500 T 
2fiO?l6QQ T 



000510 
OOOQll 



20021700 T 
20021800 T 
20(121900 T 



000V>2 
001210 
001 2>n 



BEGIN 

MCCLBL»»tM[SPACE(30JJ]&30C8;38:i0n INXNOT l3 » C 9 163 » i»0; 

£nq ; 



DISKPITC-CLBL INX OJ' 30* PREVLINK); 

LBLL29J:='NEXTLINK; 

DISKWAITC ClBL INX 0)* 30* PREvLINK); 



OLX» FORa£T£SPoiSK(THiSLiNK); 

end; X IF SHEET ENTHY NOT A PARAMETER 

:■ ■■ • ■ 'END; delink;. \ ■; ; ;. . :.' ■■■.•■;-■■■ . •■■' : ■ '" ' . : 



P(MYMSCW» STF); 



PC0» 0' 0* 0' 0* 0' Ot Of 0' 0' 0); X FQR variables LOCAL TO T^IS 

% PROCEDURE ONUY 



20021910 T 
20021920 T 
20021930 T 



2002200O T 
20022i00 T 
20022200 T 



0013*0 
0013«2 
002 012 



002C»2 
0022*3 
0024 JO 



20022300 T 
20022^00 T 
20022'SOQ T 



0026«0 
0026«3 

0026*3 



20022600 T 
20022700 T 
2002 2flOO T 



0027*0 
0027*0 
00 2 7* 3 



20022900 T 
20023000 T 
2nQa3i0{j T 



0027*3 
0030*2 

onanl? 



28 
29 



30 
31 ' 
32 
33 



IF type'continueing Then go to continue; 

IF TYPE=STARtING then % SEARCH jHE S^EEt QuEuE TO FIND A CANDIDATE 
^ % FOR SELcCTIUN 



20023200 T 
2002 3 300 X 

20023i^00 T 



0030*2 
0O3l«3 
00 32*2 



BEGIN 
S SET OMIT s N0T(8HEAK0UT) 

For LEVELtsQ STEP 1 UNTIL SHEETmaX QQ St FOR ALL "SHEET PRIQRITIeSw 



20023500 T 
20023700 T 
20024ft0ti T 



0032*2 
0033*0 
003310 



M 

3S 

36 

37" 

38 

39 

40 

41 

42 

43 

U 

4S 



BEGIN 

prevlink»snextlinks=o; * reset for each "level" 

% IF THeBE is AN ENTRY IN THE SHEET* SEE IF IT wILL FIT 



20024700 T 
20024800 T 
20024000 T 



0034*0 
0034*0 
■90,35*1 



lFtTHlSLlNKj=SHEETtLEVELJ,tCF3 ) NEQ THEN qQ TO LEM; 
CONTINUE* 



20025000 T 
20025100 T 
g Q02$ ?0Q T 



0035 « I 
003713 
0037*3 



% "NEXTLINK" OBTAINLD FhOM "SHEETC293" BELOw 

* IF THERE IS ANOTHER EnTry aT THIS LEVEL* PROCESS IT nqW 



20O253OO T 
20025400 T 
20O255OO T 



0037*3 
0037*3 
0037*3 



iFCTHlSLZNKieNEXTLINK) NEQ Q THEN GO TO LEM; 
END; 
TYPE l« -QUITTIiMG; % END OF SHEET SEARCH 



20025600 T 
20025700 T 
gOQgSftOQ T 



0037*3 
0039*2 



4S 
4« 

47 ( 

48 

49 

E0< 

51 

52 

53 ( 

S4 

55 

56 ' 

57 



46 
47 
W 
49 

SO 
51 
52 
53 
M 
55 
56*1 



GO TO exit; 



LEM* 



2OO259OO T 
20026000 T 
20026100 T 



0042*3 
QG43*l 
00 4 3 *1 



X AT THIS POINTJ THE«£ IS A CANDIDATE FOR SELECTION 
IF S , THEN X NO SHEET SPACE OBTAINED .YET . 



20026300 T 
aO026300 T 
a 0026fl Q T 



0043*1 
0043*1 
0043 H 



BEGIN 

S Ja [M[GETSPACE(31,2*0)+23 J&30t8J3a*l03; 

en d; . , - . . 



20026500 T 
20026600 T 

2Q0267QQ T 



0044*1 
0044*3 

Qoaais 



« R EA n 'SHE ET ENTRY INTO CO RE AT "S" 



t ". » ■ t 






0048*2 
0048*2 
0048 1 g 



20027100 T 00^0*2 



• • 



>r 



NFiXTLINKJsSt^?]; % NEXT ENTHV In SHEET flUEUE AT THIS UEVEt 



**«** 



*** 



****ilr 



**** 



***** 



2002^200 
200273no 
20027400 
20027500 
2002?600 



0048 J2 



0050*3 
005113 
005lt3 



% 
% 
% 



*** 

* 



* 
* 



* 
***** 

* 



* * * 
***** * 

* * * 



* * 
***** 

* * 



20027700 T 
20027800 T 

2 00 27 9QQ T 



0Q5n3 
0051«3 
Q0 5l»3 



4 

sl 

6 

7 

8( 

9 

10 

,i4 

12 

13 

14 ( 

15 

16 

17 ( 

IB 

19 

20 \ 

21 

22 

23 ' 

24 

26 

26 < 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 t 

36 

37 

38 I 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

S0< 

51 

62 

63 < 

54 

55 

57 



7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 /t 

26 

27 

28 

29 

» 

31 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



*** 



***** ***** 



HDR»aflETSPACE(3O*(SL03 LSS Q)>Q»Q)42f % S £03 . C 1 1 1]** 1 FOR CQWPtLE JOB 



% THE EXTRA l*0«U IS FOR COMPILATIONS (JARC30]aFlO OF OBjECT FILE) 
DISKWAIT(-HDR# JU, StgSJ); * R£AD FILE HEAOER InTO CORE AT "HoK" 

Gr TO exit; __^ ^__. 



200280tJO T 
20020100 T 

aooaeaoo t 



20026400 T 

2OO289OC T 
2Q029nOO T 



005113 
0051*3 
00 S1 <3 



0055M 
0055»1 
0057»0 



EkO; X IF TYPE "5 STARTING OR COnTINUEING 
If TYPEgPASSlNCi THEN % PASS THIS ENTRY WITHOUT DELINKING 



20029100 T 
20029200 T 
20029300 T 



005712 
0057*2 
0057 t2 



BEGIN 



***** ***** ***** ***** 



20029400 T 
20029500 T 
2Q029 ft00 T 



0058*1 

0058*3 
0058* :? 



X •; ', • * A ** *-■■:•; ;■**:•*;* *.■•. ■' ;,** * * ♦', ;::■/■■*>* ** 

f-^ •-■■* ' ■* .''.'.,* '••■,; :'" ■■■ *'■.'.■ ';■; * 



20029700 T 
20029800 T 
200g9g00 T 



0058*3 
0058*3 
0058*3 



***** 



***** 



IF SC33 GTH Q :< SC 3 J « [ 1 : 1 ]aO FIRST TIME THROUGH 



200 30000 T 
200:}0i00 T 
^003 20 T 



00-58*3 
0058*3 
Q05fl*3_ 



% SET OMir a Packets 

AND SCHEOMSG 
t POP OMtF 



20030249 T 

20030250 T 
2Q030g5l T 



0059*2 
005912 
00 59* 3 



THEN BEGIN 

S[3]»=«NABS(SC33)^ » 

IF F=o THEN * Sheet 



MARK IT SCheDOLeD 

entry NQT passed AS PARAMETER 



2OO3O3OO T 
2OO3O/4OO T 
20030500 T 



0059*3 
0061*1 
0063*0 



I WRITE THE CJHEET ENTRY BACK OUT WITH SC33 "MARKED" 
DISKWAITCCS INX 0)* 30* THISLINK)J 
STR£AMCc*«t.£V£L# At»St*3* In t "SC 33 » C 8 * 103» 



20030600 T 
20030700 T 
2003QflQQ T 



0063*3 
0063*3 
6 6*1 



$ SET UMIT s nqTcocspo anu daTacqm; 

QIaXCliOCKTIME* B:sHDR); 
B. FG IN 



20031000 T 
2003150U T 
20031^00 T 



0068' 1 
0068*1 
00 73*0 



si'sLOC c; DS»»6DEc; oitsoi-6; 
Di**8; oi«»oU6; ds»*ht"*"; 

SH,AJ SU»Sl4i; DSt«7CHRJ 



DS»s5FlLLi 



X PRIORITY 



20031700 T 
20031800 T 
20031900 T 



0073*0 
Oe74*0 
0075*0 



Slt = Si + i; DS!=LlT'V"; DS:*7CHRi 

0SJsLiT"s"; sijsLOC id; DSJs2DEC; 
DSI811 lIt'* scheduleu "j sn»Loc q; 



DSJsiiDEC; 



% FjO 

% ScH.Ntl. 
% TIME 



2OO320OO T 
2OO321OC T 
20032300 T 



0075*3 
0076*3 
00 77*3 



«5 

M 

»7 

•8 

49 

50 ■;■■; 

B1 3" 

52 

53 

54 

55 

58 :;fi 



* SET QMIT 1 






^iifsi*fic:0M^>- 



20032400 T 
20032900 T 
20033000 T 



0080*0 
0080*0 
0080*2 



% SET OMIT « NOTC DATACOM i 

SPOutERCHDW»'JNlTN0#SCHEDMS6); 
END X IF SCHEOMSG AND FIRST TIME 



through 



20033200 T 
20034000 T 
200 3 4 1 00 J 



0080'3 
0080*3 
0081*2 



liiPl" 



'ELSE • f'omm^M&mmm 



ilii|i:S;:i|||||||^^ 



OlSKWnt6F;cCF3;3a;r:-GErESpDlSKV; X entry to 

FORGE:TSP|(iCE(S[733; X CORE ADDRESS OF SEGMENT ilERO IN SC73 
IF 3EGOaSt73 THEN StGOJaO; X AVQlD "DUUBLE "FORGETSpACE" 



irnir 






20034500 T 
20034600 T 
200 34610 T 



bod6*o 

0088*2 
0089*2 



■ 2..oi*lf|iiSf a 

•iiiiiiiMli 



iilp^^liii^Ri^li 

iiiiiM8ii«itti^Miiii 

locktogcSheetmask); 



0092*0 
0092*2 
0093*0 



20035000 T 0094*2 



w 



10 

11 

12 
13 



14 

15 _ 

16 

17 

18 

19 

20 



21 
22 



23 
24 



25 
26 
27 
28 



29 

30 



31 

32 ; 

33 
34 
35 
36 



37 
38 
39 

to 

41 
•2 



46 :: 
•6 
47 
•8 



49 

50 



51 
52 
53 
S4 



55;; 

56 1 



oHEETLOCKED 



• - 1 / 



IF CI.»«SC23.tCf3) GTR SHEETMAX THEN ll»SHEETMAX; 

X SHEeTC23.CCF3 9 "SHEET" PRIORITY 

IF SHEETaJtUF] NEg Q THEM Jt SHEET tUEUE ALREADY EXISTS 



BEGIN % LINK IN THIo ENTRY 
OISKrtAlTC-F.CCF3»30,U=3HEETtL3.tFFJ); 

S[293:'=T^ % Link to Thls entry 



*TAlL Of <JUEUE 



DrSKWAITCF.ceFr#30*IM 
ELSE SHEET IL J f «T J X EST ABL I SH 



SHEETtLJ.CFF J:=t; % 

TYPE «= -QUIFTING) 

GO TO ExiTJ it PONT PRQCaaS 



% REPLACE ENTRY 

NEW SHEET mm^ 



LINK IN AT END OF QUEUE 
ANY MORE ENTRIES 



end; 

SET OMIT 5 NOT(BREAKOUT) 

prevlinki»thislink; 



If 



MIX LEQ 
BEGIN 
TYPE r- 



MIXMAX THEN 
-r.Qi\TTNUFlNaf 



GO TO 

END 



continue; 



Else 



BEGIN 

TYPE :* -quitting; 

GH TO kxit; 



end; 

END^ X IF 



TYPE s PASSING 



IP TYPe»RUNING then % SPECIAL HANDLING F^R "RUN" JOBS 



X 

X 

X 



_*Jt**JL 



*•** * 



**** 



*•*** 



* . ; ■.•.*; 



*■ 
,* 



* 
* 

* 



■* ■ ■;* ■ 



It 

'■,♦ 



* 

* 



'■,*■■■ 
■,.* 






* 



***** 



* * 



* * * * 



***** 



* * ** 



***** 



6EQ I. N 



IF SC23»C2»lJ NEfl 1 TH£^ X St2].C2«l3«l 

FDR J*«l STEP I UNTIL MIXMAX DO 

IF JARCI#*3 NeO THEN it 40B RUNNING AT 



IF (StO] EQV JARCI^O J)*(NOT 0) AND 
(Sen EQV JARtlMJ)s(NOT 0) AND 
PRYQR[I J GEU THEN 



WHEN ES"»ED 
THIS MIX INDEX 



BEGIN X JOB IS ALREADY RUNNING 
S SET OMIT » N0T(DCSP0 AND DATACOM ) 

ir BOJMESS THEN 



BEGIN 
$ SET OMIT a NOT CUCSPO AND 

RMSGt BEGIN 



DATACOM) 



•^Tiiiiiiiiif lif i^m»»iA:«f?,i»f f i# ■ f, ■ •X' sun *pri oh i t y 

iiiife 



20035100 



20033300 
20035400 
2QQ355Q0 



0098'0 
Q09fl«3 



0098 » 3 
D 102 » 
0102<0 



2003b600 
20035700 
20035fl00 



0103J2 

0104S0 

Ol 07'2 



20035900 
20036000 
2OO361OO 



oioa«3 

0ll0<2 
OilO«g 



2OO362OO 
20O363OO 



O1I2S1 
011451 
0115»1 



2OO365OO 
20036700 
20 0371 00 



0U5«3 
011513 
0115*.'^ 



20037200 
20037300 

?nn37/inn 



20037500 

20037600 
20037700 



0116*2 
0U7U 
0U7« 3 



20037800 
20037g00 
2003^000 



Oll8«3 
0U9«l 



0U9«1 
0119J3 
012053 



20038100 
20038200 

gonaflgno 



20036500 

20038600 
20036700 



20038800 
20038900 
2QQ3 900 Q 



O12111 
0l2l«l 



0121«1 
Ol22»0 

012250 



0l22»0 
Oi22»0 
Q122»0 



20039100 
20039200 



20039400 
20039500 
2Q039A00 



012250 
012250 
0122 50 



T 
T 



012212 
124 10 
Qi26lQ 



20039700 
20039800 
20039900 



012750 
013050 
013253 



20040000 
20040100 
2Q043nOO 



0l34»0 
0l34«2 
134* 2 



20043i00 
20043200 
20043600 



sijsLoc c; osi = 6DEc; dh«di-6; 

DI«»B; DI5SDI+6; DSJSLIT"5"; 

sit*A; sij=si + l; DSJS7CHR; dSj'lIt**/"; 



mmmmMmmmmmmmii 



DSl»5FlLLi XPRlQfi 

X mfio 



20043700 
20043800 
2Q9439Q0 



013551 

013513 

Qi3 , 5 , 53 , „ 



0115 « 3 
013711 
9142 » 



i»20EC; 






FID 

MIX, 



20044000 
20044400 
20644260 



OS5a4DEC' 0S5*LIT"<-"; 015=01-16; DS««FILL;X TIME 



20044500 

20044600 



014250 
014350 
014450 



liiKl:- 
9t46«3 



T 014851 



3 



n 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

ZG 

26 

27 fc 

28 

29 

30 

31? 

M 

33 

34 

35 

36 

37" 



END strlam; 

i»P0LT(hnR&SL23]f9t9>9]); 



$ SET OMIT « 



&N0 

NOT CDCSP 

EN D * I 



* IF 80J MESSAGE 

ANC OATACOM) 

F RQJMFSS 



SHOULD BE SENT 



20044700 T 
2nQ<t48QQ T 



20044900 T 
20045000 T 
9n045-^QQ T 



0149*2 

Q149«3 
Ol5l»3 
015113 



ELSE FOH^ET 
% BUMP OPEN 

F UHfi E TSpAC F 



SPACECHDH^; 

COUNT BACK qQWN 
fDIR[:CTnftYSr.AHCH( 



ARSCStQ]), 



2OO454OO T 
2OO455OO T 
20045600 T 



015113 
0155J3 
Q155<3 



FORGETESPDI 



IF SCO] LSS THEN "DISK • 
SKCSC6] INX 0); % CARD IMAGE 

SAVE LI^^ Tn label equation 



ELSE 5c 13* 

FOR LOG 
CARDS 



I3JJ' 



20045/00 T 
20045800 T 
20045900 T 



oisrio 

0l60«2 
0lft2l0 



WHILE T NEQ DO « FORG£T LABEL EQUATION SEGMENTS 
BEGIN 
DISKWAITC(S TNX 0), 30. T); 



20046000 T 
20046100 T 
2 0046200 T 



0163 JO 
016411 
0164 «1 



FORGETE 
Tl»St29 
ENDJ 



SPDISKCT); 



20046300 T 
20046400 T 
20046SQ0 T 



016612 
0l6r»l 
OI69II 



OELl«Ki X D 

IF F=0 THEM 

8 EG1 N 



ELINK The ENTRY pROM THE SHEET QUEUE 
% SHEET ENTRY NOT PASSED AS A PARAMETER 



20046600 T 
20046700 T 
20046600 T 



Oli'OJO 

0l7l«0 

JLLZJJLJ. 



TYPE 19 
GO TO C 
END 



-continueing; 
cntinue; 



20046900 t 

2004/000 T 
200 47 i0 T 



0172»1 
Ol73»l 

1 7 3 r^ 



ELSE 



BEGIN % 
TYPE 8s 



60 10 exit; 
End; 



SHEET ENTRY 
•OmTT I NC i i , 



Passed as a parameter* dOnt continue 



20047200 T 

20047300 t 

2 00 4 7400 T 



end; 



200475O0 t 

20047600 t 
20047700 T 



0173«3 
Ol73«3 
0l7 4» l 



Ol7S!l 
0175»3 
0l7S»3 



END OF SPECIAL HANDLING UF RUN CARDS; 



I F TYPE = EQUATING THEN 



20047e00 T 
20048000 T 
20Q 48 1 Q0 T 



0178*0 
0178 «0 
Ol 7fl « n 



BfGlN 



,**■#♦**■■ ■, **:♦**; 



*:#«** 



20048200 T 
20048300 T 
2 00 48 40 T 



0178»3 
0l79»l 
Q170M 



% 
% 
% 



* 



* * 
***** 

* 



* * 
***** 

* * 



20O485OO T 
20048600 T 
20048700 T 



0l79ti 
0179«1 
Ol79»l 



■;0.. 



***** 



rp&i»6l.TSFAcE C SEGOt 5 3 InX 1 #0»0 i'^l j 



20048800 T 
20048900 T 
20049000 T 



0l79»l 
0l79»l 
Ql79»l 



40 
41 
«2 
«3 
M 
45 
•6 
♦7 
•8 
48 
SO 
51 
52 
53 
54 
55 
56 i 

62 1 



X SEGot33 » SIZE OF THE FILE PARAMETER BLUCK ON DISK 

X SEG0C43 » RELaUVE DISk ACDRESS OF THE FILE PARAMETER BLOCK 

X SEG0C73 = NuMbER OF FILES IN THE F.P.B. 



X ETRLNG * NUMaER qF WORDS PER FILE USED IN TH£ F,P,B« ^~'~ 
MtseOOtSJ INX FPB3i«<j; X set to zero TO INSURE THAT STREAM STATEMENT 
X USEU TO BUILD ^'IN^qORE" FPb WILL NOT SKAN 



20049i00 T 
20049200 T 
_250493l00I_ 



20049400 t 
200*9500 T 
20049600 T 



0182»1 
0182M 
018211 



018211 

oig4ta 



THE COMPILER QENERATEO FPB. 
LOCATION 



20049/00 T 
20049800 T 
20049900 T 



0184 » 2 
0l84»2 
018B»0 



% PAST THE END OF 
Fp»»GETSPACECSEGO[7 3.tCF]xETHLNG'0M3*2' 

X ''FB" ^^ILL gE "IN'OORE** FIlE PARAMETER BLOCK ____„„„ 

0lSKWAlT(-fPB, SEG0C53 {NX 0* ACTUALD lSKADDRES5(SE G0C43 , CC 3 J ); 

COMMENT-FORMAT PF COMPILER SENEHATEQ FPS I 
clHRrTluNO^S 



0188^0 
0l96»2 
019612 



* FILE NUMBER C12 BIT BINARY) STARTING WITH 1 

- FILE TYPE 
s MFID 



20050000 T 

aoosoioo T 

gOOSOgOO T 



20050300 T 
20O5O4OO T 
2OO5O5OO T 



0196»2 
01 96 > 2 
0196«2 



CHR. 
CHRS 



4 THRU 10 



immnmmm 

20050900 T 



019612 
0l96«2 



■mmtmUmmitM:m^^^^ C 6 BIT B I N aR Y 3 

iiiiilirililiiiiilii»^ 

FOR VERSION 1 (VERSION NUMBER IN SEGO [ 53 . 1 1 « 83 J 



h 

2 
3 



13 



16 
17 
IS 
19 
20 
21 
22 



24 

2S;r 

26' 

27 

28 

29 

» 



32 
33 
34 

3S 
36 

37' 

38 

39 

40 



41 
«2 



15 



»7 
48 
49 



SI 
52 
S3 



55 

5«i 



m 



NEXT TWO CHARACTERS FOLLQwI^G INTERNAL 
JMJJJ = SENSiriVL BIT 



NAME COnTAInI 



U3J53 



DISK SPEED (UFAST* 
EU NUMBER ♦ 1 



2»SL0W, 0«USPECIFIED) 



COMMENT FORMAT OF "IN-cORE" FPB i 5 

WURDCOl.C 6:42J = MFIO 
woRncna fiM?J » Fi n 



worqs for each file entry ) 



WQRoCgJ.t 11173 
WORDCe3.Cl8t303 
WQRnC$3.E US 3 



WORD C 3 3. C 6»in 
WORDCa3,[l5U i 
W0RDr31,Cl,6>g J 



» REEL NUMBER (3 BCL DIGITS) 
« CREATION DATE (5 BCL DIGITS) 
s CYCLF NUMRFR fBTMARYl 



W0RDtl3.tl8»S 3 
WORDC33,C23ll 3 
WQRDf 33,C24n?3 



' PRN (PHYSICAL 
» SENSITIVE BIT 
g DISK SPLFO 



REEL NUMBER) FOR NON-DlSK FIlES 

(DISK FILES ONLY) 

(OTSK FILES ONLY) , 



END 



W0RDC3 3.C3S«6 J 
WORD C 3 3, [ 43 » 5 3 
GF COMM^NTJ 



EU, NUMBER+1 (DISK FILES ONLY) 

10 CODE (InPUT«0*0UTPUT»1) 
MiMHrft Or gRRflBS 



= LOGICAL UNIT 
s UNIT TYPE 



NUMBER + I 



FpBVERSlON»''3EGOC53,tU83; % NEWER VRSn, CONTAINS EU»SpD'ETC. 
STREAM(T0Gt«CFPBV£RSl0N»n»Tl|aQ^T2iaO#C»«O*FPB<F8); 

BEGIN 

Slt=FP8> 
LLl IF bc~"0" ThE^ % FIRST DIGIT OF FILf NUMrfR 



^EGIN 

SitsSl+i; IF SCs^O" 

FND F_l SF SI;sSI*1 ; 



Then qO to U2i » end qf fpb 



bii=si + i; Tn*si; sii»si + i; % file type location 

2(DS«*LIT''0"; DSJ=7CHR)^ « MFID»FID 

T2?*DlJ DllgLOC CJ DItaDI*7; DsigCHR; DIi»T2; XlNT«NAME SizE 



DSl»l5UiT''0''J X ItRQ OUT REEL* DATE* CYCUE^ETC, 
T2iaSU Sn«Tl; DSi»CHR; 5II»T2; X PILE TYPE 
GO TO SK; LH GO TO LL; L2l fiO TO XXiT; SK t 



SI:=SI+C; % SKIP OVER INTERNAL NAME 
T0G(T2J«Di; Dn»Dl-6; SKiP ioB^ SKIP 4Sb; 

IF SB THEN DS;c SFT EL^^E qSIsRESET; SKIP SB; % senSitivf 



aCIF SB THEN 
5CIF Se Th£N 
Dn»T2)J 



OSlaSET ELSE DSf«RESET; SKIP SB); X SPEED 
OSl«S£T ELSE OSt. RESET; SKIP SB); X EU 



OS8*8lIT"0«; X ZERO OUT FIFTH WORD OF FB 
GO TO Li; 
XXITl END STREAM STATEMENT; 



, •, 1 F: .M|ft^i;ifclif i;ii|Ti.-.Sf :fiPi> 
XXX Label EauATiON Pf^ocESsiNc 



^iS;;,; t4iftl»A;^i#i*'Af ION fOR ' " S Y ST.EM" ,. JOBS 



CpMMENT LABEL EUUATlON RECORD FqRMATI 



HOAOC 
XQRDC 



0} 
JJ. 



■9 
m 



WORDC 2 



3.cm73 
.tla«3o3 

.C42ii 3 



MflO 
FID 



{ ZERO* IF NONE OIVEN ) 



REEL NUMBER C 3 
CREATION DATE ( 
MARKER FDR FILE 






BCL DIGITS ) 
5 BCL DIGITS ) 

OPEN ( 1 » COATE given ) 



iif^ 



[42*1 3 5 "FORMS" REQUESTED 



20O5I0OO 
2005nQQ 



20051200 
200S1300 
2QQS1400 



0196«2 
0<9ft»? 



2OO5I5OC 
2Q051600 

20Q517Q0 



019612 
019612 
Ol9rtlg 



2005ie00 
20051900 
20Q520QQ 



019612 
0l96»2 
Ql9ft>2 



20052100 
20052200 
20 5?3 00 



0l96»2 
0l96»a 
Ql9ftlg 



20052400 
20052500 
20052600 



0196)2 
196 1 2 
1 96 » 2 



20052700 
20052800 

20052900 



20053000 
20053100 



0l96»2 
0l96»2 
0l96ta 



0l96»2 
0l96«2 
019 6 12 



019612 
0l96«2 
Ql9aln 



20053300 

20053400 
20053500 



200536.00 
20053700 

20053600 



0200»2 

0200 < 2 
0200»^ 



20053900 
20054000 
200 5 <H OO 



020111 
0201 1 1 

Q2Q2H 



20054200 
20054300 
20054400 



Q202V3 
0203>2 

2P4 . « 3 



20054500 
20054600 
20054700 



020610 
0208U 
0209M 



20054600 
20054900 
2005SQ00 



021010 

0210«2 
0212«0 



20055i00 
20055200 
20055 3OO 

"Wiliiil 

20055600 



021312 
021512 
21 7* 2 



0216«0 
02l9«l 
0219»2 



20055700 
20055800 
20055900 



in 
m 



021913 
0J19I3 
022013 



2Q9S6000 
20056100 
20Q 56 g QQ 



20056300 

20056460 
20056^00 



022013 
0220<3 
P 2?0« 3 . 



039013 
■Qa20>3 



2Q0g6«0Q T 



0220<3 
022013 

0||0||.,, 



Hi 

022013 
Q220I3 



20056900 T 0220«3 



ri 



• • 



1 

2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
'3 
14 
IS 
16 
17 
IS 



<9 
I 20 

21 

22 
I 23 

24 

25 
I 26 

27 

28 

t » 

M 

31 1 

a 

M 

I 3S 
36 

37" 
I 38 

39 

40 
I 41 

42 

•3 
I «4 

»5 

t« 
I 47 

M 

49 

50 

B1 ■';. 

52 



S4 

5S 

58 1 



WORD[ 






= UNIT 



TYPE 



NAME 



,t 6U23 « FIRST Seven characters of internal name 

WOROC 53 THROUGH WORDCll] » REMAINDER OF iNTEf'NAl NAmE 
HORDtlg3.[l5»l 3 » Sl.NSTtIWF RTT 



.tl6«ii ] = UISk SPEED (l=FAST,isSLOW,O.NOT SpECIFlE^) 
,C18!5 ] » Eu NJMbER + 1 
W0RDCU3 « SIART or KEX f LBl . EQfa. EImTRY (U IF NO MORE ENTRTLS3 



END 



W0ROC£9i » LINK 
OF COMMENT i 



TO NEXT ESP SEGMENT FOR LABEL EQUATION 



1 STEP 1 UNTIL 2 DC 



FCR L !- 

BEGliM 

LlNKt^iF L T HEN S[l5J 



ELSE SL133; % eQN FRQM CQMP ILE/EXFC. 



SC153 « RELATIVE DISK ADDRESS IN CODE FILE FOR LABEL 

EQUATION ENTERED AT COMPILE TIME 
SU33 » ACTUAL ESp DISK ADDRESS QF LABEL EQUATION ENTERED 



X AT RUN TIME. 
S2 }= NOT l; * TRUE* IF LBL. EQN .ENTERED AT RUN TIME 
»<HILE LINK NEQ DO it I F LBL . EQN . EX 1 STS 



BEGIN 
IF LBL*0 
BFGIN 



THEN 



M[(UbL«=CM[SPACE(30)J J&30c6:38;l0j) INx NOT n.C9j6]:B0; 

end; 

* 1 f LINK-5C153/READ FROM COPE FILE ELSE HEAD FROM EsP pISK 



0lSKWAIT(-(L8L INX Q)» 30# 

IF L THEN ACTUalDISkADORESSClInK) ELSEHNK)i 
I tg 0; X START AT BEGINNING OF SEGMENT 



IF NOT L THEN FORGETESHDISKCL INK ); 
LINK J« LBLC293; % NEXT LINK 

IF S2 Then % run time label equation 



BEGIN 

X IF A COMPILE JOB' SAVE FID 8F ObJECT FILe NAME IN 

X JARC303 TO PRINT Mix MESSAGE OF THE FQRM> 



X "aLgOL"/<W|. ID>/<K1D> 

IF JAR[MIx*Oj lSS THEN JARCmI X* 30 3 J «LBLt I 3 i 

szt^o^ X USE The fi^^st equation only 



UNBLKI 



END/ 
IF L8LC03 • l« 

LINOXi»Ix3,4; X 



THEN GO TO STOP; 

INDEX INTO LABEL EQUATION SEGMENT 



STREAM(FNl»o » FTi=[FT3* ZEROjaQ* T2l*o/ 

T0GJ»(FPBVERSI0N*U» FPB' F!*tLBLtLiNDX + 43 J# CJ»0)/ 
EGIN 



DIt»0I+7 ; D5I*CHR; X LBL»NAM,SI2E 



n «* ft Di»»LOc c; 

LI OllwlOC FNI Dltapl^a; oSl»2 CHRi X FILE NUMbe<^ 



DI «» Loc i:ERo; sii»si-2; 

IF 2 SC » DC THEN GO TO XX iT; 
01 » *FT j pS i »CHR ; S I » s$ I 4-14; % 



!ii:: fiiif liif ;:>ii::;,4iv:if it i-mmmmm. •■at -lb L:i^£ qn' ^ 



X FILE NuMBER«0 

SAVE FILE TYPE FQR CHK BELQI^ 



IF C 
END 

ELSE 



iii 



SC*DC THEN GO TO XXIT; X ALL CHARACTERS MATCH 



tfilKiVfi'li' 
■JUiMUSiila. 



'"'If*'; 



mm 



iilMMiSiilWiliiwiiiliiiiW ^ 



END 



20057000 
20057100 



20057200 
20057300 
2QQ574QQ 



0220»3 

0220 n 



20057500 

20057600 
20057700 



022013 
022Ct3 

Q2?nn 



0220 J 3 

0220»3 
0220M 



20057800 
20057900 



2OO581OO 

20058200 
20058300 



022013 
0220«3 
Q22nn 



20050400 

20056500 
20058600 



0220«3 
0823 «0 
0223«0 



20058700 
20058800 
2QOb 8900 



022513 
0225«3 
0225»3 



20059000 
20059100 
200591 10 



0225 » 3 
0225«3 

226«J, 



20059^20 
200591 30 
20059200 



0228(0 
0228»0 
0229IQ 



2OO593QO 
a0059400 
20059>^QO 



0229J2 
0236«2 
0236«2 



20059600 

2OO597OU 
20059900 



0236' 2 
023811 

2 45 *. I 



20060000 
20060100 
2OO6O3OQ 



0246«2 

0248»1 
0249«1 



2OO6O3OO 
20060a00 

2OO6O5OO 



024QI2 
0250»0 
0250t0 



20060600 
20060800 
2OO6O9QO 



02b0«0 
0250«0 

0254?0 



2006l000 
2OO6I1OO 
20061200 



0254i3 

0254«3 
Q256»t 



20061300 
20061400 
20061500 



0257«2 
0259«0 
026H2 
0261 « 2 
026212 
O202»3 



20061600 
20061700 
20061800 



0263»2 
026410 
026413 



20061900 
20062000 
20062iq0 



026512 

026513 
026AI1 



20062200 

20062300 
20062400 



T 
T 



026611 
026711 
0267J1 




n 
2 

3 

4 

s 



6 
7 
8 

9 
10 
11 
12 
13 



2006280C T 0269«0 



L.!? 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 



19 
20 
21 
22 
23 
24 



25 



27i 
28 



29 

30 



31 

32 

33 

34 

36 

36 

37"" 

38 



40 

41 

«2 

13 

«4 

45 

48 

47 

•8 

•9* 

50';^ 

51 'I 

52 

53 

55 j! 

56 i 



TQGCSl : = SI + 2)Ji 
fiQ TO L> 



Si 3t'ttD AND EU CHARACTERS IN FPBtVERSlUN D 



20062900 

2o,n63onn 



0269J0 
0270 tO 



XXI T J end; 



IF fTr«P3 NgQ THgM % VALID LABrL LQUATIflN 



2G063i00 T 
20063200 T 
20063-^00 T 



0270«1 
027012 
027 0*? 



BEGIN 

FaADRS: = (T-l JxLTRLNli + FB^ % ADRS OF FB FILE EnTrY 

% FT 15 FIlE type FHQM FPB OBTAINED ABOVE 



20063400 
20063500 



0271 »2 
0272:o 

Q?7<t»l 



IK CFTl»«LBLCl.INOX*3],c43»53 ) NEQ P37 THEN FTlsfTliXNtW TYp 

FTj»FT.[43I5]; it REMOVE "FORMS" BIT 

TYPEDI5K * CFT«10) Ur (FT^U) Oft (FTwl3) Or (FT»26)f 



STHEAMCXjslLBLCLINOX] J,TOG:=CTYPEDISK 
f-BApRS); 



AND (FPBvERSI0N«13)* 



20063700 
20063800 
20063000 



027411 

0278«0 
0279>i 



sn»x; DSt«3woSi ds»«chr; % MFID»FID'REEI.»DATe#CYc^E 
ToG(!Jii«si+2; SKIP 5Sb; oi»«di+2; Skip 5oe# 

IF SB THEN DS;»SET ELSE PStsRESET; SKlP SBJ 



2006'»000 
2006410C 
2, Q Q 6/t 2 Q Q 



20064300 
30064400 
20Q 64« 5 00 



02fl3«2 
028512 
Q?86«0 



0286«0 
028613 
02 68' ! 



Li 



JUMP OUT 

ds:=3chr; 

DS:=lCHHi___ 



TQ L); * Save eu/speed specs fqr diSk 



20064600 
20064700 
2Q064B0q 



0289*3 
0290«2 
0?VQ« ^ 



if SC NE« "«••♦ THEN $ NEW TYPE SPEClflED 

If Sc NEQ "♦**' THEN DS»»CH« EiSE DS»»«SeT; 
EMD STREAM statement; 



SENSeVaL J= CEUVAL »* L8LCLINDX + 12] ,C15«8J ) ,C40Jl]; 
SPDVAL := EUVAL.t«lS23; 

euval i= euval and ^37; 



2006«900 
20063000 
2Q Q 6 5i0 



029 Ho 
029112 
Q29?IH 



20065200 
20065300 
2 006 540 



0293 «0 
0296»0 
0?97tl 



IF SPDVAL GTR THEN 

MtrBADRS*33l»C*P(DUP))&SP0VALtl6l46»23; 
IF SENSEVAL THFN X FILF SENSITIVE 



20065500 
2006S600 
2 QQ 6 57 Q Q 



029e>2 
0299> 1 
Q3Q 3»Q 



MCFBADRS+3J : '( *P t DUP ) JiSENSEVAL t 15 » 47 t 1 J ; 
IF EUVal GTR THEN » nEI^ EU NUMBER REQUESTED 
M[FBADRS-i-3 3ls(*PCDUP))&EUVAL Cl8»43i5]; 



IN LBL.EQN, 



2006b800 
20065900 

20066000 



0303«1 
0307»0 

030713 



ENDi « IF VALID LABEL EQUATION 
IF (Iisl+1) a 1 THEN IF L8Ltl4] NEQ 14 THEN QQ TO UNBLK; 
end; % WHILE LINK NeO 



20066i00 
20066200 
20066^00 



03tit2 
031112 

o aisn 



STOP! END' « F0« L 

FCRGETSPACE(FPB); 

TRPC33 i- [MCFB33 



& (SEG0[7J.CCF3xETRLNG)C8«3e:i03; 



2OO664OO 
2OO665OO 
20066600 



317 «0 
0319M 
0320 »0 



end; X if TYPE » EQUATINQ 



EX IT I 



20O667OO 
20066800 
20080000 



032410 
0324)0 



P(CRETURNRCW3» STS* 0* RDS* 

End procedure selectruni; 



0* XCH* P&PCCTF3* SIF); 



20O8O1OO T 0324 »0 

20080200 T 032613 

SiZF* 327 



W DRQ S 



PflQCEflURg SELECTRUNa; 



20060300 
20080400 



000010 
0000*6 
O OQO f O 



START OF REl 



BEGIN 
RFAL 



M5CW 



-!L2i. 



segment; Disk ADDRESS - eosis 

20080600 T 000010 
2,0980700 T QQOO.».0 ^ 






••MS 






20080800 
2Q08tr900 
20081000 



OOOOtO 
OOOOfO 
0000 1 



I 

T 



fiiite 

ftOR. 



Wit 

lii 



+1' 
♦2* 



2008U00 
20081200 

ZOQflUQO 



OOOO'O 
0000 «0 
OOQQIO 



slpSfil* 



;aooii:iiis 
.:. fo-Oiiiiii 



m 



ooooto 

0000«0 

m 



LEVEL 



+ 7* 



20O8I7OO T OOOO'O 



• • 



■..QLA.Y.Q.i ;?l^ .. 



+ 8* 



20061800 T 

znopwon T 



0000*0 

OflOO«n 



THlSilNK 
PREVLINK 



+ ll# 



20062000 T 
20082100 T 
20062^00 T 



OOOOiO 
000010 

0000 <o 



4 
5 
6 

7 ■-■' 
8 
9 
10 

11 

12 
13 
14 

IS 
16 
17 
18 

19 

20 

21 

22 

23 

24 

2S 

M>; 

Vii 

28 

29 

» 

31*^ 

J2| 

a 

34 

3S 
36 
37 ~ 
38 



TYPE ' +13* 

STACKLOC s +H' 



20082300 T 
20082^00 T 
20082500 T 



0000 »0 
0000' 
QOQQ»0 



ARRAY 



S 
S£ (»0 






20088600 T 
20062700 T 
2Q0i2ft00 T 



000010 
OOOOIO 
0000 10 



TRP 
LBL 
SD 



s + 1 8 C * 3 » 

* +19C*]* 
» NT2L*3* 



20082900 T 0000 
20063000 T 0000 
20083tQ0 T 0000 



Name 



TSKA 

ADOR 



NT2L*3; 
LBL *li 



20083200 T 0000 
20083300 T 0000 
20063500 T 0000 



REAL PASSLEVtL 
S VALUE 



* AODR + 1. 

* PASSLtVEL' 

s FASSlEVEL + W 



20083600 T 0000 
20083/00 T 0000 
2 006 3a 00 T OQQQ 



RETURNHCW 



9 RETURi^Mscw + i; 



DfFINF SHEETMaX » MlXMAXiK; 



20083900 T 0000 
20084000 T 0000 
2Q Qfl4lOQ T 0000 



%%%% 



** *(M0 TE***" 



20084200 T 0000 
20085300 T 0000 
20 85«OQ T O QQQ 



XXXX THE VARIABLES DECLARED ABOvE MUST CORRESPOND EXACTLY TO 

XXX* thqSe declared In procedure selectrUn. 

RFAL MESAGESPACE « RETURNRCw ■► 1 J X LOCAL TD THIS HROCEUURE 



20085500 T 0000 
2008S600 T 0000 

?ona'>70fl T 0000 



LABEL ULX* BMSG* NG# SKIP, EXIT; 



20085710 T 0000 
20085800 T 0000 
2008^900 T 0000 



DEFINE XCLOCKTIME a 

(C<NT2«a(XCL0cK QiV 3600^) MOq 60 + (NT2 DIV dOxjOO + 
o»'h ) niv 1 i$i - 



20086000 T OOOa 
2OO861OO T 0000 
200,66200 T QSXDXl 



DEFINE ACTJaLDISKADURESSC ACrUALUlSKADORESai ) , 

f f JAR[MIX» ((Nt^: = AC rUALUiSKAODRESSl ? 01 V (NT3 :« JARC Ml X* rt 3 ) ^•*' 103 



20086300 T 

20086ii00 T 

20086500 T 



0000*0 

ooooso 

OQQO'O 



+ (NTa «0D NTS) + 0»5) DIV l)#; 
$ SET OMiT * NQTtPACKETS) 



20086600 T 
20086700 T 
20086799 T 



0000*0 
OOOO'O 
0000*0 



«0 
41 
12 

♦s' 

44 ; 

•5-1 
46 
•7 
•8 

•9 I 
SO' 

51 ; 

52 
53 

54 



DEFINE DALOcSlZt " V»; 



20086810 T 
20087200 T 
20087^00 T 



0000*0 
0000*0 
0000*0 



X VALUES ASSOCIATED I^ITH "TYPE" * 



DEFINE STARTING 



JliL 



20067500 T 
20067600 T 
20087700 T 



0000*0 
0000*0 
0000*0 



continueing 
quitting 

RUNING 



» 2** 
* 3#» 



20087800 T 
20087900 T 
20098000 T 



0000*0 
0000*0 

.O.QO Q'O 



PASSIM 



;5#V- 



sooadtoo T 

20080200 T 
20088300 T 



0000*0 
0000 to 
OOQOfO 



SUBROUTINE DELINK; 

X DELINKS THE SHEET ENTRY AND RETURNS SHEET DISK SPACE 
BEGIN 



2OO884OO T 
2OO885OO T 
20068600 



0000*0 
0001*0 
OQOjQO 



20^:|#fCt|}-'' 

mmmw; ?: O0o«i,3 



56 I 



STREAM(A*»SC3 3,C8U0 3*B*»P(.SCH£OUueiOS)); 

iiiliii»«iiiil«iiipiii=^^ .•■;';■•■ 



sa 



end; 



20089000 T 0003*2 



# • 



>r 



10 



13 

14 

'5 

16 

17 

18 

19 ~ 

20 

21 

22 

23 

24 

25 ;< 

26 
27 



29 

30 

31'; 
J25 

34 
35 



36 

37 ~ 

38 

39 



40 
41 
42 
♦3~ 



45 
48 
•7 
48 
49 
50 
51 

a 

a 

M 

551 



IF F = THEN 



I SHELT F.NTRY NQT PASStD AS PAHAMlTEH 



IF NEXtilNK^O THEN 
ir PREVilNKwO THEN 
BEGI N 



SHEETtLEV£i)tCFF3»!»PREVLINK* 



IF 



SHEETCLEVEL3ttCFJ»=»NEXTLlNK; 
END> 
LBL*0 THEN. 



QO DLX; 



BEGIN 
MtCLBL'sCMtSPACEOOJUSOCBJaeUOj) 



INX NOT ntC9l63»a0i 



OLXt 



DISkWAITC-ClBl INX 0)^ JO, PREVLINK); 
L8UC293 J»NExTLINK; 

dtSkwahc (lbl tnx q)* 30, prfvlink); 



ENS 



FORGETESPOISKctHISLlNKJI 

end; * If SHEET ENTRY WOT A PARAMETER 

DE L IN KJ 



BCOIEAN SUBROUTINE REENTRY; 
BEQTN 



POLlSWt FALSE); 

IF aARtMlX*23.C8U01 NE<a 

ir MOT fSr2 3.E2Mn THFNi % 



THEN X NOt 
NfT fS^FP 



"GO" FROM COMPILE AND GO 



FOR IV'l STEP 1 
IF JARCI#*] NEQ 
IF ((JAR[MIX*0J 



UNTIL MlXMAX DO 

THEN 

E-QV JARLUQ])) 



~ CNUT 0) THEN % SAME MFID 



IF ((JARCMIX'OJ LSS 0) OK * COMPILER 

(((JARCmIX*1J EQV JARCUU)) s (NOT 0))) THEN X SAME 

IF JARtlMOJ NEQ THEN % COMPILER QH SaME MFIC 



FID 



IF jARtI*2].L8SlO] NEQ THEN X NOT "GO" PART OF COmP.S GQ 

If PRYORtn GEO OR 

NFD[(I-nxNPX-H]tCF(-- j l^EQ THF^ ii; RUNNING 



BEGIN 

COMMENT MAKE THE ENTRY 

IF PRTCl»i>3.CFFJ NEQ 



IN LlNKEO-LiST 
THEN % ALREAQY 



style; 

PRESENT 



BEGIN 
COMMENT 
00 Nil 



ENTER AT TAIL OF PREVIOUS LIST; 
I UnTILCI>«PRT[IM].[2A>63 )»f77j 



NF0tCMIX-nxNDX-t-ni»TRPC«]««PRTCNTl*«3' 
NFOt(NTl-l)xNDX+13»«PRTtNTl>43l« 
(*P(0tiP))j;MIXC2^»42>63; 



ELSE 



END 

"begin 

COMMENT 



CONSTRUCT 



NEW list; 

iPRTCI*43«» 



NFOCU'l^xNOX + lJt _ 

(*PfPUP))<{.U16M2l6 3&MIXC24M2»6 3; 
NFQ[CMlX-l)xNOX+13l=TRPC43«s 
PRTCI*43&P77C24:42«63; 

end; 



• : ;„ •■ ptitiiSW:ii«»iii:)'i. ^:'^ymm:.m,:MK:'p''- ■ ■■■;■■ ^.' ■ :; ■ ■•■•■■ ■■ ■■ ••■••/■ ■ ■■ 

REENTRY I sPQlISH; 

END Reentrant code linkage establishment subroutines 



(#:liiiiWMii^i»i 



iiiiiliiiiiiiiPii^^ 



**** 



***** 



* *• 



***** 



***** 



***** ***** 



2008^100 
?.0Qf\920Q 



20089300 
20089400 
gnQfl9«4QO 



0003»3 
0Q Q4«2 



0005»0 
0008*1 

20089600 T 0009«2 
20089700 T 0012«0 
2nOR9»00 T 0012«0 
0013«0 



20089810 
20089820 
20QB983fl 



T 

T 

4L 



200 89900 
20090000 
2QQ9Q1QQ 



0013»2 
QQ20la 
0020 »2 
0022«3 
Q02 «<Q 



20090200 
20000300 

2 00 90 400 



0026t0 
0026*3 
0026*3 



20090500 
200907 00 
20090800 



20090900 
20091000 

2n091lQQ 



0027«0 
00 2 7 to 
n027*0 
0027*0 
0027*1 
Q029M 



20091200 
20091300 
2Q09UQ0 



0031 «0 
0033*0 
Q0 3a « 



20091500 
20091600 
2Q0917QQ 



2009l800 
20091900 
20092000 



20092100 
20092?00 
2Q092100 



0037*2 
0039*2 
Q Q 4 2*3 
OO'^^'S 

0047*1 
Q04fl«^ 



0052*1 
0052*3 
0Q52»3 



20092Z|00 

20092500 
20092^00 



20092700 
20092800 
20092900 



0055*0 
0055*2 
Q5 5«? 



20093000 
20093100 
20093200 



0059*1 
0063*3 
0066*3 
0069*1 

0069*1 
0069*1 



20093300 
20093400 
20093500 



20093600 
20093700 
20093fl00 
20093900 
20094000 
2 Q09410Q 



0069*3 
0069*3 
0672*3 



20094200 
20094300 
20094500 



0076*1 
0078*3 

Mmx 

OOfll^ 
0081*1 
00 1 310 









0085*1 
0085*2 
0085*3 

008710 



20094800 T 0087*0 



• • 



h 



% 

JL 
% 



* * 



* 
* 



* 

* 



* 



* 



* 



* 



* 
***** 



* 
***** 



** 



* , * 



*■;:;„;■ *: 
•*****• 



■*■■'■.. * 

:*■■**■■* 






•■*' 



* . ■ 

*■*■#** 



■ * 
'* * * * * 



* * 
***** 



2009^900 T 
20095000 T 
20095100 T 
20095200 T 



ooe7«o 
Qoa/tQ 



0087»0 
0087«0 



2UQ953QQ T 0087*0 



S SET OMIT = NQT( DCSPQ ANU DATACOm ) 
IF BOJ^ESS THEN 

IF MrPjQH.rnn thfn it "system" typf jqr 



20098900 T 
2nl00700 T 

poiooeoo T 



0087«0 
0087*0 
0087*3 



IF NOT (AUTOMESS) THEN 

IF NOT (SC23,[2'1]) 

IF S[23.U;n 



X SUPPRESS BOvi/EOJ MESSAQE 

THEN t NOT ES-EO 

THEN it SUPRESS BOJ>EDJ MESSAGE 



20100900 T 008910 

20101000 T 00^0»2 
20101100 T 0Q9gH 



10 

11 



9£GliM 
STRtAivi(N:=S[03, 

RE.fiTN, 



MIXf TtsTJ«GETSpACE('**0,0) + 2)* 



20101200 T 0U93»3 
20101300 T 009<4ll 

20101^00 T 0n97l3 



13 
14 
15 



0S'r»6tlTw AyTO*-"!' ■■■■' 

sii»i.oc n; sii*Si*i; dsi-tchr; 

QS I SPLIT" «"l SltaLOt: MTXI nSI»2nECi 



20101500 T 0097»3 
20101600 T 0098*3 
20101700 T 00901? 



16 
17 
18 



OS SSL I TV; 

E.Nc; 

SPQlJTf T )i 



Di!=Di-3> dsjsfill; 



20l0l800 T 0100*2 
20101900 T 0l0l*2 
20102000 T 1 U 3 



19 
20 
21 



i SET OMtT s PACKETS 



GO TO 

end; 



skip; 



20102100 T 
20102200 T 
20104600 T 



0l02»2 
Ol03»0 
OlQ3»n 



22 
23 
24 
25 
26 
27 



IF BOJMESS 
$ POP OMIT X PACKETS 
t SFT UMTT a NnTfPACKFTS) 



20104/00 T 
20104800 T 
20104900 T 



0103*0 
0103*0 
QlQ3*Q- 



ANO NOT SC2]tC2:l] THEN X SC23,c2-jnsl WHEN ES-ED 
BEGIN 
STREAmCDAAT»«OT/ DTQGi»NOT(MCPJOB? ami TRuE* SV l»Oi 



2olO520O T 0103*0 
20105300 T 0105*1 
2olQ?ftQfl T 0105*3 



29 

30 

J1!^ 
32 



$ SET OMlT = NOTCDCSPO ANQ DATaCOM) 

C*»Stl6], At=JAKRUWtHlX3^ MIx/ % SC 1 8 ] spR 1 OR I y Y 
QtaXcLOcKTlMg^ B ? 'MeSA qeSP Ace; * «GETSP ACE ( 1 2» 0> ) 42 ) ? 



20105500 T 
20105900 J 
2O1O6Q00 T 



0l07*2 
0107*2 
Ol08*3 



BEGIN 

SilsUOC C; OSjxfiOEC; Dii*Di-6; 0St«5FiUU^ 

Dr'=B; DH»DH-6; dssslit***"; 



X PRjQRlTY 



su»a; ijijssi + i; ds»«7Chr; 

DS»»LIT'V"; Sis»Si*i; D3**7chR; 
Sl:sLOC mix; DS:»LIT"="; DSJ=2DEC; 



20106100 T 
20106200 T 
20106300 T 



0115*2 
0ll5»2 
U 6» 2 



34 
35 



MFID 

FlU 

MIX 



20IO64OO 
i20lO650O 

2ol06ftOO 



0ll7*2 
0118*1 
0ll9*l 



37; 

38 



svj«oi; oi«'Di-2; dsj^fill; dii«SV; 
ostaiSuiT" BCJ "; osi«40Ec; DStstiT" »♦; 

DTOG(Slt»lOc DAaT; SlisSI'»2; 



% TIME 



20106700 T 
20I068OO T 
20106900 T 



0120*1 
0121*1 
0123*0 



40 
41 
42 



3CDS««2CHh; DSSaLIT"/"); DH=DI-U; 
i SET OMiT » NQT(DCSPO AND DATACOM) 
DStaLlT'^»"; 



X CDATE 



20107000 J 
20107i00 T 
20107500 T 



0124*0 
0i25»3 
0125*3 



43 



$ SET OMIT 



END STREAM STATEMENT/ 
NOT(OCSPO AND DATACOM) 



20107600 
20107700 
2010gftOO 



0l26«l 

0126*2 
0126*2 



*6 
47 
w 
49 

50; 



end; 



skipj 



20108500 T 
20108700 T 
20108600 T 



0126*2 
0126*2 
0126*2 



51 

a 

53 

55 



* ^i;*,*'*;:: ,;'!|i;|;iJ*i|r';#M.^|f-j||t;gi('' 



ie^^:it'j#mmi}::0;:§:0;:$;W/. 



«#*.*:*• 



«/€#*.* 



T 
X 
X 



* 
***** 

* 



***** 

* 



* * 

* 



* 
***** 

* 



* * 
***** 

* * 



* 
* 

* 



*^,»j|i:f<:|ig;|§j||||'f.:;;:'^-^ 



BEGIN 



;;;,g:i|i/*:**' ■ .:; 



***** 



***** 






20108900 
20109000 
2Qt09t0Q 



0126*2 
0l26»2 
0126*2 



20109200 T 
20109300 T 
201 09a00 T 



0126*2 
0126*2 
Ol26*2 



W^. 






20109800 T 0127*1 



49 

50< 

51 

52 

53 < 

54 

56 

5<< 

57 



n 

2 
3 
4 
5 



10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31"^ 

32 

33 

34 

35 

36 



37 



39 
40 
41 
42 
♦3 
44 
45 
46 
47 
«8 
«9 
50 
51 
52 

a 



55 
56 



IF SEGO NEW THEN F QRGET SPACE ( SEGO ) / 

SFGnt=S&Sr73LCTCJ % SEGMENT ZERO PRESENT AT COHE ADDRESS »b[71" 



END 



ELSE 



BE6IN 



IF SEGO=0 THEN 

BEGIN 

Mr;SE60«=CHi>PAC£(3Q?1U3Qtfl»38»l0 3) 



INX NOT 13.C9«6J>=0; 



OlSKWAirC-CSEGO INX 0)*30,MCH0RlNX 103)7 
end; X IF SeSHENT ZERO WAS NOT PRESENT 



X READ SEGMENT ZERO 



JARCMIX,2] 



IS (*P(DLP)) & SEG0[2]Cm!2J & 
i>EG0l23L5!2J3] & 
.,,, !>, EGO [ 7 ]f3 i2 U3 ; 



X SE6ot23.tliJ3 » JOB COMPILED BY COBOit NO "GAT" ENTRY ) 

X SEGOr23.C2'33» SegOC? J . t2» 13 * USED fM iNTElR-PROQtCOMMUMCAT ION 

If SrfiQl21.t2tI3 THFN SPFTH^SOrTI-n; 



$ SET OMiT a NQTCBREAKUUT) 



***** 



***** 



***** 



***** 



***** 



***** 



***** 



X 
X 
X 



* 

*«**''* 

A.* 



* 

* 
* 



'*. * 

* * *■* * 

* ; * 



*■■ 
* 

* 



* * 

**#-^ 

* ■• «( 



* 

* 



* * 

***** 

* 



* * 
***** 

* * 



* 
* 

* 



***** 



***** 



X b[2lJ CONTAINS STACK Sl2E> SEGOC33 CONTAINS PHT SUE 



NF0tCMIX*i3xN0X+23,lCF3 *» 
C STACKCOC tsGETSPACEC SEGO £3 3 i NX St2U 
IF STACllfeOC " THEN % NO MEMORY 



INX 6H, 2, 3))+2; 



NqJ 



BEGIN 

IF St23 LSS 

BEGIN 



THEN * Ea-ED OR XS-eD 



STREAM(D»»I JSSPACEC4)); 

D5i«19Ln''.NDT XS-EDCNO MEM)*-"; 

SP0UTER(I»UNITNQ*1); 

5[2J IS ABS(S[23J; X MARK IT *NOT* 
DISKWAITCCS INV 0)* 30, THI SL INK ) ; 
end; X IF ES-ED / XS'ED 



XS-EU / 
% WRITE 



E'^^TO 
BACK SHEET 



aARROwCNrxu»o; 

COREttfrJ «« CQRE.CFf) * SC203; 

IF MESAa ESpACE NEe THEN X BQJ MESAQE eyfLT 



BEGIN 

F ORGET SP ACE (MES AGES PACE); 

mlsagLspace:=o; 



end; 
type »s -passing; go 

end; X IF NO MEMORY 



to exit; 



20109900 
gouogQo 



Ol2^»3 
Ol3flM 



20110100 

20110200 
2 0U03 Q 



20110400 
20110410 
20110420 



0131M 
0132*0 

oiagto 



20110430 
20110500 

2Q11060Q 



0l35«O 
0l36«0 
Ql36»? 



0}43I2 
0l43»2 
0l<»7»0 



2OUO7OO 
2OIIO9OO 
2nilU0Q 



20111200 
20 11 130 

20ll 1* 501 1 



0i47»0 
0l49»3 

Qi5i«n 



015213 
I 52*3 

01 521 3 



20111800 
20115200 
2Q11 ?1 Q 



0155J2 
0l55«2 
0l 5 5« ? 



20115400 
20115500 
2 Qll5 ftQ0 



015512 
015512 
0l55<g 



20115700 
20115800 
20 U 5 90 



20116500 
2011 6 6 00 
2Qlll>yO0 



0l55«2 

0l55«2 
0155 12 



0l55«2 
Ol58}Q 
Ol62ig 



20116800 
20116900 
20117000 



20117100 T 
20117200 T 
2011730O T 



0163«1 
Oi63«3 
016483 



20117400 

20117500 
20U7600 



016511 
016810 
017 UP 



20117610 
20117620 
20111630 



017113 
017312 
0175«2 



017312 
01 76 13 
Ql?9»l 



201176^0 
20117650 
20117660 



0180«0 
0l80«2 

Qiei'i 



20117670 
20117700 
20117800 



IF NOT MCPj0B.[i:n THEN X NOT "LDCNTRL", "PRNPBt" AND OPTNS SET 
IF STaCKLOC GEQ P50000 THEN 

BEGlta X MEMORY IS TOO TIGHT TO RUN (SAVE SPACE TO HIGH? 



IF 



FOROETSPACecSTACKLOC+2); STACKLOCl»0; GO TO Nq; 

ENOI 
MESAGESPACE NEQ Q THEN X BQJ MESSAGE BUILD 



20117900 
20118000 
20118100 



0182*0 
018210 
016312 



0183J2 

0l84»2 
0185»3 



20118200 
20U83O0 

2ffl l.»l 50.: 



oiefiii 

019010 
019010 



BEGIN 

SPOUTER(MESAGESPACE/UNllNa#(BajMESS AND NOT St 23 . C 2 » 13 ) ) ^ 

X Sr23.r2in = 1 WHFN Fii-ED 



20118360 
20118370 
20118380 



Ol90«3 
0191*1 

Ol 92 , «0 



MCJ*AGE5PACEl»0; 

end; 
mc stackloc 3. c 9*6 3 *« 



Mix; X PLACE MIX INDEX IN MEMORY LINK 



20116390 
20118400 
20U e60 



0192*0 
0192*3 
1 9 2*3 



% COMPUTE THE ADDRESS FOR THE PRT SUCH THAT PRT ADRS . [42 J 63 *0 



20U8800 T 0l95«? 



h 



10 

11 

12 



13 



15 
16 
17 
IS 



19 
20 
21 
22 
23 
24 



2G f, 

2a 



27 
28 



29 
10 



31 
32 



33 
34 
35 
36 

37 ~ 



38 



40 
41 
42 
43 



45 
46 
47 



•8 

•9 
SO 
51 



52 
53 



S4 

;s 

56;, 



T5»<((.STACKLaCt = i>TACKLQC + ^) + bC2U) OH 63) + 
Ir (M; = MCSTACKLUC"?],tf:F] }-(Li=Srr,Q[3] INX 



BEGIN X RETUHN REMAINDER OF PHT SPACE 

IF NOT STQREDY THEN SLEEP C CTCGLE3/ STaREMASK) ; 

tnrKTnr,fsTnRt.-MASKii ^^^^^ 



i; * SC2l3*STACKSliiE 
1)) QTH IQ THEN . 



20118900 
20U90gO 



M[L3 »= I & (i5TACKLac-2)CCTF] 
MCU.CFFJ :s L} 



& MIX[9M2I63; 



unlocktog(STokemaSk); 
forgetspacecl+2); 

end; % IF PBT SPACF WAS TUQ l ARGF 



% New uink 

% BACK LINK 

% mRhARp _jajiK, 



20119100 
2011 9600 

20 119 yon 



0l95»2 
Ql99»n 



020313 
OgOAt 1 
0207 it 



20119900 
20120000 
20120100 



X 2ER(3 OUT STACK TO EASE PROBLEMS OF CONGENITAL DgMP-REAOERs 
McSTacKLGCJ »« ?3333333333333333; 

VPVE(T-STACKLGC-USTACKL0C^STACKL0C + 1); 



20120600 
20120800 
2Q12Q9 QQ 



0210J3 
0214 «1 
0216^2 



20l2l000 
20121100 

20lgl2Q0 



0219M 
082213 
0a2<t»fl 



0224 «0 
0224J0 
Q225»2 



% 

% 



READ IN PRT fRQW disk 



20121300 
2012UOO 
20121500 



022612 
0228*2 
022e»2 



OISKWaITC-T, SEv^O[3 3,CCF]^ aCTU aLDISK ADDRESS { SEgO C2 ],[ CF 3 )) ; 



X SEGoi:23 » RELATIVE DISK ADDRESS 
% SEG0E33 « SIZE OF THE PRT 
TRPl»PRTROn[MIXJ»»CM[T31&la2 3ta»3a>lQ3; 



OF THE PRT IN THE CODE FILE 

X DESCRIPTOR TO THE PR T 



20121600 

20121700 
20121600 



0228J2 

0228«2 
0226*2 



20121900 
20122000 
2qI22iqo 



0237«0 
023710 
Q237tn 



X 

X 



***** 

* 



***** 

* 



***** 

* 



* * * * 

* * 



** * 

* 



***** 

* 



*«« * * 



X 

X 

JL 



20122200 
20122300 
20122000 



02ao«i 
024011 
024Q L1- 



'••■'■'* 
■****»• 



;* * * * » 

*■ 
■'*,♦*** . 



•'* ■■ ■■■ * 

^:**«,**' 



*■■ ■•/ ■■■*:',' 
•,**■**-■.. 



■:■*. ■■ 
■■■.'*:■ '. 
..»*'♦■ 



*• . 



■*■ 
* 
.* 



20122500 
20122600 
20122700 



0240U 
02«0tl 
02»ail 



IF 



REENTRY 
8 Ea i N 



THEN 



X RE-ENTRANT JQB' PRTC43 POINTS Tq EXISTING SEGmEnT DICTIONARY 
COMMENT aulLO PHONY ICW* IRCW^ & INCW; 
MfSTAC^LQcJ «■» g2222222222222222j 



20122800 
20123000 
201231QQ 



M[STACKlOC+1 J t 
HtSTACKLOc + 23 »■ 
TRPCB] l_ 



£lSE 



TRPtlOJ 

END X REENTRY 



-FLAGCQ8.CTRP)C6l33J93)i 

'FLAGCO; 
*FLAGCSTACKL0C*2); 



20123200 

20123300 
g0l?3400 



0240 «1 
0240 «1 
0241 »Q 



t* TRP&(STftCKtQc+l) tl8l33i 1531 



20123500 
2012 3600 
20123700 



024l«2 
024ll2 
02 ^1<2 



20123800 
20123900 



024310 
0246»3 
2 4911 



BEGIN 

NFOC (MIX-1)'<NDX + 13 J* 

TRp[43«s[MlT«gGETSPACECSEGO[l3,[CF3/l»l)*2 33; 



025l»2 
025410 
025410 



DlSKWAlTt-T# SE60tU»CCF3, ACTUALDI SKAOORESS^ SEGOC 03 i CCF 3 ) )> 
% SEQ0C03* RELATIVE DISK AOORESS OF SEGMENT DICTIONARY 
•G0£U» SIZE Of THE S£G>»ENT DICTIONARY 



20124100 T 
20124700 T 
20124900 T 
20125000 T 



025410 
0258*0 
026010 



M[TRPC43 



3 «= segoci3.[cfJ -i; 

SET OMIT s NQTCAUXMEM) 
end; X NOT REENTRY ^^ 



X SegDICTC03«SIZE Op DICTIONARY 



20125100 
26t25200 



20125300 
20125400 
2 9126400 



08 65»0 
0273*2 

027312 



0273*2 
0276*2 
2^6«2 



X 






*****. 

* ■■■■' ■■•*■■ 












X 

X 
X 



* * 

* * 
**** 



***** 

* * 

* * 



* 
* 
***** 



* * 

* * 
***** 



* 
* 
***** 



2oia6<i0o 

2012*700 



0276*2 
0276*2 



20126900 

20127000 
2 >V27l , 00 , 



ii^igii^iliiiiiiiiiiiii^ n 



■:201,«iii 
20127300 



0276*2 
0276*2 
2 7 6*2 



BEGIN 






;*iiti:i:2 

027612 



20127500 T 0281*1 



47 " 

48 

49 

50 ' 

51 

52 

53 ( 

54 

55 

56( 

57 



2 
3 



10 
11 
12 
13 
14 
15 

is' 

17 
18 
19' 



20 
21 



22 
23 
24 

26 ■ 
26 
27 
28 
29 
30 
31" 



32 
33 



34 

35 



36 

37" 



38 
39 



to 

41 
•2 
♦3" 



♦5 
46 



•8 
49 



SO 
51 



52 



54 



55 

58 J 



si;=d; 



SIS = i)l-8> DSlsQALUCSlZf. KvDSj 



20127600 
201 277QQ 



028i«i 
292*0 



IF DL AY DISK 
BEGIN 
DAL0CEMIX#Q3 



NEO THEN » QLaY OlSK OBTAINED ABOVE 

»« faooooai 



20127800 
20127900 
ig Q 1280Q 



02821 1 
020310 



DAL0CCMlX*l3 *s 

ulaydisk «= 
end; 



olaydisk; 

0; 



2OI281OO 
20128200 
201 28 3 00 



0285«l 
0287 »0 
02 97» 3 



OlAYMASK ;» TWQ(MIX) QR OUAYMASK; X OLAYS NOW AuIOWABL£ 



***** 



***** 



***** 



***** 



***** 



20128400 
20128500 
20128600 



026713 
0289«2 
02 991 ? 



% 
% 
% 



* 
* 
* 



* 
* 
* 



* 
* 
* 



* 
* 
* 



* 
* 



* 
* 
* 



* 
* 
* 



* 
* 
* 



** 

* * 



* 
* 
* 



20128700 
20128000 
20 12 8900 



***** 



***** 



***** 



** 



% PLACE **C0mMON^ value IN ^IHsT SIMPLE VARIABLE IN THE PRt 

NTl «= SCl9]; X COMMON VALUE IN ShEETCI'^ 

FOR I«* ^25 8TEF 1 WHILE NT 1 NEQ AND I L^S SegOC3j DU 

IF TRP[I]=0 THEN % SIMPLE VARIABLE (NOT A DESCRIPTOR) 



20129000 
20l29i00 
20129200 



028912 
0289>2 
02 99'? 



028912 
0289(2 
0289*2 



2OI293OO 
2OI294OO 
2 129 500 



0289»2 
029012 
0295«3 



BEGIN 

TRPCn»»NTl/ 

NTU«0 



20129600 
20129700 
2 1 298 



0296*3 
029711 
029812 



end; 
delink; % 



OELlNK SHEET E^TRY FRQM SHEET QUEUE 



201.29900 
20130000 
20130^00 



029a«2 
0302»0 
03 03 8 



EXIT! 

PfCfJETURNRCWi* 



bTs> Dp rds# o» xch* p&PrCTrjf std; 



END PROCEDURE SELECTRUN2; 



20140000 
2OI4O1OO 

?niflOaOQ 



0303'0 
0303«0 
Ql Q 3fO 



X rOR ADDITIONAL INFORMATION CONCERNING THE SHEET* 

» DOCUMENT aT Sequence number 20S12000 



2OI4O3OO T 0305«3 
SI2E« O3O6 

20140flOQ T OOOO'O 



WORDS 



SEE THE 



2olftO500 
20140600 
20140700 



0000«0 
0000«0 
flOOQlQ 



PROCEDURE SELECTISUN^F); VALUE F; REAL F; 
BEGIN . ^ . ^ 



START OF REu 



20140800 

segment; disk 
?otti09on 



T OOOO'O 
ADDRESS a 

JE ooon'n 



00526 



REAL 






'.as. 



•2# 



20141000 
20141100 
2OUI2QQ, 



ooooto 

OQOQtO 



MYMSCW 
RCW 



-1' 
+ 0* 
•^1' 



20H1300 
20141400 
20 U 1500 



0000«0 
OOOO'O 

OQon»o 



T 

11 






.*.2'#'. 
■.+ 3' 



20141600 
20141700 
S Q U lflQQ 



OOOOIO 

ooooto 

0000*0 



MIX 
HOR 
LEV E L 



♦ 6* 

*7p 



thislink 



20141900 

20142000 
20H2 1 00 



OOOO'O 
OOOO'O 
OOOO ' O 



:9 

•ft/'' 



■♦.■8' ■■ 



20142200 
2014230Q 
20148flQQ 



QOOOlO 

ooooto 

OOOOIO 



nextlink 
pre vl ink 

TYPE 



+ 11' 
*12* 
>13* 



20142500 
20142600 
20142700 






■.20lllS»^ 

:2i©iiiiiii. 



OOOO'O 
OOOO'O 
OOOO'O 



OOOOiO 
POOQ'O 



ARRAY 



= +16[*]» 



20143100 T OOOO'O 



^w-^• 



2 
3 



SEGO 
TRP 






L8L 

SO 

TSKA 



NT2C*3» 



20U3200 
20H33QQ 



0000<0 



20U3«QO 
20143500 
20141600 



000010 
00 00 to 
O OOOlO 



4 
5 
6 
7 
8 
9 
10 
11 
12 



NAME 



ADOH 
PASSLEVtL 



5 LBL *li 
' AODR •*• 1* 



20H3700 T 
20U3900 T 
g O H^OOQ T 



OOOO'O 
000050 
0OOQ » 



svAtue 

RETURNMSCW 
RETURNRCW 



• PASSUtVEL' 

» PASSLEVEL + 1' 

» RETURNMSCH ♦ i; 



2014^100 T 000010 
20144200 T OOOOIO 
20 144300 T 00 00 10 



DEFINE sheetmax » mixmax*; 



20H4a00 T OOOO'O 
20144500 T 000010 
2QH46 P T OQOQtO 



13 
U 
IS 



%%%% ***NOTE**** 

%%%% RETURNMSCW AND REtURNRCw ***muST*** BE THE LAST TWO 



20145700 T 000010 
20145800 T OOOOIO 
2nU5«90Q T OQQO»0 



16 
17 
18 



%%%% VARIABLES PECuAREU IN THIS PRDCEDURt, 
DEFINE XCLUCWTIME = . . . 



20146000 T 
20146100 T 
2ni<l62Q0 T 



0000 «0 
00Q0«0 

onoot-OL 



19 
20 

21^ 



CC(NT2t«CXCL0C« 

0*1 ) Div i)#; 



DIV 3600)) MOD 60 + (M2 DIV 60)xlOO + 



aoUfijOO T OOOQtO 
20146400 T OOOOtO 
?nl4fti<l0 T OOOOIO 



22 
23 
24 



$ SET UMiT s NQKPACKETS) 

la b^:l ?>TARTy CONT I NU E^ i OH)f PAs s^ hiNpuP^ quit; 



20146419 T 
20146500 T 

2ouift6nn 1 



OOOOIO 
OOOOIO 
OOOQIQ 



28 V 

27 

28 

29 

30 



LABEL jarspace* TryaGAIn; 

SWTTrn SH la QUIT. START. CflNTlMUF. QU T T . QU T T . PASSI 



20146/00 T 0000*0 
20146800 T OOOOIO 
2Q146QQ0 T OQQOlQ 



COMMENT THE VALUE QF "TYPE" MAY DETERMINE WHICH PORTIONS QF 
PROCEDuaES "aELECTRLNl" AND/UR *'SELECTRUN2" WILL BE EXECUTED. 



20147000 T 
20147100 T 

2,0 l 47200 T 



OOOOIO 
OOOOIO 

OOOOIO 



31 
32 
33 
M 
38 



PROCEDURE "SELEcTrUM" aNq "SeLECTRUNz" MaY, in TUrN* specify 
THE BRANCH POINT IN THIS PROCEDURE. 

The rouLOwiNG defines aRe used to specify the bRaNch point 



a0l4T300 T 

20l47400 T 
2014750O T 



OOOOIO 

OOOOIO 
OOOOIO 



IK SWITCH "SW". 
END OF COMMENT' 



20U7600 T OOOOIO 
20147700 T OOOOIO 
2 PH7P00 T OQOOIQ 



37 

3S 
39 



DEFINE STARTING b %#, 

OONTINUEING » 2#* 

QUITTING 9 3#^ 



20147900 T 
20148000 T 
20148^00 T 



OOOOIO 
OOOOIO 
OOOOIO 



40 
41 
42 



WUNING 

PASSING 

EQUATING 



= 6#? 



20H8200 T 
20148300 T 
20UeaOQ T 



OOOOIO 
OOOOIO 
OOOQIQ 



•3 



P(0*0#0#0#0*0»0'0*0*0^0*Oj>0<»0;»0#0#0*0#0'0^0)' 
RCW l« «CW & P(*«SElCCTRUN*L00HCTC3j 



20146500 T 
80148700 T 
20149200 T 



OOOOtO 
0000*0 
0005*1 



48 

47 
M 



Type js STARTiNa; 



20149300 T 
20149400 T 

20149500 T 



000613 
060613 

000712 



19 f; 

50 c 

Sip 

52 

53 

54 



START I 



if f nEQ THEN X SHEET ENTRY PASSED AS A PARAMETER 
BEGIN 
S IS IQQUE 4 FtCTCj;* SHEET ENTRY 



■|'oiiiiiiiii 



2ol49900 T 
20150000 T 
20150100 T 



0007*2 
0007*2 

o<oy»2 



49 

50< 

51 

52 

S3< 

54 

55 

56l 

S7 



IIHiiMiiiliiiiii^KIHiili^l^ 



0008*1 
000910 
000912 



liiiiiiBi 



001211 
001?^1 



58 1 



liagJiiilliiMtttSi 



MittSMMMSIiiSm 



WiiifiMfi&fttlsSk 



BEGIN 



20150500 T 0012H 



IF TYPt'STAHTlNG 



AND NOT SHEETLCCKED THEN 



SUEEP([TUGtE3*SHEETMASK3# 

locktogcsheetmask); 

SHEFTLOCKL-Q tu 11 ; , 



20150600 
20^0700 



20150800 
20150900 

2ni,5inQQ 



0G12«3 
OOHf 1 



001413 
0016»l 

Qnun 



16 
17 



19 
20 
21 



2S 
26 
27 
28 



29 

30 

32 



34 
35 
36 
37" 



38 
39 



41 
42 

♦3" 



45 



♦7 
48 

49 ! 

51 ': 



S2 



55: 



ENU; 
P([SVALUE]* 

S FLE CTHu Ni; 



^IS). 



IF tyf^t L'SS '0 THEN ' "■ 

GO TO SKtTYPEl«A8S<TtP£)3; 
ENQJ . , — _^ 



CONTIKUEJ 



PlMtX t« 0; 
If CMGPJOB »* 

EOV 



((3[0] 



*'OlSK 
"PRNPBT 



">«(HOT Q)) A MO 



IF 



")=(NUT 
EQV "HBNiAlN") = CNUT 

EftV "LDCNTRL")g(NOT 

tCCSlOj EftV «PfiNPBT «)«CNOT 0)) ANO AUTOPriNT) Or 
CCCSiO] e4v "LOCNTRL'»)a(NOT 0)) AliiO CDONUY) THEN 



03) OH 
0)3 OR 
0)))) THEN 



X note; A i'MeGATIVe sign for ^1CHJDB IMPLIES THAT TH15 gOB 
_I S HU UL.n B t STARTFn RF.tiAhDI.FSS OF THE AVAIL ABI t.lT y OF 



X SYSTEM CORE 

IF iNTSlZFgn TH£N % NO TNTRINSIT.S FILE 



IF NOTlMCPJUB) THEN * NQT "SYSTEM" PROGRAM 
BEGIN 
STRFAMfNT3{=NT3?-SPACEf4^^; 



0SI324 LlT")(f»NO INTRINSICS FILE..f*"; 
SPOUTCNTJ); 

sle£pccintsue3><!'17773; 

end; 



WHlLEcNT2i"XCL0CK-t-P(RTR) J GEU ^^ I TCHINGHOUR DO MIDNIGHT^ 



% 

X 



**** * 

■■■*■■ ■'. *. 



■'■:#;: 



"'***'«*' 



'■*■■■ '*: 






***** 

* •■■, 



*■ 
■ * 



X 
X 

X 



* * 

* * 
***** 



* 
* 
***** 



***** 
* * 



**** 



* 

* 

*** 



***** 

* 
***** 



*** 



IF NOT MCP^QS THtN % 
IF OLAYD|$K»0 Th£N X 



NOT «I.IBMAIN"#«L0CNTHL,"#«PRNPBT» 

NO PLAY Disk obtained yet 



IF(0LAYDISK:»PETUSERDISk{500 or M*1))»0 then X NO ULAY DISK 

BEGIN 

IF S[2J LSS THEN X XS-ED/eS-ED 



iiiiiii,,, , 

05^25 11T",N0T XS-EDCNQ OLAY DISK)*"; 



GU 



SPCIuTeRVi* UNITNO* 1) > 

end; 
TO pass; 



*Piiiiiiii!iB 



iHiiiiiiiiii 



1 ) ^^n'xs' or" t s" mEssage ' hAs 



20151100 
2015120C 
,20151300 



0020 » 2 

0020»2 
0021»1 



2015MOO 
20151^00 
2nl51ftQ0 



002l»3 
00221? 
082713 



20151700 
20151800 

2Q1519Q0 



0627 » 3 
0027>3 
0Q27»3 



20152000 
20152100 
2Q152gOQ 



0027»3 
002812 
00281? 



20152300 
20152400 
2Ql52'?i00 



0030«1 
0032>0 
Q 034»0 



20152600 
20152700 
20152800 



0Q36»3 
004010 



20152900 
20153000 
2 015 31QQ 



004511 
0045«1 
Q045U 



20153200 
201533OO 
201534OO 



20153500 
20153600 
20153700 



20153800 

20153900 
20154000 



0045«1 
0045»1 
00451 1 



0046»0 
00«7»0 
0n47>2 



0050tl 
0053*3 
005412 



20154100 
20154200 
2 1 57700 



T 
T 



0056>0 
0056JO 
05 6» Q 



20157800 
2«1579Q0 
2 Q1S 9Q00 



20158100 
20158200 
2015 9 30 



006810 
0068*0 
006810 



20156400 
20156500 
20156^00 



0068 10 

oo6e<o 

Q6 e'Q 



20 159 J 00 T 
20159200 T 
2045*9300 I 



0066*0 
0068*0 
00661 g 



10159400 
20159500 
20159600 



0069*3 

0072*3 

MIMX. 



QQ7Afl 
007413 
007712 



20159700 

20159000 
20159900 



BEEN ENTERED FOR THIS JOB / C IN WH I CH 



:io;iiiPiA 

20160300 



0081*1 
0082*0 
0062*0 




20160400 T 0082'2 



• • 



#n* 



h 



CASE SHEtrDlLTDLER TURNED ON St2].[l«n AND CALLED SELEcUQN)* 
DM 2) THF SUM Uf THIS JUBS COHf RfQUIREWeNTS (SE20J) PlUS THp; SU M 



QF THt CORE REQUIREMENTS OF ALL OTHER JOBS ACTUALLY RUnMNG 
CCOHE»[FFJ) IS LESS THAN THE TOTAL AMOUNT OF CORE AVAILABLE 
rnR USFR PRflGRAMS fTHE InITIAI SPACE AVATIAB^F CCQRF.C(^Fn 



2OI6O5OO 

20160700 
20160^00 
2niftQq,QQ 



0082*2 
9 09?« ? 



0082*2 
0082*2 
QOBZIZ 



TIMES THE MULTIPROCESSING FACTOR C CORE. U 8 14 J ) ) # 
OR i) "LDCNTRL/131SK" IS BFInG TeSJed AND THE "CDONLY" OPTlQis 

Qfi . ^ . 



I^ se-t 



20161000 T 0082*2 
20I6I1OO T 0082*2 

2 U120Q T 08 2*2 



"PRNPeT/DISK" IS BEING TESTED ANO THE "AUTOPRNT" OPTION IS SET 
IF THF JJb nfe:iNG TkSTED IS A "SYSTEM" JOB CL IrM AlN^LncNtHL* 



20161300 T 

20161400 T 
20t61«SQQ T 



0082*2 
0«82t2 
Qn8?*J 



10 
11 
12 

13 
14 
IS 
16 
17 
IS 



PKNPbT) AinD THE ABOVE CQNDlTlQNS ARE NOT SATISFIED^ THE 

THE APPARENT AMOUNT OF AVA ILABLE* CORe (AS SHOWN IN THE "CORe" 

^ylWRn) IS TESTFD LJ.STmG A F^CTOH HF 1.1 TTMfS THF Af:TUA| FACTnfi 



20161600 T 
20161700 T 
20,161800 T 



0082*2 
0082*2 
0082*2 



End 



XN OROtR TO 

OF comment; 



ATTEMPT TC FORCE THESE JOBS JN, 



20161V00 T 0082*2 
20162000 T 0082*2 
20162100 T Q0B2>2 



IF S[2J.C8Vl0Js5 THEN 

SET UMir = NQTXUATACUM 

BFG I N 



* "run" 

ANU RjE. 



Job 



GETS SPECIAL HANDLING 



20162300 T 
20l62<l00 T 
2Q16270Q T 



0082*2 
008410 

ooeo*-a. 



19 
20 
21 



TYPE i* runing; 

P([SVALUE3*STS); 
SFl ECTHUNli 



20162800 T 0084*2 
20162900 T 0085»l 
201 6 30 QQ T 00 8 6*0 



22 

23 

24 

26 

26 

27; 

28 

29 

30 



IF TYPE LSS THEN 

60 TO Sw[TYPE:3ABS(TYPEjJ; 
ENO; % IF A "HUN" REQUEST 



20163100 T 

20163200 T 

20163300 T 



0086*2 
0087*1 

0092*2 



IF NQMEM NEQ THEN GO TO PaSS; 

IF CSI23 LSS 0) OR C MCP jOU. C I * U ) THEN GO TO JARSPACE; 

% MCPJDB«Cl>ngl MEANS RUn IT REGaRDlESS OF CORE AVaIlABIi ITY 



20164000 T 00«2*2 
20164200 T 0094*1 
20164300 T 0097*0 



X SC2],C1:2] :tt C0*NDRMAL# UNOT USED* 2«XS"ED/ 3bE5-ED3 

$ SET UMiT = NOT (BREAKOUT) 

t SET OMTT = NQT(WOHkSFT) 



20l6'»4O0 T 
20164600 T 
2 Q1 65 U T 



0097*0 
0097*0 
9Q97I0 



31 
32 
33 



IF {I» = C0RE.U:i4]/l00) GTR THEN % FACTOR QTH 

IF MCPJOB THEN Hal, 10 x I; % TRY AND FORCE IT IN 
IF COREttFFJ -*• SC203 gTR C0R£,[Cf3xI TheN GO TO PASSJ 



20165300 T 
20165400 T 
20165500 T 



0097*0 
0099*1 

0l0l»3 



34 

36 
36 

37 ~ 



X 
X 



* 



*1lt1ll ** 
* * 



***** 
* * 



***** 

* 



***** 
* * 



***** 
* * 



***** 

* 



***** 

* 



20166800 T 
20166900 T 
20167000 T 



0l05*l 
0105*1 
0l05*l 



X 

X 
X 



* 



■■*■»*■#.;* 
* ■ ' ■ * 



«:**'«* 
* ;.■■■,* 



. ■ ' ■ ' * 
■■*■*■*»*. 



***** 

* 



***;** 

* ■•■.'■'♦ 

* ■"♦ 



*'**lk'* 



***** 

* 
***** 



20167100 T 0105*1 
20167200 T 0105»1 
2ol6r300 T 0105*1 



40 
41 
42 



JARSPaCES 



X FIND A Mix SLOT FOR THIS JOB 
FOR MiXI«l STEP 1 UNTIL MjXMAX pjp 
IF JARCMIX,*)«0 THEN GO LOADj 



20167400 T 
20167500 T 
20167600 T 



0105*1 
0105*1 
105*1 



20167700 f 010511 
20167800 T 010511 
20167900 T 010710 



46 



46 
47 
48 



X NO FREE SPACE 

Gc TO pass; 



In JaR: pass E^TRY WITHOUT DELINKING AnD CQNTInUe 



20168000 T 
20168100 T 

20I682OO T 



OllO»3 
0110*3 

0110*3 



49 

50 
Bl 



X 
X 



* 

*,:■ 






:iit'.*,-)(r;i(^;i(i(i 



WBs:M: 









'■* ..,■ ■■*„ 



20168700 ^ OitUl 
20166900 T OUltl 
20166900 T Olilll 



52 
i3 



X * * * ***** * * * ***** ***** 
X* ****** ****** 
% ***** ***** * * **** **** * * * * 



20169000 T 
20169100 T 
gQ16920Q T 



OlllU 
0111*1 

.flinii 



m 



■!i,mBm 



rM^'i^ 



mm 



ftllfl 



■20'I 



..ri l iini^iiiii M' il KB i a r fMi Ull l ^il U i ' ii Hn; .^ i i.iili > | - ili>i^Mi f ii f i W i. t. li>i r . r ii. - rl l r.iJi. , ii f iil..4riil ' d ^tt i ^ . ;fi» i ' .( h .ii t r t(i iii f r rt ii f il iiii.r.lit l il li , .l [ i l i i l HH .i^ B i. l i < i t i > ii,r . | - ili^i J rtaiili .U iilii - aiiil >» 

JARHOWtMlXJ J= lUQUE & HDRCCTC]; 



X FILE HEaDEH BECOMES jaR ROW 



m 

m 



iili 



20169600 T 0111*1 



.^ 



2 

3 

4 
S 



14 



17 
18 



MtHDR-2j .[■>':6j ;= Mix; % 



PLACE MIX INDEX 
StaO]^ % AOD IN 



IN MEMOHY LINK 
THE CORE t-aTIMATF 



20169800 
20170600 



0ll3«l 

Q 1 1 ft * a 



SET OilT a NOTtfACKETS) 
jARCMtX#0T la StOJ; 
JAfiXl4lX«ll iw SCllf 



JARtMlX,2]J«S[234(IF ( NT 1 J = a [2 J . [8 HO] ) = 5 THEN 2 ELSE NTnC8J38U03; 
% IF THIS Is A "KuN" JOB* CHANGt IT TO SAY "EXECUTE" 



20170700 
20171000 
2ni7HQ0 



011910 
011910 
Q121«0 



20171200 
20I7I3OO 
? 0171 <|00 



Oi23«0 
0l2a«0 
Ql?9?l 



X • "SO" pakt of compile 

X 1 s COMPILE AND GO 
J 3 a FXrCUTE 



AND GO 



20171500 
20171600 

20171700 



012911 
0l29»l 
012911 



% 
% 



s COMl»ILE 

= cumpile 

RUN JOB 



FOR SYNTAX 
TO LIBRARY 



STREAMCa««4ARXMIX»33>E30?183' DtftOTDr 1 CRIATION DATE FROM HUR 



20171800 
20171900 
20172000 



0129M 
0129U 
Q l ?9U 



20172100 t 012911 



BE6IN 
Sll»LOC 



A> DSi«aoEC; 



20172200 
201 72 |jQQ 



13 112 
Qt3f<S? 



END/ 
GIMEDATECCDTI.CCF]* "DT); '^ CONVERT DATE TO ♦'"MMODU"" FUrMaT 

JARCMIX*33 t= bU63J % PROCESS TIME LIMIT 



20172400 
20172500 
20172A00 



0l32»0 
0l32»l 
0l34t0 



19 
20 
21 
22 
23 
24 



JARCMiX.43 «» 5tl7]; X I/O TIME LlMlT 
StREAM<DATE, AtsCl]); X CONVERT DATE TO 

BEGIN 



OCTAL FOB LOGQInG 



20172700 
20172800 

20 1 78900 



013610 
0l38»0 

01 39*Q 



SlJsLOC 

end; 

JAR[MIX*53» 



date; d5Js8uct; 

iCXCLUCK-t-PCRTR)) & I[i:25«23j; % DATe AND TIME 



20173000 

20173100 
20173?00 



0l39«0 
0139J2 
0l39>3 



26 > 

26:,; 

"3 
28 

29 

30 



siARCMix,6i l» SL6USC233t:2J2«6]; % CARO/PSEUDO RDR, UNITNO IN t2l63 

JARtMIX*71 I* 0; X IDLETIME ENTRY 

>JaRCMIX^93«CFF3 Is qJ % ZERO OUT "CHAIN" DISK AQDRESS FIELD 



X JARtMlX*83 THROUGH JAR[MIX*29] STILL CONTAIN CONTENTS Op 

X OBJECT FILE HEADER AS OBTAINED ABOVE 

JaRIMiX.9] ;=» MthDR INX 91.LCr3 & McP JOB [ 1 « 47 t 1 3 & 



2O1733OO T 0i43»0 
20173800 T 0l46«l 
2Qt73QQQ T OiL^fl tQ 



20174100 T 
20174200 T 
20174:^00 T 



0l50»2 
015012 
Ol SOtg 



31 
32 
33 
34 
3S 
36 



CSC23,C4Ji] AND NQTC SC2 3 , C2» 13 OR AUTOMESS) ) t2»47 1 1 3; 

X st2],C4ti3«i Means suppress boj/eoj messages 

% MARK jAR[93»tU13gl FOR "LIBmAIN"/"PRNPBT "^ "lOCNTRL" 



20t7#400 T 

20174500 t 
20174600 T 



0l54t2 
Ol39»l 

0lS9tl 



idletime; 
x insure that 

TRYAGAIN; 



THIS JOB HAS A UNIQUE STARTING TIME (FOR LOG) 



20174800 T 
20I749OO T 
20175000 T 



0159»1 

0l59»3 
1 59» 3 



37 
38 



39 



FOR n*l STEP 1 UNTIL MiXMAX 00 
BEGIN 
IF JARRQWCI3 N£Q THEN X JOB RUNNING HERE 



20l75i00 T 0159*3 
20173200 T Ql*l»0 
20175300 T 016110 



40 
41 
«2 



IF I NEQ MIX THEN * NOT UuR JOB 
IF JARCMIX'bJ .C24:iii^3=>JAHLI#5],[24«24] 
BEG IN 



THEN X Same staRt time 



20175400 T 0l62«0 
2OI755OO T 0l63Jl 
201756QQ T OI67«0 



43 
44 



JARC*»lX#l>3,C24:24]»»JARcMlX»53.£24l243 + i; » BUMP THE TIME 
GO TRYAGAINi 

END; ■ ^_^_ 



20175700 T 
20175800 T 
20ltS90O T 



Oi67l2 
017211 



47 



49 

50 



ENU; 
XXX SEE ALSO "SEGMENT ZERO" SECTION IN PROCEDURE "SELECTRuN2" FOR 
XXX FURTHER ALTEHaTIUNS TU THE JAN. 



20176000 T 
2ol76200 T 
20176 390, J 



017213 
0175«0 
Ql75»0 



X 












* 



*'l * * * 



***** 



2017*400 T OUSIO 
80176500 T 017SI0 
20176600 T 0115 to 



52 



S4 



X 
X 

X 



***** 

* * 

* * 



* * 

* * ** 



* 
* 
***** 



***** 

* 

***** 



***** 

* 

***** 



20176700 T 
20176800 T 
20 176900 T 



0l75»0 
0175«0 
017510 



liliiiiilK 



iiitiiliPiiilWWIillil 
.C2M? OR t $C gl3 LSS 



1283 TH F N S [2l 3l»12 fli 



;attiii|iiiiiiiiitpttjiii 



X S[23,C2»n»l WHEN ES-EO* S[2i3 CONTAINS STACK SIZE 



20178200 T O179J0 



• • 



NFOUMlX-UxNDX + ii35=Ofi,bL20]i:CTFj&((CLUCK + PCRTR)) Div 60ni«3lJl7j; 
PRYQRrMTX] IS -i; 



PROCTlMEtMlX]l» -SC16]-CLUCK*PCRTR); X PROCESS TIME LIMiT IN Stl6] 
$ SET OMIT * NQT(WURKSET) 
i SET QMIT g NQT(N£WLUGGIN6) ^ 



20178900 T 
?O179in0 T 



20179200 T 
20179210 T 
8 Q 1791 <} Q t 



01/910 
0lB(tt2 



018610 

oieii3 

1 861 3 



ictimecmixj 1= -SH7]; 

%■%%%% % 



% I/U TIME LIMIT IN SC17J 
%%%%% %%% % % 



20179600 T 
20179700 T 
20l79p00 T 



0188«3 
0l90«2 
01901? 



9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19" 

20 

21 

22 

23 

24 

26 

2« 
27 
28 
29 

30 

31^ 

32 ■:■; 

33 

34 

35 

36 

37" 

38 

39 \ 

40 

41 

42 

♦3 



PlMlXi«MlX> 



* % 
%%%%% 



%% 
% 



% 

% 
* 






% 

% 
JL 



% 
% 



X % 

% 
% % 



20179900 T 
20100000 T 
2Qlfl0l00 T 



019012 
01 90* 2 
Q 19111 



% %%% * % % %%% % % 

USEHCOUECmIX J>sABS(S[g<it J); % USeRCUDE IN ^[24] 



20160200 T 
20I8O3OC T 
20180^00 T 



019111 
0191M 



CHANGEAUORT(SC63); 

IF SC2:i.C8!lO]»0 THEN FORGET ESpqISK CS tZbJ ); % foRGET 08J tSKcLET qn 
% SC23.Ca>103gO FOR "OIJ" PART OF "COMPILE AND GO" 



20180600 T 
20180800 T 
to I WOO 00 T 



O193IO 
0l9ftl0 
0197»Q 



STRLAMCa»=FSROWLMiXJ 8s[h|,Gt:TSPACE(4#0M ) + 23H4[8«38J 103 j; 
D5» =32111 "0"; 
$ SET UMtT - NOT(AUXMEM) 



20181000 T 
2OI8I1OO T 
2ni»5HQ Q T 



0l97'0 

020113 

JUQJxlX. 



TYPE t9 CONtlNUEING; 



28185700 T 
20185800 T 
2018 5900 T 



020611 
0206<1 
2Q7»0 



% SELECTRUN2 IS CONCERNtU WITH: 

X BQJ MESSAGE 

% SE GM ENT ^ E RU 



X STACK ANQ PRl 

X SEGMENT DICllONARY 

X DALOC 



20166000 T 
20186100 T 
1I862OO T 



-20^ 



20186 300 T 
2018*400 T 
20 1 86 5 Q T 



0207«0 
0207«0 
Q2Q7«0 



Og07»0 
020710 
02 0710 



X COMMON 

P( [ SVftt U E]*STS); 



20186600 T 
2Q18670C T 
2Q i e6fl00 T 



020710 
0i!07»0 
207>Q 



SEtecTRyNs; 

■■If ■■?¥■■?£.■ tSS^^O 'THEN'" 

GO TO SW£TYPE8gABSCTYP£3Jj 



20186900 T 
20187000 T 
2nifl7t00 T 



020713 
0208 «1 
0?09<Q 



IF CSEGflC/J.tCFlso) THEN' % BUIlD A DUMMY FILE PARAMETER BLOCK 
TRPC33 t«[M[GETSpACECl*Q> l)-t-2J3 e>-Se 



20187200 T 
20I873OO T 
20187400 T 



0214«1 
02l4«l 
Q215«3 



BEGIN 

TYPE '- equating; X BUILD FPfl AND PROCESS LaBEU EOUaTION 

PfCSVALU£3/ST5); , 



2018^500 * 
20187600 T 

20187700 T 



0219«2 
0220»0 



SELECTRuNi; 

IF TYpE.Li'13 Then go To swctypeisabScType) j; 
ENP; : 



20187800 T 
20187900 T 
2Q1 86QO0 T 



0221»2 
0222»0 
O228'0 



NFOC(MlX»l)xNOXJ la TRPC33i 

X TRPE33 VALUE SET bY SelECTHUNI FOR NON*MCP TYpE JOB 



20168100 T 
20188600 T 
20168800 T 



0228(0 
0228«0 
023012 



45 
46 
47* 



46 
»7 
*8 
19 

50 
61 

a 

a 

i* 
S5 
56 



GO TO rtiNoup; 



Pass* 



20188900 T 
20189000 T 
20.19.91 QO T 



023012 
023110 
02 3HO 



fyPEV':iii:r;t*ts:lMt^^ 



20189200 T 
20189300 T 
20i»9A00 T 



023l»0 
023l»0 
023H3 



selectrunw 

if type lss then 

GO TO SW[TYpE:»ABStTYpE)j; % SELECTRUM DETERMINES BRANCH PUInT 



20189^00 T 
20189600 T 
20189700 T 



023212 
0233«0 
023313 



^■■I'H:ittti5 






023910 



jj 



** * 



*• 



*** 



***** 



*« * 



***** 



**** 



20190100 T 0239»0 



rf 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 

is" 

17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

3^' 

32 
33 
34 
35 
36 
37" 



% 
% 



* 



* *■ * 












20190^00 T 0239 
20190-^00 T o?3g 



% 
% 



* 



* 






*** 



* 



■■***■« 



* * 



* * 



20190*00 T 0239 
20190500 T 0239 
2 Q 19Qft Q0 T Q 239 



SET QMiT » 
% INITIA 

TRPCQ1 L= 



NQTcWUKKSeT) 
LUE OTHER PRT CELLS 
^RPUfEASE; 



JU 



20190610 T 0239 
20I9O7OO T 0239 
20190600 T 0239 



TRPI21 tm 
TRPCIO) I* 



MEMORY J 

TRP& (ST AeKtOc*l)X 18 1 33* 15 II 
»03 L^a THEM 8 COMPILE JOB 



20190900 T 0240 
20191000 T 0241 
20191100 T CL241 



9 
10 

'M 
12 

13 
14^ 
15 
16 

"( 
18 
19 
20 ( 
21 
22 
23 ( 
24 
25 
26 ( 
27 
28 
29 { 
30 
31 

32 { 
33 
34 
35 ( 
36 
"37 
38 ( 
39 
40 
41 ( 
42 
43 
44 ( 
45 
46 
47 < 
48 
49 
50 ( 
51 
52 
53 ( 
54 
55 
56 ( 
57 



BEGIN 

IFCNTl 

TRPC<»2 



laJARi:MlX,23.L8: l03)Bi!4 THEN % C 
6]:aSL22] % SAVE FAC1UR FOR OHv) 



UMPILE TO LIBRARY 
L CT FILE IN SHE£T r221 



20191200 T 0245 
20191300 T 0246 
2Q191 40Q T 924 8 



ELSE IF NTlaS THEN * COMPILE FOR SYnTA^ ONLY 
BEGIN 
TRP[l»263»«"i; % SAVE FACTOR « C""13 X PONT SaVE OBJ ECT 



20191500 T 02«t 
20191600 T 0251 
201917^0 T 025g 



JAKtMIX*2].[8:lo] ;s2; % MARK IT AN "EXECUTE" JUB 

end; 
en d; % CQMPUE JOB S 



20I9I8OO T 0253 
20191900 T 0256 
201 9 20 00 T Q? 56 



TRP[6]»»FL 
IF JARCMIX 

TRPcm 



AG(04tTRP^63] U8J33J 15 3&32C6J38 
*2] GEQ THEN % NOT COBOL 
;aFLAG(0&cTRPfll3 3Cl8>33»i53&ar 



»103); 

at36MQ3); it "OAT" ENTRY 



20l92i00 T 0256 
20192200 T 0260 
201921 00 T Q? 6l 



% BRING 
MAKEPRESEN 

% S Erin[6 J 



In STARTING SEGMENT&BUILD CQnTR 
TCTRP INX P0LISHCi.EG0C6]»TRP[4] 
" STARTIN G SFfi ME NT N UMBER 



UL WORDS FOR InHIaTe* 
MNX*LQD).[8I 103); 



20192400 T 0265 
20192500 T 0265 
20192600 T 0268 



X SEQDiCTC 
MtSTACKLQC 
MCS.TACKLOC 



3EG0t6 
+ 23 »=" 



3 3 . t 8 
-FLAG 
-FL AQ 



1103 » PRT i.OCN# OF 

(POLlSHCSEGGC63*TRPt 
fOitTHP 316 i 33191 Vi 



DESe. FOR STARTING SEGMENT 
43»|NX#LO0),C18«153); 



20192700 T 0268 
20192800 T 0268 
20192900 T Qgyg 



MfSTACKLQC 
TRPtS] 
_L£iNlli_=TR 



3 «* *'2222222222222222; 
t= -FlAG(3TACKlUC*2); 
PC43.[18!63) NFQ C THfN 



% INITIATE CQNTHUL WQRD 



20193000 T 0276 
20193100 J 0278 
2Q1 9320P T 029Q 



iK'TABtEROW 

Else IF hq 
B ra I N 



tMlX3»«INTABLERaw£NTl3 
T(JAfltMjXr93,M»l3> THEN 



X NOT SYSTEM TYPE JQB 



20193300 T 0282 
20193«00 T 0283 
3ftlQ3«iOQ T 0267 



I: = INTi.lZE; 

INTA8LERQWCMIX3 : = C M[ GETSPaCEC IM* 13 + 23 3 4 I [8 : 38 ! 103 ; 

STHEAMCAtel^T talNjABLEHUiMCMIXJ); 



20194100 T 0288 
201943OO T 0289 
20194400 T 0293 



39 

40 

41 

42 

43" 

«4 

ts 

«6 
17 
18 

49 
50 
51 

a 
» 

S4 

55 
56 
P7 



BEGIN 

siisT; i>l:*si-8; 
ENO; 



DSisA wos; 



20194500 T 0294 
20194600 T 0294 
2Q1947Q0 T 0295 



END^ 



20194000 T 0295 
20194900 T 0295 
20195000 T 0295 



IF bC23,C2»i3 THEN % SI! 23 , 1 2« l3s 1 WHEN ES-ED* CALL TERMINATE 
BEGIN 
JARCMIX»23tl2}i3igi; % MARK IT TERMINATED _„^ 



20195100 T 0295 
20195200 T 0296 
2Ql95tt 0Q T 0297 



TEftMINATE(MiX & 

CIF JAR[M1X»23.C7:13 AND ( *PC [ TRPC TSX 3 3 3 i . PB I T T^^tN 
90 ELSE 35)CCTF3); _^ 



20195500 T 0300 
20195600 T 0300 
2P 19 570 , T 0101 



ENO 
ELSE 
IF JARCMlX^23tC7»13 THEN 



X TASK WHOSE PARENT HAS 



20196300 T Q305 
20196400 T 0305 
20196500 t 0305 



IF(TSKAj»*P(CTRP[TSX3333 .PBiT ThEN X DECLARED TASK ARRAY 
BEGIN 
TSKAI13 »« JARCMIX»03; 



20196600 T 0307 
20196700 T 0310 
20196600 T 0310 



TSKAtai *» jAfttMIXMl; 
TSKAC33 l» 'ii X.STATUSI ACTIVE 
TSKAC43 i» MIXI 



20196900 T 0312 
2O1970OO T 03U 
20197100 T 0315 



end; 



20197200 T 0317 



• t 



h 






9 
10 
11 
12 



13 
14 
IB 
16 
17 
18 



19 

20 

21 

22 

23 

24 

26'/ 

28 a' 

27rj 

28 

29 

M 

32 
33 
34 



M 

3?" 

38 

39 

40 

41 

42 

»3 



45 
t« 
»7 
•8 
49 
50 



Bl 
52 
I U 
>4 
is i 



SET UMIT s NOTCNtWLOGGiNG) 
SAVLMTXfMTXW 



PRY0R[MIX3 IS SL183; X PRIORITY In SHEETCitl; 
IF F«0 THEN X SHEET ENTRY NOT PASSED AS A PARAMETER 
BEGIN 



TYPE := (IF b[2].Liin THEN STARTING ELSE CONTINUE 1 NG ) ; 

% IF ES-ED THEN RE-STaF^I Sh^ET SEARCH; OTHERW ISe, c^NT INUE (JN 

Gf] TO start; 



'■mm.. 



QUIT 



If SHFETlnCKFn 



THFN UNLnrKT[jG(ShFFTMASKb^ 



IF S NEffl THEN FORGETSPACE ( 5); X SPACE FOR SHEET ENTRY 

If SegO NE^ THEN FORGeTSP ACEC SEGO >; % SPACE FOR SeQMENT ZeRQ 

IF OLAYDISK NEQ THEN FORGETUSERD I SK( QlA YDI SK>»5Q0 j; 

IF LbL NEO THEN FORGeTSP ACt (LbL ) ; X SPaCE FQR LaBEI- EQN. ENTRIES 

KILLC[MSc^^J); 

EkD SELECTION RCUTINE; 



OEFINEX 
COMMA 



EQUAL 
PE«IU 
S LAS H 



» U^t,% 



= 12**X 



aUEST 
POUND 
SPECI 



iqent 
unlockv 

USFV 



« u#»x 

= 15**X 



xlp 1 



lockv 

FREE 

OPEN 



» 20* *X 






A SWITCH LABEL (FUNC) IN 
SfcURITYMATnT USfS THF nppER rir 



VALUES OF "UNLOCKV" THROUGH "OPENnt 



PACKET 

USER 
HuNV 



COMPI 
EXECU 
COPY 



* 27#** 
' 20## 

29** 



UNLOAD 

ADDV 

ENTER 



s 30«>X 
« 31#*X 
» 32*f 



$ SET OMIT 



remqv 



* 33#* 

* 3mtf 

- 35»» 






36#> 

art. 



= NOTCPACKETS) 

DATAV s 4l##X 

LABE V s k2*»% 



riixm 



fliiEI'V;, 






EXPIRED 
ACCESSD 

PROCE 



= 49#* 



commonv 

COf^EV 



iiiiiiii 



A STORE NEAR THE END OF PCC 

wMmfm:Mmjmmm'- o:woer.. ■■a^o.-v^alues 



» 5«##* 



2Q19730C 
20197600 



20198500 
20199200 
20199300 



20199<|00 
20199500 
2Q1 99ftQ Q 



T 

X 

T 

T 

J_ 



0317J0 

:i 1 7 « f) 



031713 
031911 
03 20>Q 



20199700 
20199800 
P0210000 



032012 
0323»2 
32 3t> 



20210100 
20210200 
20210300 



0325»0 
0325»0 
0325tO 



2o2l0400 
20210500 
20210600 



032510 
0325»0 



20210700 

2021U00 
2Q2llrt00 



033010 
033212 
033510 



0337«2 
034010 
340 » 3 



SIZE* 0341 WORDS 
20212000 T 0000»0 
20213000 T onontn . 



20214000 
20215000 
2o2KoOO 



0000«0 
0000*0 
flOOPtQ 



20217000 
20217500 
2021 6 000 



0000>0 
0000*0 
OOOOtQ 



20219000 
20219050 
20219060 



OOOO'O 
0000 «0 
0QQ0»0 



20119100 
20219200 
20219,100 



20219310 
20219400 
20gl9'iQQ 



ooOoio 

0000 IQ 

Q oon i n 



OOOO'O 

ooooio 

0000 «0 



20220000 
20221000 
20222000 



0000*0 
0000*0 
0000*0 



20123000 
20224000 
20224500 



20225000 
20225560 
20226000 



0000*0 
0000*0 
0000*0 



2o226o99 
20226500 
20227000 



0000*0 
0000*0 
0000*0 



0000*0 
0000*0 
0000*0 



20S28000 
20228100 
20226200 



0000*0 
0000*0 
0000*0 



202283OO 
20228400 
20229000 



0000*0 
0000*0 
0000*0 



20B30000 T 
202310QO,T 
80232000 T 



0000*0 

ocooto 

0000*0 



1^ 



1 

.'V; 2 

3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 < 
36 
37 
38 I 
39 
40 
4, ( 
42 
43 

44 ' 
45 
4« 



« 
« 



• 



• 



47 
46 

49 

50 ' 

51 

52 

53 ' 

54 

55 



e 



20232500 T 0000*0 



10 

11 

12 
13 
14 
15 
16 
17 
18 



•9 

20 
21 
22 



23 
24 

26 ■] 
27;!: 
28 



29 

30 



31 

32 

33 V 

34 

3S 

36 

37' 

38 



40 

41 

42 

«" 

44 

46 

46 

47 

W 



49 

50 ; 

52 



53 
54 



SB's 
56 ?■ 



STACK 
SAVEV 






ALGOL 
FORTRAN 
TSPQL 



BASIC 
C0B0L68 
H I TH 






C^ AVE " PAYS QN C QMP IL £ TQ LI BR A RY? 






COBOL 



LIBRA 
SYWTA 



FRQM 

TOV 
FORM 



67* r 

66«f% 






NO 

OISK 

TAtF 



79* ^t 
fiQ*»% 



atSWiTCH D(PCC) "FaHM"«''SPt:ClAL"a! 



PUNCH 
PRINT 
^ACK 






SPECIAL 
REMOTE 



« 89#* 



SLOW 

136500 

FAST 



-924 * 



COPYN 

MAXV 

FR EEF 



a95!(f# 

» 96## 
g97». 



FIXED 
SENSE 
LATESIV 



s 96')'' 
» 100#» 



PA^ER * 84»jX 
COMMENT RESWDS CONTAINS RESERVEO 

Real hsch « "z* 



WORDS FOR CONTROL CARDS)* 



CARD 

RCW 
PRQCVAL 



s MSCW+1# 

* +C# 

s RCMvL» 



MYMSCW « CARD* 
XIN CASE OF TYPED PROCEDURES 



A 

CAODR 

CARDLOC 



PROCVAL+l# 

A-fU 

CADDR»W 



T 
SFID 



m 
9 



At 
CAODRr 



CDEX 

CLOSET 

C>^PLR 



CARDLOC+l* 
CDEx+1* 
CLQSETf 1' 



SOEX 



cdex* 



mm 



Si 



LASTSCAN 

LI8N0 

Nl 

mwrnm 



•.■ei;*i#;.. -■■,..•,■■ 



KOUNT+l* 

LASTSCAiN*!* 

LIBnO-»1* 



OPTN 

QPTNN 

PA0DR 



iiliipf ■■; 

N« + l* 
OPTn+i/ 

QPTNN* if 



N4» 



SFH 



PADDR, 






SMD 



PPCPROCEt>S*i» 
SFO+i* 



SMID 



:«";;;P.O'Ex# 



20233000 
.^0233500 



2023^000 
20235000 
2Q2.^5oSQ 



0000«0 
QQQQ»Q 



202350^5 
20235080 
20235099 



ooooto 

0000 »0 
0OQO»fl 



OOOOiO 
OOOO'O 
QOOO»Q 



20235100 
20236000 
201.17000 



OOOO'O 
OOOO'O 
QnQO«fi 



20238000 
20239000 
2.02^0000 



OOOO'O 

OOOO'O 
OOOO'O 



20141000 
20242000 
?ni!43000 



ooooto 

OOOO'O 

Qoofltn 



20844000 
20845000 

?o?4ftoon 



OOOO'O 
OOOO'O 
OOOO'O 



20247000 
20a*t7500 
?0^47600 



OOOO'O 
OOOO'O 
OQOO'O 



20247700 
20247800 
?0?479QQ 



OOOOIO 
OOOOIO 

Ofloo'n 



20247910 

20247920 
2n3fl703Q 



OOOO'O 

OOOO'O 
OQQQIO 



20247940 
20247950 
20247060 



OOOO'O 
OOOO'O 
OQOOIQ 



20246000 
20«49000 
20288100 



20288105 

20288110 
20268^15 



OOOO'O 
OOOO'O 
OOOO'O 



OOOOIO 

OOOO'O 
OOOOIO 



20288120 
20288125 
2 8 6 9 13 



20288135 
20388140 
20g88]45 



OOOOIO 
OOOOIO 
OOOOIO 



OOOOIO 
OOOOIO 
OOOOIO 



20286130 
20t88i55 
2028800 



OOOOIO 
OQOOIO 
OOOOIO 



20288165 
20288170 
2028 817 $ 



2026818$ 

20186190 
20268t95 



OOOOIO 
OOOO'O 
OOOOIO 



20288200 
20286205 
20288glO 



OOOOIO 
OOOOIO 
OQOOtO 



20266220 



OOOOIO 
OOOOIO 

0060 to 



m 
m 



lifflwo, 

OOOOIO 
000010 



20288230 T OOOOIO 



2S 
26 { 

27 

28 

29 ^ 

30 

31 

32 { 

33 

34 

3S ( 

36 

37 

38 ( 

3S 

40 

41 ( 

42 

43 



• t 



>r 



10 

11 

12 
13 
14 



IS 
16 
17 
18 



19 
20 
21 

a 
a 

24 



28 



29 
iO 

31 i 

32 

33 

34 

35 

36 

37" 



38 
39 



41 
42 



4S 

16 
»7 
•8 



49;? 

50 :■■■'■ 

B1 ; 
52 
53 
54 



55 ,5 

56 ;; 

m 



SOURCE 






ST 
Tl 
U N T TN Q 



SPOUTUMT + U 

ST + 1* 

TUlf 



20288233 
202882 ^0 



ARRAY 



userio 

ACCUM 



UMTND + i; 

US£RlO+lt*J* 
ACt.LM-H r*3> 



20288245 
20288250 
20?fl8a'^'> 



oooo»o 

Q QOQ t Q 



oooo»o 

0000?0 



CMM 

DIRECT 
MB 



B 
X 
B 



CEQNtU*J* 
CMM4lt*J» 



20268260 
20288265 
202882^0 



0000*0 
OOOOIO 

onofl«n 



Name 



PEQN 
PROG 
ADDR 



PEON + U*i; 



20288275 
20288280 
2n2ftBgfl5 



000010 
000010 
Qoootn 



BOOLEAN 
REAL 



ABORT 
TOG 

returnmsc^ 



s A0DR*1* 
a ABQRT+i; 



20288290 
20288295 
20288.100 



0000 «0 
000010 
0000 »0 



RETURilRClN 
RETURNVAL 



RETURNMSCw+i# 
RETURNRCW+i; 



it THESE LOCALS MUST BE THE LAST 



X THREE LOCALS OF CONTRQLCaRD 



20288305 
20288310 



0000»0 
0000»0 



S SET OMiT » NOTcPaCKETS) 

commekt fetch reads the next control caRo » sets source to beginning 

nF CARn . SETS last t^nRU nr CAwn th PFRinn, i% 



20288320 
20288325 
20?89QOO 



OOOOIO 
OOOO'O 

OQdOfO 



PROCEDURE FETCH(UNlTNO*CARDl,UC*SQURCE); 
: \/ALUF UNlTNn»CARnt.UC? 



20289009 
20290000 
20291000 



0000^0 

ooooto 

00Q0«0 



START OF REu 



REAL 
BEGlNlt 

RFAL 



UNITNOi-CARDLOC'SOURCE ; 



20292000 

segment; OISk 

2 2 9210 



T'F / 



Ei»eH<iUNITNQCA5;l «!]; UNITNO : = ABS{UNI TNO); 
IF CUMTNO UR l) = 31 THEN * DCOM OR ZiP 
MCSOllBCE 8 »CARDLnc]txg 14254524323737 37 



20292200 
20293000 
20294000 



T OOOO'O 
ADDRESS M 

4 O OOQtQ - 



00538 



0000<0 
0000»0 
QOOQIQ 



ELSE 

BEGIN % NOT DOOM 
t SET OMtT » PACKETS 



20294800 
20295000 
20a95lOO 



0000 »0 

0003M 
OOOqt? 



PCP 
_SI1. 



OMIT 



IF UNITN0232 THEN T «• 
NQT(PACKeTS) 



20295200 
20295300 

20295999 



00 BEGIN T* 



READEMFROMDISK(ClDR0hCUNlTNQ-32 3,!l 

tMCCARDL0cn&l0t8l38ll0]) ELSE* 



20296000 
20296001 
20296099 



0006*3 
0007«l 



20297000 
20296000 
20298100 



0009«0 

ooioM 

QOIQM 



WAITIQCCARDLOC INX «»40000000,E*UNI TNO ) i 
IF UNITNQgSO OR T«C45«13 THEN 



STR£AM{Q#.l2,CAR0tOC)> 
BEGIM SI*L0C QISI4.SI + 7;dS4-CHRIDS«.4 LIT 
IF UNITNQ»25 THEN 



202981U 
20299000 
20299020 



00l0»l 
00U»2 
0014*0 



"ENO.^ end; 



BEGIN 

STREAM(T*0«CARDLOC);X 

BEGIN SI* CARDLOCJQI*- LOC T;DI»DI*6 ; SI» Sl"l J0S*-2CHR ; SI* Sl^l J 
Dl*CARDL0CiOI*Dl*UO5*LlT"<''j8(60(IF Sc'***" 



20299030 
20299040 
20299U0 



001412 
00U»2 
0016»3 



001B«2 
002010 
0021*3 



iESIk DS*CHRIWUMP OUT 2 TO L ENOHF 
8E6IN DloDl^Ulf ScitQC THEM 01*01*1 



TheI^ 

§C»"<'' THEN 
ENp ELSE 



Lt 
END; 



US«.CHR)); 

DUCA«DLaC;Dl*Dl-i;Sl*LDC TJSl*Si+6iDS«.CHR; 



20299111 
20300000 
2o3oloOQ 

2O30UO0 
20|0ia00 
20ibX30O 



0022«2 
0023»0 
0024il 



0025»3 
002713 
0029tt 



iiiiiaiiMiiiiiiiips^^^ 
mmmmmmmmmmammmmmm 



20301400 
20301500 
20301600 



END> 



* NOT DCOM 



mrnmrnW^ 
mm§mmmt 

m 



0030«2 
003111 
00 32*2 



0035»1 
0036»3 



20303900 T 0040*2 



< 



S7( 



h- 



tND 



}% 



20304000 



»2 



T ooao 



COMMENT THE SClN ROUTINE I§ USED FOR CONTRQl CARD SCANNING** 

SCAN RETURNS The FOtUOWINQRESUtTtist 
. ^ , 4 FOR iDFNTlFIEftS WHlf.M ARF NOT RFaERVEDX 



20305000 T 0000»Q 
20306000 t O0O0»O 
20307000 T 0000*0 



FOR PE 

1 FOR SL 
-2 FOR Qlj 



RIOD* 

ASH» 

FSTIUN MARKl 



20306000 
20309000 



T 0000 
T 0000 



JO 
JO 



20 3 i b0000 T OOOOtQ 



Si.* FOR lOENTlflERS IN DIRfCT.* 
3 FOR OTHER SPEC I At CHARACTERS,* 
13 FOR "PR I OR I I Y** ■ ' ■•- ' i% 



20311000 
20312000 
20 31 3000 



T 0000 
T 0000 

j!^ (mm. 



10 

to 

ML 



10 

11 

12 
13 
14 
IS 
16 
17 
18 



REAL PROCEDURE SCN (UNI TNO, CARDLOC, SOURCE* ACCUM#KOuNt*LASTSCAN, 
. UIRE CT ) ; \ , 



STArT of REi. 



T 0000 

ADDRESS 

0314050 T 0000 



203H000 

segment; oiSk 

20314 



10 
« 00540 

IjD 



Value unitnovc 
REAi unitnq#c 

ARRJY ACCUMC*!* 



AROUOC 

ARDkOC# SOURCE* 
QlR£CTC*3J 



KOUNT*l.ASTSCAN i 



20 3141 00 
203142 00 
20314100 



T 0000 
T 0000 
T OflQfl 



JO 

to 



BEGIN* . 

LABEL 80&Q* 

SWITCH TYPE *■ TYPEO 



1YPE0*TYPE1»TYP£;2'* 
*TYPEl#TYPE2 }% 



20315000 
20316000 
203^7000 



T 0000 
T 0000 
T 0000 



(0 
»0 
iCL 



20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

10 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 ,;,, 

4C 

41 

42 

43 



DEFINE OS IZE « 56#iX 
REAL II* 
LABEL PERPERj* 



20318000 
20319000 
20320000 



T 0000 
T 0000 
J QSim 



»0 
»0 



GC60:% 
IF 



LASTSCAiM THEN* 
BEGIN IF LASTS 



CAN 

BEGIN I ♦ QUE ST i L AST SC AN 
FETCHtUNlTNO/CARolOC'SOilRcE)) 
LASTSCANIsO 



< OR UNITNO 
♦QUEST) 



3 1 THE NX 



20321000 

2o322oOO 
2Q32 3 00 Q 



T 0000 
T 0000 
T 0000 



«0 
»2 



♦ O; GO TO TYPEl end; 



2o324oOO 
20325000 
20325100 



T 0003 
T 0005 
4 OQQy 



to 

»3 
U- 



S SET UMjT 
-I 



» n07(packets) 

end;* 
» ident;) 



20325109 
20326000 
2 0327 QOO 



T 0007 
T 0007 
T OQ08 



»2 

»2 

U- 



STREAM (J*0»K«-0'SOU 

BEGINX 
Si * SQURCE ; 



RCE » ACCOM);* 

01 *• AccUM ; oi*oi*i;x 



20 328000 
20 329000 
20330000 



T 0009 
t 0011 
T 0011 



10 
»0 
10 



LS 



IF SC 
IF SC 



= A 
d£GI 



lpha 

N* 



EN BEG I IN 
THEN* 



susi + i; GO L end;* 



2o331o00 
20332000 
20333000 



OOU 
0012 
0Q13 



13 
«3 

UL 



IF SC »?14 THEN GO TO L3;* 

US ♦ CHR ; TALLY ♦• i;» 
Lit 63(IF SC»ALPHA ThEN BEGIN DS»CHR;» 



20334000 
20335000 
2 0136 000 



T 0013 

T 0014 

1 OQ H 



«1 

10 

12- 



K«-TA 
END* 



TALLV*TALLY+1 END ELSE JUMP OUT);* 

lly; tally«-o; j<-tally; ds«-8 lit" ••;* 



20337000 
20338000 
20339000 



0015 
0016 
00 18 



»2 
«3 
L3_ 



45 
«6 
»7 
«8 



ELSE 



IF S 

8EGI 
30(1 



C « ' 

N 

F SC' 



SI 



THEN* 
♦ SI + U* 
then JUMP 



out; 



20340000 
20141000 
2Q34200Q 



T 0018 
T 0019 
J 0019 



»3 
«2 



os» = chR; tally» = tally + u; 
if toggle then % found closing quote 

BEGIN QS»s8 LIT" ";Slt«Sl.n; 



20342250 
20342^00 
20342750 



0021 
0021 

00 2 2 



«0 
»3 
«0 



50 

51 : 



;ffeS.E;; 



: K i;il^*ili,i;:;:f *i|if f wi;|:V: J- r ••T Afei ¥■.; ^^ 



* INVALID STRING 



20343000 
20343250 
2O343SO0 



T 0029 

T 0024 

J 0024 



»2 
H 



52 
53 



54 

55 T' 
5«ji 



BEGIN 

Sl«-Sl-3i; GO L3. 

end; 



20343750 T 0024»2 
20344000 T 0024«2 

20344250 T 0025 «Q 



''%im'9fWHi 



ELSE BEGI 



ill 



20345000 
2034600O 
2034700Q 



Hi 



0025 



ii 

i 



TALLY ♦ 2; j«-tally; oi«-Lac k; di*-di+7; ds«-chh ;x 



20348000 T 0025«l 



• • 



h- 



3 
4 
5 
6 
7 
B 
9 
10 
11 
12 



13 



IB 
IB 
17 
IS 



19 
20 
21 
22 



23 
24 
2G 
26 

28 
29 
30 



31 
32 
33 

34 
35 
36 
37" 

38 
39 



40 
41 
«2 



45 
46 
47 
•8 

SO'.:"' 

5' ',;.:"'.■ 

52 
K3 

S4 

55 ■; 

dil 



SOURC& t .STri 



COMMENT STACK NOW 



tNOiX 
CONTAINS 



FOR lOENTlFIER & 

1 FOR "ID" & 



NOt 



or 

OF 



CHRSI 
CHRSX 



P([SQURCE]»«-); 



2 FQH SPEClAt CHR & ACTUAL CHR }% 



GO TO TYPE£PQLISH3)X 

TYPEO'X 

BEGIN 



I«--2; WHILE DlRt"CUI«-I + 23XO 00* 

IF (DlRtCTCn EQV ACCbMCO])* NOT THEN* 

BEGIN IF DIRECT[H1] ^qUeST Or UNlTNOagS Or UNITNQ23C TheN 

BEGIN I«-DlRECTtI + n;GO TO TYPEl END ENDU 
I ♦ lOENT ; ENC^» 
GO TO TYPE! i% , . ^ 



TYPE2J3! 
IF 
IF. 



KOUnTx"*" 
KOUNTg"*-" 



Then 

ORX 



ACCUrttO]*- 



0" OR KOUnT; 



PFRPER* 



KOUNT »«,« THENX 

bEeiN UASTSCAN «• {it 
I *• PERIUJ GO TO 



TYPEi;St 



lnd;* 
if kount= then begin 



IF UNITN0J32 TheN 

IF CIDTABL£[UNITN0*32»3] ^ 



CIDTABLECl^NiTNO-32'73 TrEN 
BEGIN I«-ENOFi; 60 TO TYPEl 
IF UNITNO * 31 THEN 



END* 



S SET OMIT ' NQT(PACKETS) 



BEGIN I*PERlOi GO TO TYReI EnDj 
FETCH(uNlTNO#CARDLOC#bOURCE); 



IF 



60 TO 6OGO; 
END* 

KOUNT a ";" THENX 

BEGIN LAST5CAN *■ -1; qQ TO PcRPtft END;* 
■ IF KOUi\T s'V" THEN SLASH ELSEX 

(IF KOUNT s gia Then quest £Lse% 



IIL 



TYPEl J 



scN*i; 

END 



<IF KOUNT s«,» Then COMMA ELSEX 

(IF KOUNTs"*" Then equal else X 

KOUNTa»»» THEN POUND ELSE SPECI))))J 



MJL 



203-49000 
P 350000 



20351000 
2 03 52 000 
20 3^3nOQ 



0026«2 
002 6 »2 



0026*3 
0627 to 
Q0 2 7I0 



20354000 
20355000 
203500 00 



20357000 
20358000 
2n3ftlflQ0 



0027»0 
0027 »0 
Q027«2 



20362000 
2o363o00 
20364000 



0028*0 
0030«1 
0030*1 



0030*1 
003313 
0035«3 



20365006 

20366000 
20367000 



00 39 11 
004213 
0041 ' ? 



20368000 
20368100 
2 03690 



20370.000 
20371000 
20372000 



00 4 4 « 
0044»0 
0Q47» JL 



2o373oOO 
20374000 
20374|00 



0047* 3 
0048*3 
0050* 1 



0053«0 
0053«0 
0055:0 



20374200 
20374 300 
20174310 



20374320 
203744OO 
20374ii09 



0057«0 
0058*3 
0060 '3 



20374500 
20374600 
2o375oOO 



006l»i 
0063*0 
0064»2 



20376000 
20377000 
20378000 



0064*2 
0065»0 
0065»0 



20379000 

20380000 
20 3 80 too 



0065»3 
0068<0 
0070 to 



0072*0 

0074*0 
0074*0 



SCAN }% 



PROCEDURE SEEKNAMCA'8*C'D»E*N); VALUE A'B; REAL A'B'C'O'E'NI 
BECIN 



20J81000 T 0078«3 
20382000 T 0079*2 

STZE« 0Q6Q WORDS 



START OF REl 



LABEL FIND*L; 
ARRAY NBt*]* 

REA(, i»t; integer 



20382010 

SEGMENT* DISK 

20382020 



AL 



L*itii^iiilii:ii' &msm. 



20382030 
20382040 
20382050 



T 0000 to 
ADDRESS B 00543 
J 000010 



BEGIN N«=SPACEC60)-i; 

JllsJ3«=o; Kl jsKgl^MOOULUS-i; 

IF A GEO THEN J 1 1 ^K 1 1 » ( a. [6 » 183 ♦A. E 241 24 3 ) MOp MOnULUS; 



20302052 
20382034 
2038 20 5 6 



0000*0 
0000*0 
0000*0 



ooooto 

0000*0 

ooooto 



■:^;:.;,:■:l■|^t^iiftiiiiig|i||t|i|ii|;^^^^^ j'j, ,„0D MQO'UlUS* 

.viMosiiiiii'":;: ;■■:■■■■ "'"■ 



20382058 
20382060 
20382062 



0003*0 
0006*2 
0009*2 



i'MMMi 



.U2*63; 



20382066 



J1«=T. [36*63; J2: = T. [30*63* J 3 *«T . [ 12I 63; 



siP:4i|'0 
0018*2 



20382070 T 0021*2 



l< 



1 

2 

3 

4 

5 

6 

7 

8 < 

9 

10 

11 I 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 i 

21 

22 

23 i 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32< 

33 

34 

36 ( 

36 

37 

38 i 

39 

40 

41 4 

42 

43 

44 I 

45 

46 

47 

48 

49 

50 i 

51 

52 

53 < 

54 

55 



11 



# • 



K15=T. t2^l6]; K2:=T.tl8J6]; 



>r 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

"5_ 

16 



17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28~ 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 
43' 



46 
47 
48 



49 
50 



51 J- 
52 



S3 
S4 



S5 

58;4 



END,? 



NB»*CWCN + nU60l8»38»lGj; 

IF c Ne« Then go td restart; 

FOR JllaJl STFI* i liMTTl K1 nn 



20382072 
2 03 S2 07 a 



FOR J2I=J3 iJTEP 1 UNTIL K2 
BEGIN j!sSCHAMBLt(»jWJ2J; 

DQ BEG IN 



DO 



20362076 
20382095 
2C3fl?inO 



OC25M 
02 713 



DlSKlNAIT<-N-l*60*J)i 

FUR HsO STEP 3 UNTIL 57 DO 

BEGIN 



20 382110 
20382120 
?03e?i.'^n 



002713 
003012 
00 31 t 3 



RESTaRTi 



end; 

END UMIL 

End; 



IF (TIsNBCn ) NEQ PH THEN 

JF (T t-OV A^sNOT OR A<0 ThfcN 

IF (NBIUn EQV B)-NOT OR B<0 



203S2140 
203B21S0 



0033 «0 
003410 
004110 



004110 
004310 
QQ 44 *Q 



THEN GO find; 



2o382l65 

2O382170 
20382^80 



(Jt*NB[23.CFF3)«0; 



FURGETSPACE(NB); 
IF C«0 THEN Nl=c ELbE 

GO TO L; 



20382190 
20382195 
2038220Q 



0044 10 

0045 « 2 
0048»2 



0053»0 
0055»1 
OQSflin 



cs»o; 



FIND I 



20382202 
20 382204 
2n38?2Q6 



0*NBCIIIE*NBCHUJ 
C«»N8Cl->23.CCFli 



M[N]J = i<iJlL36i42J6]&J2c 30 54256] &Ki[24«42«6]&K2[:i8«42»6]4 
J3C12M2S6]; 



20382210 T 
20^82220 T 
2n382p25 T 



0062'2 
0063'2 
00 671 1 



0067»3 
006713 

O 070 » 3 



J^ 



end; 

REAL PROCEDURE PPC 



» seekname 



20382226 
20382227 

20382230 



007310 
0078 «0 
007qi2 



START 

( ADDR' EQN'X'DEX* TYPE* UNIT NO' CARDlOC' Source* ACCUM'LASTSc AN* 
DIRECT); _^ 



20382240 T 0079«2 

SiZE* 0080 WORDS 
20383000 T QQQQ<ft 



Value typej«umtnc*caroloc 

REAL ADOR* DEX* TYPE*UNl TN0#CARDL0C* SOURCE/ 
ARRAY EQNC*3*XC*3* ACCUM[*3/DIRECTC*3; 



OF REl segment; disk ADDRESS « 00546 

20384000 T OOOOJO 
^ 2Q3fl4lQQ T OQQQtn 



lastscan 



BEGINX 

REAL IQD/KUUNT; 

label ExIT*EKRQR^NExT/LFORM»LNQ/LOISK>LTApE>LPUNCh/LPAPEH,i|; 



20385000 
2o386oOO 
20386100 



0000<0 
OOOOIO 
0000<Q 



ROUND/PROTECT* 

SE8 I AL' UPDATE* SpO^USKCHECK* 

OaWN*LHEWDTE> 



X (ShM) 



lspecial*lprint*lback,lcqpy,lfree; 
switch d ♦ lform,lna#lulsk#ltape*lpunch,lprint*lpaper»x 

LRACK,bFRTAL>lJPnAT£/SPQ*!ii 



20387000 

20388000 
20369000 

20390000 

20*91000 

20392000 



OOOOiO 

0000 «0 
OOOQtO 



0000»0 
OOOOIO 

Qoonin 



LREM0TE*LSP£C1AL»ERR0R*ERR0R, ERROR #ERROR* LOOP Y*ERROR* 
I.FREE*ERR0R#FH0T£CT; 
REAL NOLBLtTPNO i% ^ 



20393000 
2039^000 
20395000 



BOOLEAN FAROut; 
REAL SUBROUTINE SCAN; 
BEGIN SC AN»SCNf UNI TNO/CARDLQC/ SOURCE* ACCUM«K0UNT# LAST SCAN* 



20396000 
20396010 
20397000 



oooo»o 

OOOOIO 
OnOQIQ 



20397050 
20397100 
?n397200 



OOOOtO 
OOOOIO 

Qoo oin 



jfc 



TYPE ' 



HEGINX 

IF AUUR SO 

IF OLX s 



.feii»:f;?gT»£ii;^ 



20397)00 
20397400 
20398000 



OOOOIO 
00 00 I 
0,00110 



THEN ADOR*XC133*GETESPdISK 

2 THENX 



}% 



Mi^iiliiiia iiSiiit' 



20399000 
20400000 
20401000 



000)10 
000312 
QQ 4M 



000711 
000713 

ooun 



ADDR ♦ E(JN129];X 



mMmmmw.:$mmm; 



.20'40igliA 

•2o>i«iiii;i 

20404000 



::;if»*JO" 

0012»P 
O0H*O 



20405000 T OOI6I3 



3 

4 

M 

6 
7 

9 

10 

"< 
12 

13 

14t 

15 



17 ( 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

2e 

29 ( 

30 

31 

32< 

33 

34 

35 { 
36 
37 

36 < 
39 
40 

41 4 
42 

44 4 

';46 

46 

47 4 

4« 

49 

50I 

51 

52 

53 I 

54 

55 

561 

57 



• t 



n 

2 
3 

4 
5 
6 
7 



DE.X *■ Oi% 



..lQMi<6,}i% 



IF (TyPE««ScaN) < iDtM THEN GO TO ERROR* 
EQN *■ C14 X UEXa INX EflN )% 



20406000 T 
204Q700Q ^ 



0018*0 

Qni9<n 



2o«oeooo T 

20«09000 T 
gO ^l Qfl QO T 



0020(2 
0020«2 
0023^2 



EQN[12J{sO; % 
SJREAMC KQUNT* 
bEeiN% 



ZEHU out EU/SPEED CELL 
ACCUM» Z 4- CEQNUl})Ja( 



% CShM) 



20«l0l00 T 
20411000 T 
20^12000 T 



0025 » 2 
0026«3 
Q02fl«?. 



i.1 «• LOG KOUNT / SI*SI + 7i DI«-Zi D5+CHRI* 
il ♦ ACCUM ; i>I«-SI + U OS*- KqUNT CHR i% 
END i% 



20413000 T 
20414000 T 
2n4l5f»nn T 



0028»2 
0029»2 
003019 



10 

11 

12 

13 

14 

15 

16 

17 

IS 

19" 

20 

21 

22 

23 

Z4 

26 

26 

27 



IF x[o]<o Then if kqums^ anq ac 

THEN FAROUT ♦■ TRlE; 
IF SCAN / EQUAL THEN GO TO ERROR 



CUM[0],[6I243«"caRD'' 

; 



204l5i00 T 
20415200 T 
20416 QO0 T 



0030«3 
0034«1 

Q3 6« 



IF SCAN < IOENT then 
E0NC23 «• EQNC3l«-ai 
E0NtO3»0; EONCn *■ A 



GO TO ERROR 
CCUW£03jX 



i 



20416500 T 
20417000 T 
20418000 T 



003810 
0040»0 
004i«0 



IF CTYPE«.SCAN)s SLAS 

BEGIN IF SCAN^IDENT 
BEGIN F.QNC0J*-E 



H THEN* 

THEN* 
QNtUJ EQNC13»ACCUMCq3 i% 



20419000 T 
20420000 T 
2 n 42l 0Q0 T 



0044 « 3 
0047 «0 
Q0<*9»2_ 



END 



I F TYHt « 



ELSE GO 
TYPE *■ SCAN 
COMMA THENX 



TO ERROR 

ENo;x 



i% 



20422000 T 
20423000 T 
P04240QO T 



0053«0 
005310 
0054 * 2 



fciLGINX 
IF(TVHE«-SCAn)/ iclnt 

STREAM C S «■ 3-K 



QR KUUNT >3 

qunt^kount^ 



THEN GO TO E^^RORU 
ACCUM, T«-CEON[23]);!t. 



20425000 T 
20426000 T 
20427000 T 



0055« 1 
0055*3 
0059*3 



BEGIN SUACCOM; SUSUl* DUDUS* 0s«.KOUNT NUMU 

end;* 
ifct ypt .«'scan)« comma thenx ^ ^ - 



20428000 T 
20429000 T 
20it30000 T 



0062*1 
0063*3 
006itlO 



29 

30 

31? 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

♦3 



BE.GINX 

IFCTYPE«-SCAN)J' I 
STRLAMC S4.p 



DENT OR KOU 

-K O UNT f KQUN 



NT>5 THEN 60 TO ERRqR'X 
T>ACCI.lH^ Tt[EqN^233)n 



20431000 T 
2 0*32 000 T 
20433000 T 



0066*0 
0066*2 
0070t3 



BEGIN si*accum; si«-si + i; OI* 

ENUJX 
EQNi:2].[«2in > 1}% SU FILE OPEN 



DI+S;0S*KOUNT NUM« 

KNOWS Its labflequat 



20«34000 T 
20435000 T 
20435500 T 



007311 

00/4*3 
0075*0 



1F(TyPe«-SCAN)= COMMA THEN* 

BEGINX 
IF (TYPE»SCAN)^IDENT OR KU0NT>1 THEN GO TO ERROR* 



20436000 T 
20437000 T 

2 Q 43 9 QQ T 



0077*2 
0080*0 

Q8Q »? 



STREAMCS*!- 
8E6IN SI*AC 
end; TY P 



kQUnt»kount 
cum; si*si+ 
E «• scan;> 



'ACCUM»T*CEONt3 3 3); 

i; oi*di*s;ds*kount numu 



20439000 T 
20*40000 T 
2044 1 000 T 



0084*3 
0087*1 
0086*3 



ENDX CYCLE i% 

eNd« creation date i% 

ENDJXREEL NUMBERJX 



2o442oOO T 
20443000 T 
204^4000 T 



0090*2 
0090*2 
0090*2 



45 

(6 
»7 
•8 
•9 
50 
61 
52 
53 
S4 
J5 



ROUND {% 



TPN0*P37;X 
NOLBL ♦• 0;X 



WHILE TYpE^PERlO AND (TYPE < FQRM OR 

TYPE**SCANi 
IF TYPE « PERIC THEN GO TO EXIT;* 



20445000 T 

ac^ftfiooQ T 

20447000 T 



0090*2 
0091*1 
0092*0 



TYPE > FREEF) DO 



20448000 T 
2o4/48l00 T 
20449000 T 



0092*0 
0095* 1 
0098(0 



; .: ■■■GO . TO • ot-TYf E*f oii*»«r?l*:^-:- 



,iC«l*©,*«;' 



EQN[3J,C42J n^i; GO TO NEXT;X 
NOLBL » 1* GO TO NEXT** 



■at4ii>pt;#-' 



mmm 

on4»o 



49 

sol 

51 

52 

53 < 

54 

55 

56 I 

57 



LNO«X 



20453000 T 

20454000 T 
20455000 T 



0114*0 

0117*0 
0117*0 



■i-riiliiMM^m&MMi 



giiSiiiiiiPiiiiil 



X (Shm) 



TPNO «• 2; GO TO NEXT;% 




0118*1 
OU0lt 



!0459000 



0119*2 



>r 



16 



19 

20 



22 



24 
2S 



27 
28 



29 

30 

31 " 

32 

J3 

34 



36 

37" 



39 



41 
«2 



47 

«S 

•9^ 

50; 

51 

U 

53 

54 



S5;j 
56$ 



LPUNChU 



If CTYPEl»SCAN3»»PERI0 
IF TYPE'FatEF THEN GO 
IF TYP£gBACK THEN 



THEN GO TO EXIT; 
TO LFREE ELSE 



20^60000 
?0060lQfl 



20461000 
20461050 
2nft6ii00 



0120«3 
Ql?n?3 



0l2l»2 
012412 
Q 12S> 1 



TPN04-20 ELbE 

BEGIN TPNO*iii; IF SCAN^BACK THEN GO ERROR END^ 

TF SCANsPLHlO THEN GO EHRQR; 



IF (TYPE*SCAN)»PERI0 THEN 

TPNOfrTPNO+4 ELSE 
TF TYPFgFREEF THFN GO TO LTRFF 



20461200 
20461300 



ELSF 



20461500 
20461600 
?n461iS50 



Ol26»2 
0127«3 
1 3 1 t, 



013310 
0135»0 
Ol3ftt1 



IF TYPE*Dli)K THEN 

tpno«-thno+2 else 

TF TYPF^TAPL THEK r,Q ERHORj 



20461700 
20461800 
20461900 



LpAPER»% 
TYPE 



if TYPE^PERlO THEN GO NEXT ELSE 60 EXiT* 
» SCA^; TPNQ > 7; 60 TO KEXTIX 



0l38«O 
0l39«l 
0141 «0 



20461950 
20462000 
PO 4 63000 



0i42»3 
014412 
Ql 4 fl l 2 



LSPtCIAL'X 
TPNO «• 

L PR l NTiX 



3; GU TC next;x 



20464000 
20465000 
20466000 



0147«3 
0147«3 
0lft9t0 



TPMOtaii 

IF CTYPE«»$CAN)»PERI0 

TF TYPF«FRF£F THFN fifl 



THEN GO TO exit; 
TU I.FRFF Fl SF 



20466i00 
20467000 
20 46 7 iQ Q 



014910 
0l49t3 
Q152I2 



IF 



TYPE'BACK THEN 
LBACKJ Tptj0*6 ELSE 

BEGIN tPN0«-4; \f SCANXfaACK 



IF SCANsPERlO THEN GO EHROR; 
IF CTYPE*SCAN)»PERIO THEN 

TPNQ»22-TPNQ PLSF 



THEN GQ ERROR EmD; 



XP 

%P 

-IP. 



20468000 
20469000 

?o470onn 



XP 
XP 



20471000 

20472000 
so 4 7 3000 



01531 1 
0l54«2 



015916 
016110 
016316 



IF TYPE«FREEF THEN GO TO LFREE ELSE 
IF TYPE'Dli''^ THEN 

TPISin4-^l"TPNQ Fl. SF 



XP 



2o473lOO 
20474000 
20475000 



IF 



TYPE^TAPE 
IF TYPE 



LFREFi 



THEN GO error; 
/PERIO THEN GO 



XP 



NEXT ELSE GO CxiT* 



20476000 
20477000 
gna7flB^QQ 



016413 
0166»0 
0167U 



0169<0 
0i70»3 
0172*2 



$ SET OMIT 
L COPY» 



NOT(PACKETS) 

GO TO next; 

IF (Type»»scak) 



KEU IOENT or KUUNT GTR 3 THEN GO TO ERROR; 



STREAMCAjaOJKQUNT*ACCuM); 

BEGIN si:saccum;Si»*si + i;du»'Loc a;D5»«K0IjNT 

IFCTYP£taP(DuP?) GTR 256 pR P(XCH)LSS 1 THEN 
EQ»t3J.C15»8]:sTYPE-i;G0 TO NEXT; 



20478504 
204 78508 
2047851 



0l72«2 
017212 
1?3 » Q 



OCT END> 
GO ERRpRf 



20476520 
20476530 
2047BS40 



errorjx 
ppc«-thue;gu 



oqi^n;% 



20478550 
20479000 
20480000 



0176»0 
0i78»2 
0180*0 



0i83'0 
018612 
0186» 2 






UPDATE» 

PROTECT! 

DSkCHECK« 



TPN0«-l3; 
TPN0*26; 






go TO dskcheck; 



JL (SHM? 



20481000 
2048U00 
20482000 



iffiliiKliiftilliiP'WA- T'-Hipit;:^ . 



% (SHM) 



iliiiiii 

IF 



tSHM) 

C5HM) 
(ShM) 



20483000 
20483100 
20484000 



0187*3 
0l89»0 
0190*1 



SCAN NEQ EQUAL THEN GO TO ERROR ELSE 
IF (TYPE«»SCAN) NEQ IDENT OR KOUNT GTR 2 
STREAM(KdUNT/AcCUM>TU[TYPE]); ^___ 



Then 



X CSHM) 

gO ehrorj 

X tSHM) 



20404050 
20«64i00 
20464150 



0191*2 
Ol92»3 
0193*2 



20484200 
20484250 
20484300 



0193*2 
0196 tS 
0197*1 



019713 
Ol99*2 
■0203*0 



l^^i^ii^lfllliliil0;i^ 



EQN[12]iC18«53:«TYPE+i; 



0m) 

.0m:h 



20464350 
20484400 

20#644 S0 



0205*1 
0805*1 
6 206*2 



X (ShM) 



20484500 T 0206«3 



40 



• t 



1 

2 
3 

4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
16 
16 
17 
18 
19 
20 
21 
22 



23 
24 

26} 
MJ 
27 J 
28 



29 

30 



31 
32; 
J3 
34 

35 
36 

37" 
38 



40 
41 
«2 



*o 

•7 
•8 

iai 

50 
61 
52 
63 
S4 
96 



GO TO 



dskcheck; 

I f £ U ,, „ 



ELSE IF TYPE»FAST OR TYPE«Sl.OW THEN 
EQNCl23«Cl6t23t*H-CTYP£pSL0W); 






20684550 
20<tfl460() 



GO To dskcheck; 

END 
ELSE IF TYPE ' SEN^E THEN 



X 



CShM) 
(ShM) 
(SHM) 



0209«3 
Q?10?l 



20484650 
20484700 
20 4847 50 



% (^HM) 



BEGIN 
EQNtl2],[15»l3»»i; 

GQ TO dskchfck; 



20484800 
20484850 
2Q484fl55 



0210»l 
0212*2 



FXTTU 



GU 



END' 

TO round; 



20484860 
20484865 
Pn4ft4ic>7H 



0216»2 
021710 
0B 1 7«Q 



0218M 
021813 

oa2i»i 



% CShM) 



IF NOLBL Then TPnO ♦ IF TPN0s2 THEN 9 
(IF TPNO "a THEN 5 ELSE* 
CTF TPN0*7 THFN 8 ELSfX 



EtSEX 



2048487b 
20484900 

2046*3000 



(IF TPN0»«»37 THEN 9 ELSE TPNOn)iX 
IF FARQUT THEN IF UNIT.\U232 TheN CIDR0>< tUN iTNQ-323 , C 3 » 5 3 
ELSE IF l.lNTTN0«23 THFN RF AOFRA. E FF 1 *• 



20486000 
20487000 
gnaftftnoti 



0221:3 
0221 « 3 
222 1 . 1 



022211 
0225*0 



ELSE IF UNITNQ»24 TheN READEBB.CFF] 

EQNC33a43l53*TPN0;* 
QO * DEX»liX 



«• Oi 



20489000 
20489 lOO 
20489200 



ELSEX 



ENDX 



20489300 
20490000 
20491000 



0229^0 
023l»3 
Q235IX 



BFQiNit 



DO UNTIL CIOO «■ SCAN) b EQuAL OR IQD s PERI0;X 
IF 100 « PEHIO THEN GO TO ERR0R;X 
IQD «• SCANJX 



20492000 
20493000 
2 04940 00 



0238*3 
024213 
Q245M 



STREAM CK*-0« A> LACCUM[0]3*K0UNTj|X 
etQINX 

SI ♦• A ; st«-sui; di»loc k;x 



20495000 
20496000 
gQ » 97 n0Q 



0246> 3 
024613 
0246»3 



0247»1 
0250«2 
ftg5l»3 



KUuNT<ir Sc<*'0" THEN BEGIN DS«-LlT""*"; 

JUMP OUT TQ err; end; si*.si4i); 

Sl*Sl»KOUNTj 



20498000 

20499000 
20500000 



US 4. 
ErtRS 



KOUNT OCT ;X 



20500l00 
20900200 
20500300 



0253 « 2 
0255 « I 
0255M 



end;x 



IF CTPNO«-P).Cltn THEN GO TO ERRORS 

IF TYPE»PROCE OR TYPp»lO THEN Xt l64TYPE»PROCE3*TPNOX36oO 

EtS£ IF TYP£«COReV THEN XCg03 * TPNO PIV 64 



20501000 
205OI1OO 

20502000 



0256»0 
0257«2 
025812 



ELSE IF TYPtSPRlQR AND TYPESSAyEV THEN Xt 18 + TYHE-PR I OR ]«-tPNO; 

IF TYPE * COREV THEN 

BEGIN 00 UNTIl ( I OD » sScAN ? aMAXV OR IUD=PERI0; 



20 5G 3000 
2 05 0*000 
20504 SQO 



If lOO^MAxV THEN PCCX[20hM0R5 ELSE qQ TO OOwNj 



20505000 
20507000 
20507100 



T 
T 



0259«0 
0259»2 
0259*2 



0259»3 
086112 
02 6$ »2 



ENOI 

DO UNTIL SCAN 



« P€Rio;x 



DCWNIX 

end;x 



ENO;X 



20507200 
20507300 
20508000 



027010 

0276«0 
0276«3 



20909000 
20510000 
20511000 



0280*2 
0282*2 
0282*2 



0285*0 
0285*0 
0285*0 



■*fii,:iii^||||||| 



value type*smid*sfid'sfh'card' 
Real type*smid*sfid*sfh*card; 

ARRAY CMMt*3; 



, SIZE* 0,a»« WORDS 
205UJ00 T 0000*0 
START 0f REL SEGMENT! DISK ADDRESS * 00556 




20511110 
20511120 
20511130 



liiiiiiiiii 



■msi 



SL»^fuNCo>FUKCi,rUNC2>ruNCJ,SLC4">LXY T ; 



m 






0000«0 
0000*0 

Oooo*o 

Hi: 



ill 60 T 



0000*0 
0000*0 

bOQO«0 



n 

2 

3 
4 
5 
6 
7 



9 
10 



12 

13 

14 * 

15 

16 

17 I 

18 

19 

20 ' 

21 

22 

23 ' 

24 

26 

26 I 

27 

28 

29 I 

30 

31 

32 I 

33 

34 

36 4 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 

44 { 

45 



4« 

47' 

48 

49 

50 I 

61 

52 

53 < 

54 

66 

6«< 



LABtL ERR*EHROR*FUNCJ;% 2o5lli65 T OOOO'O 

L SWITCH rUMC^FUNCJ>FUNCQ.FUNCl.FLjNC2.FUNC3;% ?Q' = Hll7Q T QOQflJO 

"■•' LAiEt exit; X 20511171 T 0000*0 

N4I* A8S<CMMC53)) 20511181 T 0000»0 
TF ffCMMfOlEOV ♦'RrrK '^VaNiOT ni ANn ?0'SlUft? T 000210 



* CCUMMCIUND e7700000G007777)EQV ^12000000003 /l^ )'NOT 0) 2o5lll8'* T 0003«3 

^ OR SYSTEMFlLE(CMM[C]*CMM[n) THEN GQ TD ERROR/ 205lll88 T 0005«2 

IF TYPE f liSEV AND 2 05 l l 2'?5 T 000 8 t 3 

(CQMMtOJEOV SMID)«NOT AND (CMMUJEQV SFI0)«N0T 03 THEN 205ll300 T 000912 

EISE 26511305 T 001312 

TF (QPTNiaDIRFCTQRYSFARCMfCMMrQ3.CMMn3*a)l RfQ 64 ThFN ?n5ll3Q6 T QQUiQ 

BEGIN 205113H T 0020«3 

IF TYPE«USEV AND MCOPTN+23<0 THEN GO TO ERRi 20511312 T 002l«l 

TF (TUUNa EQV MCP)»NOT 0) OR ( CMM [ 5 ] = NQT f -0 ) ) ) OR 20511315 T 0025»0 

£MtOPTN*2J>0 ANDCNft EQV A8S(MC0PTN*23))«N0T 0)THEN 20511320 f 0029*2 

SO TO SEC3 ELSE 20511330 T 003510 

'5 | . BEQIN EBRt ^RGETSPACECOPTN)! . 2o5ll34Q T Qq35*0 

'6 F0RGETSPaCE{0IRECT0RYSEARCH(cMM[0]*CMM[1], !<♦)); 20511350 T 0036*2 

" end; 20511360 T 0038*3 

ENq; ^ 20 5 11 3 63 T 0Q3g'3 

'«r^ ERRQRl 20511365 T 0038*3 

4 STREAMcAt«cOMM|G33>B**caPTN*«6ETSPACEciO#0#OJ*2)); 20511370 T 0038«3 

BEGIN S1{»A; Sl*<Slti; DStaLIT** **; DS*«7 ChRI 20511380 T 0042*0 

SI» = Sl + i; DS:sLIT"/''; DSis? CHR; 20511390 T 0043*1 

ds;=24 lit " Security maint ignored*-"; 205iuoo t oo44«i 

FN n str e am ; ■. 2O511^il0 T 004712 



35 



37 



39 



K SP0UTERC0PTN4CAR0C9t9*9J*CARD»l); 205M420 T 0047*3 

Mj GQ TO EXYT; 205ll430 T 0049»2 

"1:^______ Spc3» : ^ 2051144 T 00 5 010 

M GO TQ FUNClTYPfUNLOCKVJ; 2051M50 j 0050*0 

m| FUNCJ'MCOPTN INX 5]*MC0PtN I\X 6]«-eiA;X 2051U55 T 0054*0 

rMMCg] »a " UNLOCK"; CMH[3l *a '^En»«- !LLX 20511457 T 0057*^ 

GQ TO SEC4;X 20511459 T OO6OII 

FUNCOl 20$il460 T 0063*0 

4 ''■ :. MCOPTN INX 5)»«"SMID; MCOPTN INX 63*» SFID; 20511470 T 0063*0 

34I CMM[23l= " SECURE"; CMMt33i» "D WITH "; 20511480 T 0067*1 

MCSFH + 2] 1= P(DUP*L0D*SSB); 2051U90 T 0069*3 



36 GO TO SEC4J 20511^00 T 0072*1 

FUNCl* 20511510 T 0075*0 



^ ■ IF CTUTl AND CMcGPTN423»0)) ThEN M C0PTN+2]*CMM £63; 20511515 T 0075*0 

^^^^ SMlD*»»t[OPTN-»5 3; SF ID* «MC0PTN*6 3 ; 20511520 t 0080*3 



« MtOPTN INX bits MCGPTN INX 63*50; 20311525 T 0084*3 

41 CMMC2J*-'' L0CKE0";CMMC3]<-" FROM ";CMM[43«.'' WITH »";Go TO i»EC4; 20511530 T 0088*2 

FUNC2: 20511540 T 0096*0 

♦3| MCOPTk INX 53♦MCOPT^ INX 23.C6«423; mCOPTn INX 23<-MtOPTN INX 63*0; ^ 205115S0 T 0096*0 

CMMt23l« " FREE F"; CMMC33J* "RE*-*- "; GO TO SEC4; 20SH560 T O1O4I1 

■ FUKC3* , _^^^____ 20511570 T 0110*0 

MtOPTN INX bjt* ei4; MtQPTN INX 63** o; 20511580 T 0110*0 

CM«C23*= " PUBLIC";CMMC33** " FILE*-*-"; 20511590 T 0ll4*0 

~""~~'~"^ 80911610 T Ml«»2 

-..'■^■^^.'-.^^..../■■r. ■.:.::.: \. ..:■:■ :r'^ ■./ m:Mm:'m 20511620 T 011813 



«| IF SeCMSg then 20511640 T 0l2l*0 

" BEGIN 20511650 T Ol2l*3 

s POP OMTT^ „ ,_ ; : __- . 20^U65i T Man 

'''^ liiiiiiiiiMttatiBiiMiiiii^^ ■.'•■::. :.■ ^' .■.. •'•■ . / :..,: '.. ,^,:.:..v.^.;;'-v>;'tigiiwiii#iaiifiiii;. 

AND T LSS FREE AND T^UNLOCKV/X 205U66a T 0l28»3 



• t 



n 

2 



Y*-T = LOCKV AIM0C(CIN''» EQV MCP)»NOT ) AND ( C CMM [ 6 J EQV WCP)/ 
NOT 0)) AND T1^D«•0P^^*^0PT^ KNX 0); 



BEGIN sn«c; siissi+i; osjsiit'' "; osi»7 chr; dsi'LIT"/"; 

3(SI»»SI*1J DS»«7 CHR)1 
tlQUmQi^Ji DSt«2 LITW»»H); ^___ 



20511665 
20511A66 



0i30«3 
Ol3'S>P 



20511670 T 
205il680 T 
2Q5nftfl5 T 



013613 
0H0»2 
01411? 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



QCDS!"L.iT" ";Si:=LOc a;s i ;3Si + i;dsi = 7 chH; QSJaLiT"/"; 

si«-si + i; OS*/ CHK); 

Ycx(ui»Di"i8); si»c/a(Si«-sn.a)jSi»si.>.i;DS«'7 chr; 



205U690 T 
205 a 700 T 
205U7Q2 T 



0l43;o 

oiasM 

OtA6»0 



SI*iJi+9i DS*7 ChR); OS* LIT "*■•'; 

ENO stream; 

SPQUTERCDPTN&CARD[9t9t9 3>CARD*SECMSG); 



20511704 T 0149*0 
20511710 T OlSOIl 
2Q511720 T Ol $Q *2 



$ SET 

S POP 



OMIT ' 
END 
OMIT 



PACKETS 
ELSE FQKGETSPACECQPTN); 



20511729 T 
205U730 T 
2Q 5 . U73^ T 



0l52»i 
0152J1 
P15,5»3 



E)(YTt 

End secutitvmaint; 



205U800 T 0iS5«3 
20511810 T 0l55f3 

SfZf Q^SA wORns 



COMMENT 
*** 



THE PRT cell ' 
ENTRIES IN THE 
S[ 0] 



SHEET" GIVES DISK ADDRESS 
SHEET AKfc AS FOLLOWSl 
« 1 ST NAME g CHR S ? 



OF 1ST SHEET ENTRY 



20512000 T 
20512400 T 
2Q5t2a OQ T 



oooo«o 

OOOO'O 



19 

20 
21 



sc 
sc 



11 

Mil. 



2U 3 » 
1» 'i^ ^ 



"CANDE'' JOB 
2ND NAME. (7 
NORMAL 



(TSS QNUY) 
CHRS) 



20513200 T 0000*0 
20S13600 T OOGOIO 



22 
23 
24 



S [ 2 ] . [ 4 U ] s 



2 JOB HAS BEEN XS-ED (FORCED RUN) 

3 JOB HAS BEEN £b«ED (FORCED HUN AND OS) 

SUPPRESS buJ/eqJ Messages for sysTem jqbs 



20514400 T 
205l4a00 T 
20815200 T 



OOOOJO 
OOOO'O 
0000«0 



2S 
26 
27 
28 
29 
M 
Jl| 

13 



SC 2]*C 6110} B 



GO JOB (FROM COMPILE & GO) 

1 COMPTER (FOR COMPILE i GO) 

2 CXECUTE JOB 



(FOR SYNTAX CHEC»<>(SET TO 2 UAT£R) 
(FOR COMPILE TO LIBRARY) 



2o5l5600 T 
20516000 T 
20516400 T 



OOOO'O 
OOOO'O 
OQOQtO 



23ai8»l53 
23tC33U53 



COMPILER 
COMPILER 

RUN JOB 



3 HUIN JUD 

Skeletons disk address hf sc2),c8uoj • i*2#4 

PRIORITY* SAME AS Stl83 
sc 33ri: I'i 3 » SET fiY SELECTRUN WHEN "SCHEDULED" MESSaSf 



20516800 
20517200 
20517600 



OOOO'O 
OOOO'O 
OOOO'O 



20518000 T OOOOtO 



SC 
SC 



20918400 
20518600 



T 
T 



OOOO'O 
OOQQIO 



34 
3S 



SC 



33. C 
33 ft 



IS SENT (IF SCHEDULED) 
2» 13 * 1 RESTART jOB 
8a03 s SCHEDULE-ID FOR THIS JOB 



20519200 T 
20519600 T 
20520000 T 



OOOO'O 
OOOO'O 
OOOOtO 



J7 

38 j! 



SC 53 
SC 63 
SC 73 



STARtlNa TIME FOR LOG 
* LOCATION Of LAST PAR? OF LOG 
» CORE ADDRESS OF $£QM£NT ZERO (WHeN TmE 



20520400 T 
20520800 T 
2 S 2i200 T 



OOOO'O 
OOOO'O 
OOOO'O 



40 
41 
42 



SC133 



SHEET IS PASSED Tq SELECTRUN AS A PARAMETER) 
DISK ADDRESS OF LABEL EQUATION ENTRIES 
APPLICABLE TQ THIS EXECUTION 0nLY_CS£E BELQW ) 






tr 



20521600 T 

20122000 T 
20522400 T 



OOOO'O 

OOOO'O 
OOOO'O 



«3 



SCi43 



ACTUAL NFIO OF JOS (TSS ONLY). THIS MAY 
SE DIFFERENT FROM 5t03 FOR SOME JOBS 
WHICH ARC SfARTEO BY CANDE, 



20522800 ,T OOOO'O 
20S23^Q0 t OOOOfO 
20523 aOO T OOOOtO 



4« 
47 
t8 



SC153 



DISK ADDRESS Of LaBEU EQUATION eNTrIeS 
PRESENTED WHEN PROGRAM WAS COMPILED AND 

APPLICABLE TO ALL Executions 



20524000 T OOOO'O 
20524400 T OOOO »0 
20524fl00 T OOOO'O 



"iSiiWiiilWIiiF 
mmmmmmmmm. 



49 
50 

51 I 

a 
a 

S4 



■stmM 

S1173 
SC183 



ESTIMATED 
ESTIMATED 



PROCESSOR TIME 



SC193 « 

SC203 » 

SC20]t[ g'l 3 « 



COMMON VALUE 
ESTIMATED CORE 
'CAN*T EXPAND" 



REQUIREMENTS 
BIT (TSS) 



20526400 T OOOO'O 
20526800 T OOOOtO 

MMim..x. .ojagij 



56 'J. 

58 B 



MaMSSMiMifMilM 



mm 









'mmM!m;mmm,mmMMLM ions.? 






28800 T OOOOiO 



S7( 



SC233.[2|6) a UNITNO OF CARD/PSEUOO READER IN CONTROLCaHD. 



m • 



10 

11 



16 
17 



19 
20 
21 



23 
24 
25 
26 
27 
28 
29 



33 



34 
35 
36 
37" 



40 
41 
42 
43' 



IS 



«9 
SO 



S4 

55 f 



S[23],CVt9J 
§[23]tt24:2aj 



REwnTt iiTATION ADDRESS, ELSE. 
TIME JOd PUT IN SHEETCFOR TS MSG) 



2052^200 
?05^96QQ 



OOOO'.O 

opoQ;n 



51241 
St 25 3 
S I2 f3 



*** 



St 27] 
SC293 

ENTRIES 



USER CODE 

DISK ADDRESS Of 

LQRLTNC CTSS) 



riLE HEADER FOR JHE JOB 



20S30000 
20i3040Q 



0000?0 

000010 
QQOOtn 



FQR 



s FID FQR COMPIt£S*TAPE NAME 
= DISK ADDRESS OF NEXT ShEET 
LABEL EQAT, ARE AS FQLLOWSt 



FOR LIBMAIN, 
ENTRY («0 IF LAST) 



20531200 

20131600 
205i2n00 



000080 
OOOOJO 
OOOOiO 



FC03 
FCn 
FCa3«CQM63 



Ft23.Cl8«303 
F C 3 ] , C « 6 ] 
FL33,Cl5l8] 



» MULTI'FILE 
« FILE ID 
« REEL NO 



ID (7 CHRS) 

C7 CHRS) 
(3 CHRS) 



CREATION DATE (5 CHRS) 

CYCLE CI CHR) 

NUM COPIES OF PBD OR PUP FiLE 



20532400 
20932600 
295 3 32 00 



OOOOiO 

ooooto 

000 * 



20533600 

20334000 
2053 4 400 



0000*0 
0000«0 

ooooto 



FC3nt23»U » 1* 
FC33.C42M3 - 1 
Ftfl.C43l53 » 



IF "FREEF" PBD PACKET FILE 

FOR FORMS Required 

FOR CP CFILE TYPES ) 



20534800 
20335200 
2Q535A00 



T 
T 



ooooto 
ooooto 
ooooto 



1 
2 
3 



FDR 
FQR 

FOR 



LP 
MT 
SPECIFIC 



UNIT 



20536000 
20536400 
20536 80 Q 



0000 «0 
0000 »0 
OQ QO«0 



4 FOR LP (MAY BACKUP) 

5 FOR SPECIFIC (UNLABLEO) 

6 FOR LP CNUST BACKUP) 



20537200 
2053/600 
20536000 



ooooto 

0000*0 
QQOQtQ 



7 

8 
9 



FOR 
FOR 
FOR 



PT 

PT 



(UNLABLED) 
(UNLA.BLEQ? 



20538400 
20538800 
209 39 200 



0000*0 
0000*0 

ooooto 



Ft43.C0«6] 
FC43. 16*423 



Ftl2], [15*13 
FC123. tl6*2J 
F[l23«[ie*53 



10 FOR DISK 
a NO OF CHARS IN INTERNAL NAME 
M INTERNAL NAME (MAY CONT INUE TO FC 11 3 ) 



20S39600 
20540000 
20840400 



ooooto 

0000*0 
OQ O Q ' Q 



3 "SENSITIVE" BIT 
= DISK SPEED 
g EU NUMBER * \ 



*tlr*ik 



FU4]- FC253 SAME AS ABOVE FOR NEXT FILE (FCl43»l4 IF NO NExT) 
Ft293 » DISK ADRS.OF NXT ,LBL.E«UAT ,ENTrY (»Q IF NQNE) 
ALSO SEE PROCEDURE "SELECTRUnI" C SE0tN0.200556003 FOR 



20540800 
2054l?00 
20541 600 



0000*0 
0000*0 
0000*0 



20542000 
20542400 
2Q542ftQ0 



0000*0 
0000*0 
0000*0 



**** FURTHER INFORMATION ON 
**** PARAMETER BLOCK. 



LABEL EQUATION AND THE FILE 



20543200 
20543600 
20544000 



0000*0 
0000*0 
0000*0 



**** CONTENTS OF THE JAR* 
vlARC03*t 1*1 3 » COMPILE JOB 
.C 2*1 3 « "CANDE" JOB (TSS ONLY) 



20544400 
20544800 
20545g00 



0000*0 
0000*0 

ooooto 



.[ 6*423 = MFID OF THE JQB 
JaRU].[ 1*1 3 ' JOB IS BEING DS-ED 
.[ 2*1 3 ' JOB IS BEING ES-EO 



20545600 
20546000 

20546400 



0000*0 
0000*0 

ooooto 



,t 6*423 » FID OF THE JOB 
JARC23,C ill 3 « CQ60L JOS 
.f a*t 3 5 QECLARrO S QfTWaR D 



I NT E RRUPTS 



20546800 
20547200 

2Q5 4 76QQ 



0000*0 
0000*0 
QOQQtQ 



.[ 3*1 3 » JOB HAS MAINTENANCE LOG ENTRY 
.[ 4*1 3 » INTER-PROGRAM COMMUNICATION 
fT 5*1 1 « , D ECLARED S qftwAR E I NTERRUPTS 



20948000 
20548400 
2054B8QO 



0000*0 
0000*0 
9,000*0 






6*1 3 « INVOKED OH iNVOKlWfi IPC PROG, FILE 
fti 3 » INVOKED IPC PROfiRAM FILE 
8tl 3 » INTER'PROSRAM COMMUNICATION 



.cia»i53 

.[33*153 



JARC33 



3 



DISK ADDRESS 
PRIORITY 
PROCESS TIME 



FOR THE SKELETON SHEET (COMPILATIONS 
LIMIT ^^^^^ . 



aoS49200 
20549600 

aogsoQOQ 



ooooto 
ooooto 
oooo«o 



20550400 
20550800 
20551200 



0000*0 
0000*0 
0000*0 



iiiiiiiiii«iiitiwiiiiii^^ 



jARt6] ,[ 1*1 3 » JOB IS SO"ED 



20551600 
20152000 
20932400 



ooooto 
ooooto 
ooooto 



20552800 T 0000*0 



• f 



.c 2«o ] » pseudo-rlader number 

.[ ;i»»t53 g SIZE PF mti INFQF<MAT^QN (f^ATcH) 



.C33J15] » 0IS« AOOHtSS OF FIRST RECORD FOH THE LOG 
JARt73 • lULETIME ENTRY (BATCH) 

JARE73 g MFID OF JUB (TSS ONLY). THIS MAY BE DIFFERENT 



205b3200 
205-^3600 



OOOQJO 
O.OOJyn 



2055«000 
2055«400 
2055<ta00 



0000 to 
000010 
000010 



JARt83 
viARt93, [ 



1«1 3 



FROM JAHt03 FOR SGML JOBS STARTED BY CANDE* 
» LENGTH UF CODE FILE ROW 
9 "SYSTEM" JOB (LIBMAtN*LDCNTRL»PHNPBT) 



20555200 
20555600 
20556.Q0a 



T 0000 
T OOOO 

-I Qoon 



«0 
«0 






2»1 3 
3»i 3 
♦ CtaU53 



» SUPPRESS 
s JOB HAS 
' DISK ADD 



PRINTING OF BOJ/EOJ MESSAGES 
BEEN "STOPPED" (WQRKSET PATCH) 
HESS FOR "CHAIN" IF NON'ZERO 



20556((»00 

20556410 
2e556fl00 



T 0000 
T 0000 
T 0000 



10 

»0 
10 



10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 

21:7 

22 
23 
24 

26 if 

28,'; 

27 
28 
29 

30 

31 1 

'2;i; 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

4« 

47 

•8 

•9 
50 

51'?; 

52 

a 

54 

55; 

561: 



.[33:i53 
JARU03 THROUGH 

JARt3o3 



= NUMBER F 
JARC293 a D 
s FID OF OB 



QH DISK ROWS IN CODE FILE 

liiK ADDRESS OF CODE FILE RqWS 

JECT FILE CBATCH COMPILES ONLY) 



2055^200 
20557600 
2Q55aoOO 



T 0000 
T 0000 

T OQOQ 



«0 
«0 

iJL 



END OF comment; 
REAL PROCEDURE LiBCO 



START Of REL 



20558*00 
20566000 

segment; disk 



T 0000 
T 0000 
ADDRESS 



«0 
JO 



00562 



BEGIN LABEc NEXT'LOQP; 
REAL CNTSENS " RETURNVAL+1, 
HQLDl ' CNTSENSfW 



X BEGIN LOCALS TO LjBCC 



20566011 
205662^5 
2Q566?47 



T 0000 
T 0000 
T 0000 



«0 
«0 

15- 



H0LD2 
H0L03 
REI»EAT 



3 



HOLOl+l 
H0LD2+1 
HQLD3-H 



20566250 
20566255 
205 66 26 



T 0000 
T 0000 
T 0000 



«0 
JO 



TYM = REPEAT+i; 
BOOLEAN FIRSTIME = TYM+i; 
Labe l (:C A'QUIT'P^WIF.c H flNfR^ ^ ;^O . M N^Sc* GFTFM*FNTF f L^OPY,S f; EK*IN IT ; . 



20566265 
2o56627o 
20566600 



T 0000 

T 0000 
JL QQOQ 



<0 

«0 
»0 



LABEL DQWNH,OUTrti 

Switch sw«.lc8py*lcopy,ente'ENte#Remo*chan; 

DEFINE ^IPMIXwCAHn«f Ifttftl^i 



20566610 
20566700 
?0«S667ftQ 



T 0000 
T 0000 

-? Qxiiia 



«0 
10 



Subroutine both; 

BEGIN CMMC03!s"LiBMAlN"; CM 
CWM[ 23»= <i; ^ E88 3fl »l03; 



MCn«»"DlSK 

cMM[i 33, ^ -o; 



T 0000 

T 0001 

205A676Q T 000 



20566750 
20566755 

1,6760 



»0 

«0 

) 



n2 



$ SET OMIT s PACKETS 

CMMt233 »sO<iCARDC9l9t9 
A PflP QMTT 



3; 



2OS66765 
20566770 
20 5 6 6775 



T 0007 

T 0007 

4 CLOM. 



10 

io 



SET OMIT a NQT(PACKETS) 

END Of both; 

SUBROUTINE GEtEhFQHREm; XSTQRE NAMES OF sENSItIvE FILES IN ESPUISK 



2o566780 
20566797 

20566800 



T 0009 
r 0009 
T 0012 



u 

M 
«0 



BFGIN CNTSENS t»CNTS£NS+2; 
IF CNTSENS GTR 26 

ThCN BESIN PR0QLg93tgQETESf0iSKJ 



20566805 
20566810 

.20'M681S' 



r 0012 

T 0013 
T 001 3 



»0 
»1 



OISkWAITCPROg INX 0,30*LIBN0); 

LlBN0»aPRUGC293; 

CNTSENSt^H; 



20566820 
20566825 
20566830 



T 0016 
T 0018 
T 0019 



»0 
«0 
«0 



ENO; 
PfiQGtCNTStNSJ»"CMM[23; 
PRGGCCNTSeNStUt»CMM[3 3/ 



20566835 
20566640 
20S66845 



T 0019 
T 0019 
T 0021 



«3 
»3 
ii. 



END Of GETEMFOBHEM; 
REAL SUBROUTINE JjCAN; 

scAN«.scNcunitno*cardlQc»souRce*acciim»kount»lastsc^n* 



2O566850 
20566875 
20566900 



T 0023 
T 0023 
T 0024 



«1 
»2 

»0 



BFSIN 






20566902 

■■'iO:Siiiilii 

20566910 



T.'.'::;|}iliS- 



to 



STREAMCXJ-OlCNJaO^ACCUM); 

BEGIN 

Si t»A 



ccum;si <»si-*-i; 

SC GEO "0" THEN BEGIN 



20566915 
20566920 
2056692 



T 0028 
T 0029 
T 0029 



»0 
«3 
«3 



"« 



8(IF 




^mmm$mmkri•Tmu m ■ en d ■: ei.se 

i:':^;|i&t;»:iiils^l^ M P ■■ .0 U T- END); 

iiiiiiiigilitigy,,.;,; 



20566935 



0030 »1 



end; 



205669<»5 T 0035«2 



10 

11 

12 
13 
14 



16 
17 
18 



19 
20 



21 



24 



26 



28 
29 

» 
3^' 



33 



34 

35 



16 
3?' 



to 

41 
42 



43 
14 
45 
W 
»7 
18 
49 
50 



51 ; 

B2 



54 

56 i 
56 i' 



SkAnjcP; 

ENP QF SKA . Nf 



P(RCW#MYMSCW<STr); 
RCWIaRCW & P(XCHHCTC3; 
PtOiQ,0,Q,QrQ,Oii % ZWRD 



LiBCCI'Oi 

FlRSTlMEIaTRUE^ 

UMTNn«-CAHD.[2»^j; 



LOCALS OF LlRrC 



caRoloc*caho inx o; 
go to swct-copy]; 

LC OPYt 



ENTEI 



IF CCIN;=SCAN) = IDENT 

reciIn; 



ThtN 



FNn 



lF{P»0GCO3:sSKAN)*O 

IF PR0G[03>5n THEN 
FLSE PfiUGr03is.S1 1 ; 



THEN PROGC03J.5U 
PROGt03l«5U; 



EISE CNi»SCANi 



CMM[19]J=0/ 

$ SET OMIT » NOT B6500LOAD 

~~ -^ IF CN«'TQV AND T GTR 



UNLUAD THFN 



BEGIN 



IF CCN»sSCAN)sEU 
BEGIN 



THEN 



IF(CNISSCAN)XIDENT THtN GQ TO INCSC; 

IF PC5KaN#0UP)>19 THEN BEGIN P(DEl.);GO INcSc ENq; 

CN*-P*i;CMM[lV].r9;6]4.rN; 



IF CN>NEUP»NeUF THEN qQ TO INCSc; 

END 

ELSE IF CN»SLOW THEN CMM t l9UPCQUP,LQf^) OR M fLSf 



If cn»fast 
cnisscan; 



THPN CMMC19J,C3I1]<-1 ELSE GO Tg INCSq; 



FNflj 



IF CN«LATESTV and T GTR UNLOAD THEN 
BEGIN 

cn>»scan; 



CMMtl9"J,['HlJS»i; 

end; 

if cnsexpirld then 



BEGIN 



PRQSt03.£9«l3t«i; 

cn»9Scan; 



end; 

IF cn=accessd then 

BEGIN 



:mmi 



CNf«SCAN; 



IF 



UNITN0»23 OR UNITN0s24 OR UNITN0232 THEN 
PROG[OJ,C2J6]«-UNITNO; 

IF Scanxident then go TU iNCSc; 

Ll8N0«-GETE5f'DISK;CMMCl9J.CCF]*LlBN0; 



CMMM9],[FF3«.t; 
GgTEMt X Scan FILE 



NaMeS and store them IN ESPDiaK 



ii«^i^^BB8iiiiMMi^^Biiliiili 

ELSE IF OPTNSIDENT THeN PR0G[ CN] *ACCUM 103 



ELSE GO PqWIE; 



20566950 
2n')ft69^^. 



20567000 
2o567olO 
20367015 



0035*. 3 

Q036Vn 



0036M 
0036«1 
Q039I2 



2056i'020 
20567025 

?05<^7inn 



0041* 1 
0042?0 
0042J3 



20567200 
20567300 
Sn'^67/|no 



0044»0 
0045M 
00A9t3 



20567500 
20567600 
20567700 



20567800 

20567900 
PO'^ftftpOn 



0O«9<3 
00^9 « 3 
005210 



20568050 
20568059 
2 5 6 8 10 



005212 

0058«2 
Q06m 



20568200 
20568300 
20S68<t00 



20568500 
20568600 

29569610 



0063 »0 
006411 
00 6 o»i 



0066*0 
0066»2 
006910 



20568611 
20568620 
20569630 



0069;2 
0072»2 
OQ76 <0 



20568640 
20568650 
POiftfl^On 



007912 
008l»i 
0081 «t 



0085«0 
0089«1 
0090^2 



20568710 
20568712 
20568714 



0090«2 
009211 



20568716 
20568718 



20568729 
20568730 
28568740 



0094? 2 
009710 
Q0 97>0 



20568750 
20568760 
20568770 



0097»3 
0098*1 
0l00t3 



0i02»2 
0x02:2 
0103«1 



20568780 
2056879Q 
20568795 



20568900 
20569000 
20569^00 
20569^00 

20969300 



010313 
0106*1 
0l07*g 



0l07«2 

0110*1 
0113*1 



20569800 
20S69810 
20569900 



oiiiiQ 



0120*0 
012310 
bl2S*0 



209' 
20570200 



liiiJiiiiiii 
iiiilliiiif 
wmm mm 



2057O3OO T 0129*0 



T< 



12 



18 
19 



26 

26 ( 

27 

28 

29 I 

30 

31 

32 { 

33 

34 

36 i 



36 
'37 
36 ( 



40 

4H 

42 



44 < 

4S 
46 



47 < 

48 

4S 



53 ' 



5« * 



• t 



IF SCANXSLASH THEU GO POWIE; 



2 
3 

4 
5 
6 
7 
8 



IF 5CAiN;<SLA5H THEtM GO POWIE; 

IF COPTl:i«-SCAN)*EQUAl THEN PROG [ CN-H 3 «■- 1 

Else if OPTNJIOENT then P«0GtCN*n*ACCUMt03 
IF C0PTN*5CAN)bPE«I0 QR 0PTN»P0UND THEN GO 

ELSE IF DPTN;<CQMMA THEN GO PQrtlEJ 



ELSE GO powie; 

TO QUITXL'' i 



20570400 T 
2Q570S00 T 



013311 
0.1.35»Q 



2o5/'0600 T 
20570700 T 
ZQSy O R QO T 



013612 
0H3M 
014610 



END' 

PRQG[29]«-GETESPDISk; 

DlSKWATTtPROfi INX Qf3Q»L|BNU)J 



20570900 T 
20571000 T 
20 57U T 



014850 
0150»1 



Qlj iTt 



Ll8N0*PR0Gt29]; 

GO getem; 



20571300 T 
2057H00 T 
20571500 T 



0l53t3 
0l54t3 
0t55M 



10 

11 

12 
13 

14 

16 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 f 

28 1 

27 'I 

28 

29 

30 

31 1 

32 |i 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

«2 

43 

44 

45 

(6 

»7 

U 

•9<' 

50|! 

Bl| 

S2 

M 

54 



PRQG[293«-0; 

PROGtCN*23**'H; 

ni SKWAlTCPHUG I N X 0/ 3Q^ t nIB N Q)/ 



20571600 r 
20571700 T 

2n57l8QQ T 



0155M 
0l56»2 
Ol5!^U 



Ll8NO*"APStCMMCl93); 

GO iNiTi 
PfWIFt 



20572000 T 
20572100 T 
209722 00 T 



016011 
0l6l«2 
Ql6?<n 



IF CMMCl93,l.cnfLieNO THEN X MORE THAN ONE ^EGmEnT USED 

BEGIN. , . ., . 

UT S K WAn(«PRnfi,[CFJ*3nf CMM[19 3iCCFn; 



20572300 T 
20572400 T 

2n'57iJ5QQ T 



0l62«0 
0l63»2 



F0«GETtSPDlSKCCMMU9],CCFJ); 

CMMci«3*pRoac293; 

GO PQWlEi 



20572700 T 
20572800 T 
20 572 qQ T 



0l67«0 

0l68»2 
017010 



end; 

FORGETESPDiaK(UlBNO); 

GO iNCSc; 



20573000 T 
20573i00 T 

30 5 7 3?00 T 



0i/0«2 
017012 

Ol /l«1 . 



remqi 



IF CCN«.SCAN)«E«UAl, ThEN CMmi03«.^1 ELSE 

IF CMfelOENT THEN. CWMCQ3«-ACCUMC03 ELSE QQ ImCSc; 



20573300 T 
20573400 T 
20573500 T 



0171J3 
Ol7l»3 
Ql76<0 



IF SCAN''SLAiH THEN 60 INCSC* 

IF (CN«-SCAN)sEQUAL THEN CMMtl]*-l ELSE 

IF CN^IDENT THEN CMW[ 1 3«-ACCUH[ 03 ELSE GO iNCSC; 



20573600 T 
20573700 T 

2Q 573 fl Q0 T 



Ol79> 1 
0l8l«0 

oi es ' o 



SpFKl 



CNl«TI«0; 

IF CCMMt03 OR CMMC13) LSS THEN 



SeEKNAMCCMMtO],CMMCl 3 » CN , CmM 1 2 J ,CMMC 3 ] ,0P TN ) ELSE 
BEGIN 

CMM[2J»gCMM[0]j 



20573850 T 
20573900 T 
20574000 T 



oiee*! 

0ie9>2 



m 



20574100 J 
20574200 T 
20574300 T 



Il9lt3 
0196*0 
0l96«2 



CMMC3J?»CMMC13; 



ENDI 



20574400 T 
20574500 T 
20574600 T 



Ol99t0 
0l99»2 

020011 



IF CN NEQ 

THEN T»=IF SYSTEMFILECCMM[23*CMMC33) 
THEN 2 



20574700 T 
20574750 T 
20574800 T 






0200>1 
020012 
0202J2 



oattto 

it0S»3 



ELSE 0IRECTQRYSEARCH(C«MC2 3,CMMt3],5) 
EUSE IF OPTN NEQ THEN QO OUTRl 
IF T SEi 64 THEI^ 



BEGIN IF HQLD35«NOT(M[T + 43 ,C44I 13) THEN BEGIN FOR GeTSPAC gC T ) » 

T«.D1RECT0RySEARCH(CMMC2J,CMMC3 34(UNITN0»25 QR UnITNOsSO) 
[H47»13*4); end; 



"""^ITliipillillillS^^iiiliil^^ 



20574905 T 
20574910 T 
20574915 T 






020910 
0213»2 
021610 



021811 

0222«3 
0222«3 



IF T LSS 2 
THEN IF T»l 

THEN lBMESS(ABS(CMMC23)*CMMC33*-7,45#0*sPQUTUNIT'U 



- ;. . . CI*M Ul»f««f.«C««t03>pM«|'|3»i,7#i5#0,SPOUTUNlT*l) 

'" "■ Mlt.;Afifi/itCM:iiM#gMii3.».»,y»gi«o*spouTuNiT*i3 



20574950 T 
20575000 T 
20575050 T 



022411 

0224t2 
022513 



a«>-S?5|.O0 T 



■aa?«»3 



« .,1 

P ■ 'a ('■'(' , 



,ilfc,„i .iifelt- 



EL^E IF T GEO 6 4 



20575250 T 0238*0 



>r 



10 

11 



16 
17 
18 



19 
20 



24 
25 



26 
27 J 
2B 
29 



90 

31 



34 
35 



36 
37' 



38 

39 



«2 



»7 
«8 



50 



52 



55 
56 



THtN 



BE.GIN 

If .MLT>2 3 



NEQ AND Uj§EH,iD,£uv mCP) NEfl 



NOT AND (U8ERID E«V A8S(M[T+2])J NeQ 
NOT 
THEN flFfilN ' 



205/53OO 
20 57> ,35Q 



lBMESSCCMMC2]*CMMt3]»-7*41, 

OfSPOUTuMTM)' 
FDRGETSPACF(nlRECTqRYSEARCH(cMM[?]^ 



20575400 
20575^50 



0239»0 



ELSE 



CMMt33#l4))i 
END 
IF MfT^^3«C<t3tg3 NEQ 



20575550 
20575600 
2057565Q 



0243}? 
02«6«3 



0250 M 
Q25t»l 



OOWNRI 



THEN BEGIN 

IF FIRSTIME 
THEN BEGIN 



20575700 
20575750 
20575800 



025210 
0253»2 
025'H2 



FIRSTIMEI»0; 

CMM[193I»(LI8N0»« 

fiETESPQl$K)A36rCTFU 



20575850 
20575900 
2057595Q 



0256»0 
0257«0 
Q257«0 



END' 
MtT*a] ,['t3«23«''li 
DISKWAlT(T.[CF3>3n>T.rFF] W 



20576000 
20576050 
20576100 



025713 
0258»2 



20576150 
20576200 
2n576?tn 



IF H0UD3 THEN FORGETSpAC£( 
OIRECTORYSEARCH(CMMC2 3* 
CMMf3]Ma))t .^_ 



026110 
O261IO 
Q26fl«l 



20576215 
205762l6 
2087621,7 






getemforrem; 

END 

FQRG E TSpACE( di rect PR Y SE ARCH C 



0266»2 
0267J2 

26 8^1 



$ SET OMIT « NOT CPAgkETS) 



IF CN NEQ AND 



FUHGETSPACE(T); 

end; 

CCMM[0J0rcMM[1] ) LSS 



CMM|a3*CMM£3l*6 



20576220 
20576250 



0269«2 
027l«0 
027lt0 



20576350 
20576395 
aOS76it^H 



027113 
027310 
0273fn 



Then go seek; 



OUTRl IF (CNjsSCAN)aCOMMA THEN GO REMO; 
IF CNaPERIO THEN 

■". ' \ IF NOT FIRSTIME THEN 



20576450 
20576475 
20576500 



0273«3 
027412 
0274>2 



BEGIN QPTn;sCN; PR0GC29]Is0; 

PR0G[CNTSenS+23:»P14; 
DISKWAITCPROG INX 0#30*LIBN0); 



20576600 
20576700 
20576710 



0278;0 
0280»2 
028K1 



l.IBN0iaABS(CMMCl9]); 

sqth; 

MtCARDLQC'23t!'0; 



20576720 
20576730 
20576740 



$ SET OMIT s NQKDATACOM AND 



MtCARDL0C-lJ»*10; 
CMM(;6] JsGETESPOlSK 

RJ£) 



20576750 
20576752 
20576754 



0282«l 
028413 
0286»P 



028812 
028913 

029K0 



& I0ciat33ll5]; 



D|i«iA I T ( C A«DiQC»2» 1 1 * CMM {6 3 jN j( > i 

.G0;'.fN|:T ;■,■■■.■■ 



20576756 
2057675a 
20576760 



029310 
0295«0 

297«Q 



END 



CmAN> 



ELSE GO INCSC; 



ELSE GO CCA 



20576768 
20576770 
20576760 



0297«0 
0299*2 



Tl"0; X T 
FOR cNl»0 
BEGIN 



USED AS BIT MASK FOR SYNTAX CHECK 
STEP I UNTIL 3 00 X SCAN iNpUT REQUEST 



20576790 
20S76800 
2Q576S50 



OPTN j« Scan; 

T «■ (OPTNstQuAL) 
If T tHEN CMMCCN3 



20176900 
20576925 
2 5769: ^0 



0300 «0 

0300tO 
030Q»0 



Mi 



& TC43<44U3; 
»« CI) ELSE 



X SHIFT PREVIOUS VALUE LEFT 



iSlliiiif 
iliiiii»iii»iiiiw»iliiiiii^ 



I* AC CUM to 3 ELSE 



20576975 
20577000 
20577025 



0300(0 
030013 
03 Q 2 IQ 



end; X SCANNING INPUT REQUEST 



2Q 577i OQ 



O302«0 
0303«2 
030513 



0308«0 

liiiiiis 

Q3 n«i 



20577125 T 0312«2 



56 ' 

57 



• t 



1 

2 

3 
4 
5 
6 
7 
B 
9 
10 
11 
12 



IF (T NEQ C) AKD (T NEiJ 5) AND CT 
% TS5 FQK "/<NAME1> TG =/<NAMF2> 



NEW 10) THEN GO INCSCi 



% T«10 FOR <;NAME1>/» to <NAME2>/« 

% T«0 FOR <NAMEl>/<NAM£2> TO <NAM£3>/<NAME4> 

TF CREPgATffT GTB D\^ TUFK) 



IQ OR* 



BEGIN 

HOUDI «= CMMC03; HOLDS »« CMMCl]; TYM«=i; cn««o; 

SEEkNAM(HQLD1» HGlD2» CN» CMM[n]# CMM[n> HQLD3); 



13 

14 



IS 
IB 
17 
IB 



19 
20 
21 
22 
23 
24 



2S^ 

ib'? 



V I 

» 



29 
M 



31 j 

32 8 



34 

35 

36 
17 ' 



38 

39 



40 
41 
42 
43" 



•S 
«6 



47 
48 



Mi; 

soS 

Bl| 

u 

S3 
S4 



56 ;. 



':;WMi0mm!lMk 



IF 



CN » 

BEGIN 
IF TYM 



THEN % NOT FOUND iN DIRECTORY 

» 1 THEN % FIRST PASS» NULL SfaRCH 



BEGIN 

LBMeSSChDLDi* H0L02# -5# 
0* SPDUTUMT/p; 



I5v XNOT ChANgE°» NOT QN DjSK 






TYM Is 2'f 

IF HOLD! LSS 
IF H0LD2 LSS 



THEN CMM[2] f* CMMtOJ ELSE 

THEN CMHt33 t» cMM[i3; X uSE NaMe 



'FOUND" 



CNo; 

IF (Tl*liIB£CT0RYSEARCHCC«Mt2J*CMMC3)»5)) NEQ 

. a£Mjy - 



THEN 



forgetspace(T); 

lbmessccmmco], cmmcij* -5* 29, 
Q» spqutumt, n; 



* not CHANGED, O'JP FILE 



END ELSE 

BEGIN 
T«»IF SYSTFWFlLFfrMMtQ3#rMMM3^ ThfN 7 



ELSE 



OIRECTORYSEARCH{CMM[0 3,CMI*i[1],5j; 
IF T GEO 6a THEN 
BEGIN IF N0TCWCT*4]»C^ail]) THEN BEGIN FQRGETSPACE( T ) ; 



end; 

IF T 



TlaDlRECTQRYSEAHCH(CMMc03*CMMti3&(UNiTNO«25)tl««7»l3* 
4)J ENOJ 
IF M[T^it3.t43l23«3 THEN BEGIN FQRGETSPACE f T ); Tt»V 

end; 



LSS 2 Then 



LBMESS(CM«C03*CMM[n**5,l5+CCT»nx3o)* X NOT CHANGED 
X 45 » IN USE' 15 » NOT ON DJSK 
0^ SPDUTUMT^ n ^______ 



ELSE IF T=2 Then 

LBMESSCCMMCO], CMMCU, -5, 25, X NOT CHANGED* SYSTEM FIlE. 
0» SPOUTUNIT, 1) 



ELSE IF mtT*23 NE« AND 
(USERID EOV HOP) NEO NOT AND 
(USERID EflV ABS(HtT*23JJ NEQ NoT 



BEGIN 

LBMESS(CNM[0]» CMMC13' '5' 

Q* §PQVTUMT/ Ml 



NOT 
NOT 

ML 



FREE FILE 

MCP 

CREATOR 



THEN 
4l# X NOT CHANGED* INVALID U^ER 



END 
ELSE 

BEQIN 



X CHANGE OK 



wxmmm^^mmmM'mmmmmms^mmmMmmiiii ■■■■■ 



HEADERUNLOCKCCMM[23*CMM[3 3*T j; 



20577i5C 
2nS77i7;i 



20577200 T 
20577225 T 
?n'!4772^n T 



0314«3 



20577275 
205773OO 
2n5^ ^l2 5 



0316*1 
0318*1 
Oatftlj 



20577350 

20577375 
20577^00 



319»2 
320»0 
323t2 



20577425 
20577450 
20577475 



0327*0 

32713 
0328»t 



0329*0 
0329*2 
0331*0 



205775OQ 
20577525 
20577S50 



0332*0 
0332*0 
0332*2 



20577575 T 

2o5776QO T 
20577<S25 T 



332*2 
033311 
0336*0 



20577650 
20577675 

2 Q 5777Q Q 



0339*1 
0339*1 

Q 34 ?*0 



20577725 
20577750 

20 577775 



20577800 
20577805 
2Q577fllQ 



0342*2 
0343*1 

345* 1- 



20577815 
20577820 
20577823 



0346*1 
0346*1 
Q346 * a 



20577626 
20577827 
2Q 577fl29 



034912 

0351*3 
0352*2 



20577832 T 

20577833 T 
20577835 T 



0356*2 
0359*1 



20577a75 
20577900 
20577025 



0364*3 
0364*3 
0364*3 



036512 
0369*2 
q3<>9< 2 



20577950 
20577975 

20576p00 



20578025 
20578050 
20576075 



0370*1 
0371*3 

374*1 . 



20578i0C 
20578i25 

'.2057||5|^^ 



0375*0 






0383*2 
0364*0 

.^.'il.lj^.in.. 



0387*0 

mimm.. 

0392*1 



20578225 
20578250 
20576^71 



aosj^esoo 

20578375 



0393*0 
0393*0 
393*0 






•«iP:il^; 



' mmm ' 



10 
1.1 
12 

13 

,4( 

15 

16 

17 < 

18 

19 

20 { 

21 

22 

23 < 

24 

2S 

26 I 

27 

28 

2S t 

30 

31 

32 \ 

33 
-I 
34 

3S \ 

36 

37 

38 I 

39 

40 

41 < 

42 

43 

44 1 

4S 

46 



20578425 T 0403*0 



47 

48 
49 
50 < 
SI 
52 

53 < 
S4 
55 

56 y 



m 



10 



12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

10 

31 "^ 

J2 

33 

34 

3S 

36 

37 ~ 

38 

39- 

40 

41 

42 

43, • ■'■■ 



•5 
46 
47 
48 
49 
50 



52 

sa 

i* 

5S;j 
56 « 



^i 



$ SET t]MiT = PACKEIb 

IF LIBMSG THLN 



$ POP OMIT 



20578450 
20576^75 



UBMESSUMWC03* CMMttJ* 52. I CHANGED TO 

CMMC23* CHMi:33# SPQUTyNlT» LIBMSG); 



PBC0UNT:=PBC0UNT-((((CMMC0] EflV "PBO ")*NQT 0) OR 
({CMMC03 tOV "PUD ")sNOT 0)) AND ( CMM[ 1 3 . t CF 3*1 ) ) 
♦ ((((CMMC23 gov "PRD 'MsNDT Q3 OR __^_ 



20578500 
20578525 
2Q 578 ' i 5Q 



0405M 
0a05»l 



((CMMC23 
ENOi 
ENQJ 



EQv "PUD '•)*k0T 0)) AND CCMMC3 3 . CCF ial ) ); 



20578575 

20578600 
20578^25 



040610 
0<^06)0 
O^Ofl«Q 



NEXTJ 



IF REPEAT THEN GO TO LOUP; % FInO REMAINING FILES 
IF OPTNgCO^iMA THEN GO CHAN; 



20578650 
20578675 
20S7i<v&^ 



OtilOM 
0^12J1 
Q415«3 



IF 0PTn*PERI0 then go TO 
INIT« LlBCC*LlBNO; GO TO CCA; 
iMCSCt LlBCC«-i; 



CCA ELSE GO INCSC; 



20578700 
20578725 
2Q ?799O0 



OAlttO 

042212 



ccAj caodr;s:CDExjso; 

IF (UIbN01«PRQcVaL) gTH 1 THEN PR0cVAtl''2 ELSE 
If LIBNQ THEN PR0CVAL»g6 ELSE PROCvAL»cO^ 



20580000 
20580100 
2Q5aQg0Q 



0A22»2 
0423'2 
4 23» ? 



returnvai.«*procval; 

P(CRETU«NRCW3*STS,0*ROS#0*xCH,p&PCCTF3.STr); 

endi % uiBcc procedure 



20580300 
20560305 
20560310 



042413 
042612 
Q43l»Q 



043113 
0433»0 
0435«2 



20580330 
20580340 
2Q56015C 



0438*3 
043912 

044gll 



REAL procedure CCSET' FORWARD, 



procedure ccfinish; 

8 EQ IN 



SiZe» 0443 WORDS 
28580400 T OOOO'O 
START OF HLi SEGMENT; DtSk aDDRESS « 00577 



START Of REL 



Real temp » RetuRnRcw+1; 
p(rcw*mymscw,stf); 

RCWt«RCW & P(XCH)CCTC3; 



% BEGIN locals Of CCFINISH 



20580800 

segwenti disk 

2Q5BQ9S2 



PCO); X ZERO LOCAL 

PPCPROCESSl«or 

cN;gT; 



OF CCflNlSH 



20581080 
20581125 
205flli30 



T 0000»0 
ADDRESS • 



00577 



IF OPTN = PERIO OR OPTN = LIBRA THEN 
BEGIN 

CMM[223!= PRQ«r22j; 



20581140 
20581150 



T 

T 

-X- 



000010 
0000 «0 

00Qi»n 



PROGE23.CCF3t« IF PROGC183 > 32767 THEN 32767 

ELSE PR0GC183; 
TF PR0flta03 > 513 THPN PRQr.rgQJIg 5ip; 



20581250 
20581300 

2n5ai35n 



000211 
000212 
0003^1 



IF PAODR 



THEN 



NtU 
BECilN 
P EaN [29 3l 



20561400 
20581430 



0004 «0 
0005»3 

Qn06tl 



JLL 



ENU> 
PR0GC293J* 0; 
CMM[23.[18a53t» 



IF POEX»0 THEN PEQNC03t"14; 
IF PDEX«i THEN PeoNtl43l« 14; 
0ISKWAlT(PE0NtCCF3>30*PADDR); 



20581550 
20581600 
2n5Pl650 



000713 
0009 t 3 

QQiaU 



20581700 
20581750 
205fllft OQ 



OOIS'O 
0015J3 
001ft»l 



CLOSET»= GET ESP disk; 






20581850 
20581900 
205819.^.0 



0017«2 
0020»0 

oogg»p 



BEGIN 
CE;aNt293«i 
IF CDEXsO 



20S62oOO 
209820S0 
20882^00 



0024»2 
002412 
O Q2 5 « 3 



•■ 0; 
THEN 



CEQN[03»» U; 



iiiiiiiiiiiiiiiiiiii^^ 



20582150 
2058220O 
20582 25 



002612 
003012 
0030 tg 



COMPLEXSLEEP((SCHEDULEIDS/NQT 0) AND SHEETFREE); 



20582350 
20582400 



003111 
0031 » 3 
O Q 3 3>0 



0035*2 
0038*0 
QQ4Q»0 



205024^0 T 00*»0«0 



li 



16 



25 
26 ( 

27 
28 
29 ( 
30 



33 
34 
35 I 
36 
37 

3a( 



41 I 
42 



45 



49 
50 i 



57) 



• t 



19900670 ACCIDENTAL ENTRY AT 1 

LOCKTUGCSHELTMASK); 



COEXI* GETEiPOlSK; 
CMMC23,CCF3I» IF CMMCiSJ > 
POgXt* IF CMMC1B3 > MIXMAX 



2fl5fl2,A5Q T, OO^ytfl 



32767 THEN 32767 
THEN MIXMAX £{,&£ 



EUSE CMMcia]; 



2O302SOQ T 
20582550 T 
20582600 T 



OGSO 
0051 
00S6 



»2 
»2 

to 



IF LIBNQ NtU THEN CMM[19]ls LiBNO; 
IF CMM[20] > 512 THEN CMM[20] »= 512/ 
STREAM(A;aO»Sl»P(.SCHEDUL£lC)S) j; 



BEGIN Sl»«Si 

47(SKIP SB; SKIP 08; TALLY t »TALlY+l ; 
• IF SB THEN BEGIN END ELSE JUMP OuT?; 



205826^0 T 0059U 
20582700 T OO61I3 
20582750 t 0064»2 



20582800 T 0065»3 
20582850 T 006610 
2Q58290Q.. T 0067*0 



10 
11 
12 

13 
14 
15 
16 
17 
18 
19 
20 
21 
U 
23 
24 
2G 
2< 
27 
28 
29 
M 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



DSja set; a!s tally; 
END stream; 

TCMPta P; CMMC3]«= O&TEMH C 8 » 38 > 10 3 ; 



20582950 T 0068»2 
20983000 T 0069«0 
2Q583 Q5Q T 069M 



CM>ilC233tC24«24 3*(CLaCK*PCRTR))DIV 
IF SH£eTtPDEX3,tCF3 NEB THEN 
B£jGLUi : 



60; 



20583i00 T 007210 
20583150 T 0075»2 

20583200 T Q0/7»n 



DlSKWAlTC-PROG,tCF3*30'PADDR«^ 
PRQ5C29 3J* CDEx; 
DTSKWAn{PHQ G.[CF3*30fPAnnR?; 



■SHEETtP0EX3,CFF3); 



20583250 T 0077* 2 
20583300 T 008111 
20583350 T 00 82*2 



END 
ELSE SHEETCP0EX3I* COLX; 
SH£ETtPOEX3,Cl8M51>« CDEXt 



20583400 T 0084(2 
20583450 T 0084*2 
?05fl3500 T 008711 



CMM[293»« 0; 
DISKINAITCCMM.CCF 3^30/ CDEX); 
UNLnCKTOGCi^HFKTMASK W 



20583550 T 
20583600 T 
2 58 3650 T 



0089 
0090 
009 



092 » 2 



<1 
»2 
I. 



END 



tj» cn; 

p£CRETUl!NRCW]^STS/0/RDS'0»xCH,P&PCCTF3^STF); 

ccfini^h; 



20583700 T 0096*0 
205a37lO T 0096*3 
3Q5ft375Q T Q99 » 2 



REAl PROCEDURE QCCO^'^ILE; 



START OF RE[ 



SIZE* 0100 WORDS 
20583800 T 0000*0 

se g m ent; pisk a ddres s « 0Q581 



Begin comment setup of compiler cabeu eouation cOdei pni/pn2; 
REAL subroutine scan; 
sc AN »scncunitnq>cardloc» source /ACCuM»KQUNT»LASTSCAN^DIRECT); 



20S83860 T 0000*0 
20584150 T 0000*0 
2Q584900 T OQ0l »Q 



LABEL SKN/EXIT; 

define iilPMIX = CARD.Cl8«63#; 

DEFINF OISKTYPE = 10*;!»i 



20584250 T 0004*1 
20584275 T 0004*1 
2Q58 A. 100 T 0004*1 



pcrcw#mymscw#stf); 
rci»«»rcw & p(xch)cctc3; 

TH»SCAN;t 



t«5B4325 T 000«n 
20184330 T 0006»1 
20 56 4350 T Q 07I ? 



CEQNr03« = ACCUMc03;s; 
Tt«tSCAN;X 

t«*scan;x 



2058^400 T 0009*2 
2058^450 T 0011*0 
20584500 T 0012*2 



■*liiirt3»'»AccuMto3;x', 
JiiiililiiiiiiiiMi. 



Ifflfl! 



CE«NC43»»*423462425606066;x 
CEQNC123«50; X EU/SPEED CELL 
CDEX ««i;x 



20584550 T 0014*2 
20584600 T 0016*0 
20584650 T 0017*1 



20584700 T 00l8»2 
20584710 T 0019«3 
20584/50 T 0021 »0 



46 
47 
48 
49 
SO 
51 
52 

a 
a 

K 

56 



X (ShM) 









It tmenx. 



CEflN[l83J«?423215l24000000; C0EXl«2;X 

IF UnITNO GEO 32 Then ClDROl^£UNlTNQ-«323f C3J5]I»1 ElSEX 



20B84950 T 
20l85o00 T 
20585050 T 



0032 

0034 

1038 



ry 

«2 

«2 






'.LdjA- :.'.. 'j.Ll 



. ^ , ^Ky2 , ^c,^f^;^, ,'.^^^ , j^., , ^ Q^ y^,„ -g|ii, ^i,^ ..^ ^ . ^^ , . p ^ 



/.tO;ii||ii;||. 






N 

2 
3 
4 
5 



16 



19 

20 



22 
23 
24 
2S 



28 

29 

30 



33 



34 

35 
36 
37' 



39 

40 
41 
42 
43 



«9 
50 
5) 
S2 



55;;; 



IF CNsPERIO THEN BtGIN 
I F CN^WIJH TH E N 



cccgmpile:j = i; go exit end; 



IF CCN»SCAN)»PERIQ THEN BEGIN CCCOMPllE«-i; QO EXIT END; 
IF CN<ftLaOL OR CN^COtOL THEH 
IFCTH.DIRECTQRYSEARCH(ACCUMC03«*'DISK "^5?)^0 



THrN 



BEGIN IF NOT M[T+43,[8:i] THEN 

BEGIN LBMESSCaCCUMCO]*"DISK 

QySPnUTUNlTM)? 



♦'#-22»0* 



end; 



FQROETSPACtCTli CCCDMPItE*U SO ExiT* 
ENO> FORSET SPACE CT); 



COMMENT SET UP NQMINAl vAlUES FQK PROGRAM PARAMETERS'* 
CMMC0jJs-(CMPLR»«ACCUMt0 3); CMMt U « "CEONt ] ; 

Cmm[ ^j».g; 



CMMti3]j« caodr** getespoisk; 
$ set omit » packets 

. CMMr233»0AGARD[9t9»9UUNlTN0C2M2l63f 



S pop UMIT 

S SET OMjT ' N0T(PaC1<ETSj 
Ch(M[27]l«CEQNCl]; %FID FOR SCHED MESS. 



% Get OPTION (Go»syntax Check* or liqrary) 

SkN» DO OPTnJ.SCAn until OPTNaPERlO OR OPTn»SyNTA OR OPTN.LIBRA 

OR optnsquest; % In case of hyphen in comment portion 



IF optn»quest then 

if S0URC£«(CAR0L0C&lC30;a!5»33) THEN 
BFfilN 



oPTN»«PERio; sourcej.carduoc; 

END EtSE GO TO SKN; 
rMMCa3>CBiiOi IS I F nPTNitPrRin THrN l fl SF 



IF UPTN = SYNTa THEN 3 ELSE 4 ; XCOPTNaL iBH A) 
IF OPTN NEQ SYNTA THEN 
X SET UP PROG ARRAY FOR COMPILE ANq qO QR COMPILE TO LIBRARY JOBS 



BEGIN 



^PROGLOJJs CEQNC03; 

PRQGUJt* CEQNCn; 

PROGC2J»sPROGC153 »* o; 

PR0GCl6 3»=PR0GCl7j J= ? 377 7 7777 7777 ; 

PR06Cia3»s (MIXMAX + 1) DIV 2i 



PR8Gtl93»» 0; 
PROGC203«* -1; 
PRQG t2U»» 512; 



PR0Gt22]JB 
PROGt233»a 
PR0GC24]la 



10; 
CMML23J' 

userid; 



ENOI 
EX IT I RETURNVm.t*PROCVAL; % ADJUST RESULT OF TYPED PROC 
p(CRETURNffCW3*STS>0>RDS»0»XCH»P&PCCTF3>STF); 



End cccompile; 

Real procedure in it i al i ze i t ; 



20585250 
2n5B53QQ 



005a«2 
QQ57» ? 



2058S350 
20585355 
2n«SR5i60 



0C58»1 
006213 
006fll2 



20585365 
20585370 
20'>fl5375 



20565380 
20S85365 
2Q56 539Q 



0067»2 
007o»l 

Q072I2 



007312 
007710 

0Q77» 3 



20585400 
20585450 



20585550 

20585599 
20 565 600 



0077'3 
0077«3 
QQBtV2 



008213 
008413 
008413 



20585601 
20185609 
2Q5e5ft3Q 



008810 
0088»0 
O Q98«0 



20565650 
20585700 
?05a57Q5 



0089 » 2 
0089 t 2 
009 31 3 



20585710 
20585715 

20585720 



20585 725 
20585730 
205fl575Q 



0095»3 
0096«2 
009813 



20585800 
20585850 
2 0595900 



0099 U 

010013 
Q 100 II 



0l03»3 
0107*1 

oioa«o 



20585950 
20586000 
20586050 



OlOSlO 
0108*2 
0110»0 



20586i00 
20586^50 
2 05862 , 00 



011112 
0ll3«3 
01l6t0 



20586250 
20586300 
20566350 



0U8I1 
011912 
0U1*0 



20586400 
20586450 
20586500 



0l22'l 
0l23«2 
0l25»0 



20586550 
20586600 
205a6A25 



0l26»l 
0126»1 
012710 



20586650 T 012913 

SIZE* 0132 WORDS 
, 2058 6 700 T OQOQ'Q 



■-■-^^^-■■■/■^■^riiaSM: ■":•:-■■',-■ start Of 

.Riii;v:::^^ilsgiiypiva^^^^^^^ inihalizeit-' ..■ 



rel segment; disk 

20586715 
20586950 



ADDRESS « 
T 000010 
t 0000*0 



00S66 



REAL SUBROUTINE SCAN; 

SC AN«-SCN(UnITN0#CAR0L0C» SOURCE, ACCUM,KOUNT,LAStSC AN, DIRECT); 

p(Rcw,mymsCw#3Tf}; 



TRYAGAiNt 



i«ii»«liiiiiiiW«ilttiliii«^ 

PR0GCl33l»eADDRt»P0EX»«0; » iN CASE PROGRAM NQT IN DIRECTORY 



20587050 
20587i00 

gp587ll0 



■mmmmmm 



0000*0 
oooi*o 

0004*1 



000611 
0007*2 
0007«3 



20587l70 T 0010*0 



• t 



IF (T:=DlRECTO«YSEARCHCABS(CMM[0])^CMMl«»IF CMMtOj L^S THEN 
"D I SK "..£. ^? . E C.. K MMJ,,j),)»a,,ThEN . .. 



BEGIN 

IF CCMMCoJ EOV ♦♦LIBMAIN")«N0T THEN 
IF tCM MEU £ av "^ DISK ")»N nT T HFN 



20587200 
^0567250 



20587 310 T 

;20'58y,3,2Q,vr.T, 



ooio«o 
OQU»n 



001513 
0016 «1 
00 1810 



BEGIN 

ENTERSYbFILECn^ 
Gn TRYAfiAlNJ 



ENO> 

IF CAR0»C9I93«0 THEN GO TO LS; 
ii &fj DMiT at NdtfOATACnMi 



20587330 T OOZQll 
205873^0 T 0020«3 
20587350 T 002.1»2 



20587360 T 
20587370 T 
20567399 



0024«0 
002al0 
Q02S»3 



10 

11 

12 
13 

14 
IB 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26i; 

27?:: 

28 
29 

W 

31 f 

32]; 

33 > 
34 
35 
36 
37" 
38 
■ 39 
40 
41 
42 
43" 

♦s V 



LSI 
SPLAT 



BEGIN 

iBMESS(At3S(CMMC0] )' CMM l* - ^b^0» 0' SPQUTuNI T* i )' 



t- 



20587500 T 
2O587550 T 
205 8 7650 T 



0025»3 
00251 3 
002St3 



IF UNITNO GEO 32 T^EN BEGIN INI TI ALIZE IT I •S^GQ EXIT END; 
END! 
OQ T»SCAN UNTIL T>IDENT AND TSRESETVJ . : 



20587700 T 
20587750 T 
2O5a7B00 T 



002813 
003l»l 
Q3 1M 



IF UNITN0=3l ANO NTl Gt« THEN BEGIN IN IT I AL I-2EIT « »7; 

GO EXIT end; 
NTitao; iNitialiZftt» = i/ go exit ; 



2O587B50 T 
20587900 T 
2Q567 950 T , 



003413 
0037! 3 
O Q38 «-t. 



end; 

IF MCT INX 43,t9»23»2 THEN 
BEGTN FORGETSPACF(T); 



20587975 T 
20568000 T 
20 5 8801 T 



004011 
004011 
Q04?t^ 



GO TO spot; 
end; 
IF securitycheckcabsccmmcq] ?> 



20588020 T 
20588030 T 
2 n 5 fl Bo5 T 



0044«0 
0044«2 
Qn^4tg 



CHM1*USERI0»T)»0 THEN 
SEGIN 
QPTNIisOl cMMr33t»T; 



20588i00 T 
20588150 T 

?05a6aQ0 T 



0045»2 
004710 
QQ 4 7 t: 



P(DIB£CTaRYSEARCH{NABsCCMMC0p,CMMCn««CMMl*l3),DEt); 
INITIALIZEIT»«4; 

Gn TO exit; 



20588250 j 
20588350 T 
20588360 T 



0049 « 2 
0052»2 
OQ53»l 



end; 

0ISKI0CN1**(PE0N INX 0»J )»30*Mn + l03 ); 
PCMCT INX »3«C9I23''3); F0RG£TSPAC£CT);XNOtE FQR BELOW 



CMMt24]»= USErtlO; 
CMMC25];x T.tFF]; 
SLEEPC[Ni]/lOMASK); 



20588370 T 
20588400 T 
2 Q58 8 ft50 T 



0053*3 
005313 
005810 



20588500 T 
20588550 T 
20588600 T 



006l»l 
0062»2 
0064*1 



FQR T«=l STEP 1 UNTIL 4 DO 

IF (NOT >aS(PEfiNCT3&0CCTc3)) NeO NOT ThEN TI* /; 
$ SET OMIT « NOTtBREAKOUT) 



$ SET UMjT s BREAKOUT 

IF PEQNC3j;[l»l] THEN P( DEL*T I «0 ); » CAN-T RESTART; 
S POP OMIT 



20586650 j 
20588700 T 
20588710 T 



006513 
0067*0 
0072*3 



IF NOT CP OR T) THEN *NOT CODE ^ 

BEGIN 

LBMES5(Aa»(CMMCO3)*CMMl#-l9*O#0*SP0UTUNlT»l); 



20588730 T 
20588740 T 
20588745 T 



0072*3 
0072*3 
0075*1 



SPOT* 



P(DlRECTQRYSEARCHCNABb(CMMC03)*CMMl*13),0EL); 
GO TO SPtAT; 

. end ; 



20588750 T 
20S88800 T 
20588900 T 



20889000 T 
20589i50 T 
20889^00 T 



0075*1 
0076*0 
0076*2 



♦7 
•8 

49 

50 
B1 



0079*2 
0081*2 
0082*0 









0082*0 

ooesto 



52 
53 

SS 



CMM[153J» 0^ 

CMMtl63l« CMMC173** P 377777777777; 
CMMC183*»CWIXMAX»1) QIV 2; 



20589400 T 
20589a50 T 
20889 460 T 



0089*1 
0090*2 

P09l *. |.. 












mMMmiMiihiiMim. 



i!i:idU::iiiim::,:-!::!:Mi:Sam::^:L 



■^iiiiiiiilii 




ism 



end; 



20589500 T 0099*3 



h 

2 
3 



18 
19 



22 



24 

25 



27 
28 



30 
31 ' 

33 

34 

35 

36 

37' 

38 

39 

40 

41 

42 



46 



47 
•8 



49^- 
SO*' 



52 
53 



55 -f 
56 1.,: 



INITIALIZEITJ=3; 

EXIT» heturnval« = prqcval; 



* ADJUST RESULT OF TYPED PROC 



END 



PCtRi:TiRNRCWJ*STS>OtBDS#0'XCH#P4PICTF3*STF)i 



20589550 
2n5fl9A0Q 



0099»3 



Real procedure ccuniu 

BEGIN LABFL U W FHROR^ FX T T; 



20589610 T OlOlM 
20589650 T 0l04lG 
STZF< 01 Oft WORDS 



START QF REl 



Real subroutine scan; 

SCAN*SCN(UNITN0*CAR0L0C*S0URCE,ACCUM#K0UNT*LASTSCAn#DIRECT)J 
PCRrW.MYMSCW*3Tr w , 

rcw»»rcw & pcxchjcctci; 
tj» Scan; cn«= accumco] j 
t*-scan; if t^equal then go error; 



20589700 

segment; Disk 

?Q')ft9720 



FOR TJs STEP i until 31 DC 

IF CN,C6»183»TlNUCT3.t30ll83 
fiO ERKoa; 



then go to uu 



ui« If labeltablectj neq eaia thln begin ccuNiT»a6; go exit end; 
cN»s scan; 
multitablecT]»;»kdctable[T3isq; 



LABELTABLEcT]!'* ACCUMC03; 

if (cnjs SCAN) • Slash then 

BEGIN MULTITABLECT3>» LABELTABLE C T3 I 



END. 



Cn«-SCAN; LABELTABLt[T3«-ACCUM[03; CN*iiCAN, 
IF CNsCOMMA THEN 



begin ifccn*scan);«ident or k0unt>3 then go errqr; 
stream(R«.oikountmccum); 

BEQ IN Sl»ACCUM;SI*Sl»t;OI«'LOC R;DS»K0UNT OCT EnDj 



RDCTABLECT3«-P(XCH*RDCTABLtCT3)&P(XcH)Cl4S38«l03; 

lF(CN*SCAN)sCOMMA THEN 

BEGIN lF(CN»SCAN)^iDENT OR KQUNT>5 THEN GO ERR OR; 



STR£AM(R«-0JK0UNT#ACCUM); 

BEGIN suaccum;susi*i;oi«.loc r;os*kount oct enoi 

R0CTABLECT3»P(XCH#RDCTA6LECT3)&P(XcH?C24l3llt7 3; 
lFCCN*-SCAN)sCaMMA THEN 

BEGIN IFCCN«-SCAN)XIDENT OR K0UNT>2 THEN qO ERROR; 
STH£AMCR»0 8KUUKTj>ACCUM); 



BEGIN SUACCUM^SI^si + UDIfrCOC R;DS*K0UNT OcT END> 
R0CTA8LECT 3*PC XCH#R0CT ABLEtT 3 )4P( XCH ) t4 1 14117 3; 
END XCiCLt 



end xcreation date 
end; *reel number 

IF CN'' PERIO THEN DO CN*SCAN 



Until cn»periq;ccunit*-o;go exit; 



errsri ccunit**; 

EXIT! RETURNVALI»PftQCVAU; X ADJUST RESULT OF TYPED PROC 
P(CRETuRN«CW3>STS*0*ROS»0»XCH^P&PtCTF3»STF); 



END ccunit; 

Real procedure ccsecmaint; 



T 0000*0 

ADDRESS « 

JI — 0000 «o 



00590 



20509950 
20190000 

gosffdoio 



0000 1 
0001 >0 
0004*1 



20590C20 
20590050 
20590100 



20590i50 
20*90200 
?059Qa50 



0006«1 
0007»2 
Q0l0«2 



20590300 

20590 350 
20590^00 



0013*3 
00l5»0 
Q019I3 



0020«1 
0023«0 
024*? 



20590/J50 
20590500 
2O 59O's50 



20990600 
20590610 
20 590 65 



2 0590655 
20590660 
29590665 



0026*3 
0028*1 
Q3 0» 



0032*0 

0036*2 
00 3 6*? 



26590668 
20590670 
29 5906 75 



T 
T 



O037il 
00«1*3 
0Q»I»8 



0045*0 
0047*3 
0050*0 



20590680 
20590685 
20590688 

20590690 
20590695 
20590700 



20590705 
20590710 
2 59 07 15 



0054*3 
0056*2 
0058*0 



0060*3 
0063*0 
0067*3 



20590720 
20590725 
20590730 



0069*2 
0071*0 
0073*3 



0073*3 
0073*3 
0073*3 



20590740 
20590750 
20590751 



0079*0 
007913 

00«Q*g 



real subroutine scan; 



START OF REl 



20590800 T 0083*1 

SIZE* 0084 mORDS 
20 590 8 50 T 0000 *0 



scanZscn(Unitno»cardloc*souhce,accum*kount*lastscan#direct); 

label OPTnO'0PTnI»0PTN*:*SeC1'SEC2*SEc5*STi* 
ST2^LS; 



SEQNENTI OlSK 
20590910 
20591^50 



ADDRESS m 
T 0000 10 
T O QOQI Q 



00593 



SWITCH SW»»0PTNO#OPTNl#0PTN2; 

iiiiiiiiiiiiiiii^ 



20591400 
20591500 

205?|5§9 



GO TO SWtQPTNNJ; 



20591600 
20591610 
20391620 



0001*0 
0004*1 
0004 U 



000411 
000411 
Q006M 



20591650 T 0007*2 



• t 



>r 



10 

11 

12 
13 
14 
IS 



16 
17 
18 

19' 

20 

21 



22 
23 
24 
26 
28 

28 
29 

90 



31 i 

32 

33 

34 

35 

36 

37" 

38 



40 
41 
42 



«3 



46 



»7 
«8 
«9 
50 
51 
52 

a 

S4 



55 
56 



apTNOt usERm«= abs(userid); 

ir SCAN LS5 IDLNT THEN BEGIN 



CCSECMAlNTf ft/eg EXIT FNOr 



SMID'a CMMC03I* ACCUMCQ3; CMsSCANi 

IF SCAN iSS IOEnT THEN BEGIN CCSECMAlNTl*6; GO EXJT END; 

SrlO*8 CMMtlJt* ACCUM£03; COEXM Qj 



IF (SFHtsDlRECT0RYSeARChCsMlD#SFID*4J)s0 jHEN GO TO l$i 
IF N0T(SY5TeMFILE(CMM[C0£X] 'CMM[CDEX + n) OR 

cSMID EQV "PBD **)=N0T 0^ AND C Mf SfH-i-5 1 aO 



AND MCSFH*23 NEQ 0) THEN 
INHIBIT USE ON PUBLIC* SECURE FIueS 

BEGIN CNI^^SCANJ GQ TO 0PTN2 ENDJ 



OPTNl; 



DPTNJ=0; CMMC23I* Sfh^ 
P(0IRECTQRVSEARCM(NABS(CMMC03)»CMMCn#U)»DEL); 

STREAMCUSEKID^Q»'»USERID>0>B; = LCMH3^D|gCNt»GFTSP4 (;t::tlO'Q'O?*??/ 
BEGIN fflCSIt«UOC USERIOi sn»SI + l;OS t«LlT •« "; DSia 7CHRJ>; 

OSI» irtlT " INVALID USeR OF "; Sll»B' 
SI>»SI*t; Os»a 7CHRJ OS»«LIT **/"; SKsSlfU Ds»» ZCHRj 



0PTN2: 



dsjslit"*-"; 
end stream' 

SP0l)TEHfCN&CARDr9;9;93'SPQUTUNlT* 1); 

FQRQET8P*CECCMMC23>; 

IF OPTN NEQ THEN GO TO SECSi 

IF UNITnO GEQ 32 THEN BEGIN CCSEcMaInT <»5 jGO EXIT EnQ; 

GO TO ccc; 

CMM[b3 »=US£RlDii 

STia r.OFXis 0; 



SeCI' F8R OPTNIsO STEP 1 UNTIL i 00 

BEGIN CN»«i>CAN^ 
tF T»UPEN ANO CNgUNLQCKV AND OPTN»0 TwEN 



BEGlW T:=UnlOCKV; go To SECl END 

Else if cn lss ident and cn neq equal then go to 

CMMLQPTN3tg IF CN-EaUAL THEN -1 ElSe ACCUmL03j 

cnisscan; 



sTi; 



end; 

IF CNswItH THEN BEGIN CN»SC AN; CMMI6 ]»IF CN^IOENt THEN ACCUMCnJ 
ELSE USE^^ID; CN4-SCAN ENq ELSE CMM [ 6 3 «-USeR I O; 
IF CMMCO3 ^iEQ AND CMMU] QEQ THEN GO TO SECS/ 
NlSs CMMC03; N2ts cMHllU N3{g O; STia 1; 



ST2» seeknah (nun2#n3,cmm[;o j#cmmei3*tu; 

IF N3 NE« Then go TO SEC2; 

ST»« q; g d td Sfc«^; 



SEC2f IF CAb§CUSERID)EQV MCPJ NEQ NQT THEN 
IF SYSTEMFlLECCMM(CDEXJ>CMMtCDEX + l3 ) OR 
CCMMC03 EQV "PBD »« 3 s NOT THEN GO 



SEC?; 



SECURlTY«AlNT(T*SMlo*SFI0*CMM#SFH*SPOUTUNiT)J 
SeC5» if ST THEN GO TO ST2; 
IF CN^COMMA THEN fiO SECH ■ 



LSI 



IF T»USEV THEN 
HEADERUNL0CK(SMI0#SFI0'SFH); 

GQ TO CCC J ^,™__™_„___ 

L 8'M€:s,s tmii»»iiiiii«iiiiiiiif itti.wiif # i u ■ 



MMMiftiiipiiiKaiii^HiSH^ 

If UNITN0»31 and NTl GEQ tHEN BEGIN CC5tCMAINT«»7; GO EXIT ENOi 



NTl«» 0; CCSECMAlNTlai; 
STH IF T«USEV THEN 



GO tXlTi 



Mm 



■'■"'''■■'■* 



Ml*»cftyiiiocKtsMi0,srio#srM')i -• ~ ~~ 



20591700 
gO'3<?l7'iO 



OOIOJO 

onino 



20191800 
2o59l85o 
26S91OQ0 



20591950 
20592000 

2 592 5 



00141 1 

ootna 



002410 
0026 » 3 



20592100 
20592i50 



20592250 

20592300 
20592a00 



003211 
0035»1 
003^1 



20592ft50 
20592500 
20S92550 



0039 «0 
00^1 «0 

oo^3h 



00«7il 
0049*2 
OQSg 1 1 



20592600 
20592650 
20592700 



20392725 
20592750 
20592800 



0053»3 
0054«1 
0054« 2. 



0056»l 
0057«1 
0058?2 



2 0592 a 50 
20592900 

20 592 9 50 



006110 

006i»2 
0Q62;3, 



20593000 
20593050 
20593060 



20593100 T 

20593150 T 
2O593P00 T 



0064»0 
0065»0 
0066*2 



006911 

0071J0 
_007A10 



20593250 
20593300 
2n5933lo 
20593320 
20593350 
20 593400 



0077 « 3 
00 79 » 2 
0081 i3 



20593450 
20593500 
2Q593«i5Q 



0086«? 
009l»l 
QQ94»i 



0097«3 
0l02«0 
01Q3M 



20S93600 
20593650 
2059370Q 



20593750 
20593000 
2Q593«S0 



0l04»2 
0107J0 
01 0982 



20593900 
20593950 
20594000 



0U2«1 
0114*2 
OliS<3 



20594330 T 
aO59^40<J T 
209944>50 T 



0ll6«3 
0U7>2 
OUHl. 



20594500 

20594550 
20594600 



0l22t0 
012510 
0127*2 



0131*3 
0135*1 
0137*1 



203947Q0 



muw 
mmm: 



20594751 T 0141J3 



1 
2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 1 

15 

16 

17 I 

18 

19 

20 * 

21 

22 

23 ' 

24 

2S 

26 { 

27 

28 

29 ( 

30 



31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
46 
46 
47 
46 
49 
SO 
51 
52 
53 
54 
55 
S6 
57 



11 



• • 



2 
3 

4 
5 
6 
7 
8 
9 
10 



12 
13 
14 
15 
IB 
17 
IB 



19 

20 

21 

22 

23 

24 

26 ■ 

2« 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 



36 

37' 



38 
39 
«0 
41 
42 



«3 
44 
45 
46 
47 
18 



49 

50 J. 

51 * 
52 
53 
54 
S5 ;;j 
B6>' 



End CcStCMAINTi 



REAL PROCEDURE CCLASEl; 

bfgin labfl exit; 



2059^800 T 0n^J2 
SI7FS 0\U <=. uiUBns 



START OF REL 



20594050 

segment; disk 

2Q594W7Q 



T OOOQtO 

ADDRESS * 

_I O QQQfQ 



00598 



P(RCW*MYM3CW#STf ); 

RCW:=Rcw & Pc>cH)[cTc]; 

C.UtvQi 



2059^080 
20595090 

2059t?l5Q 



0000*0 

oooiti 

Q002«? 



UNITCODEtUNlTNU-233»« USeRIUJ 
MULTITABUECUNITNOII'* O; 
R0CTABLECUNnNQ3M Ul [ 14» 381 10 3 ; 



20595200 
20595250 
2Q59SK30 



IF UNlTNQ=23 THtN BEGIN CN J «READERA . CFF ] ; READERA J =C ARDtOC END 
ELSE IF UNiTN0«24 THEN eEQl'^ CN « »R£ADERB. CFF3 ; READERB* »C AROLOC 
FLSE IF UNITNO GEO 32 THEN BEGIN CN»» C I DROWC UNlI TNU-32 ] , [ 3 l5 Ji 



END 



2o59535o 
205954OO 
20595a50 



0003 U 
0005 »0 
Q0Q61V 



ClDR0WCUNiTN0-323,C3l5Jt« 0; 
ClDRQWtUNlTNQ-32 3.[l8tl53»» CARDLOCi 
MrCARDLQC"a3.C3t63<»gOfMfCARnLQC"33l«UNiTN0''3?J 



oooa«2 

00ll«3 
00i5>2 



205955OO 
20595550 
20595560 



0019»1 

ooazM 

QQ24M 



end; 

IF CN THEN BEGIN LABELTABLE tUNJ TNG ] » » "CARD 00" OK 
((IF UMTNn GFQ 32 THEN "C/'* Fl SF ^^^772^ 



t UN IT NO)/ 



20595600 
20595650 
20595700 



0030 J 2 
0030*2 
0(33?>n 



IF T 



cclabel»«6; go txiT; 
end; 

g LAQFV THEN BEGIN ■. 



20595750 
20595800 
20595850 



0035«2 
0040*0 

noftoto 



MULTlTABLtCUMTNQ3l«MCCARDLOC + l3,t6*a23; 
STREAM(Al-0*B!=0,C»aOsO:=CARDUOC+3 3* 

REfiiN ni*=LQc a; sn*n;ns*s3fn;T^ 



20595900 
20595950 
20^)96000 



0041*1 
0045 ;0 
0047*1 



os*»5oct; osi«2oct; end; 

P(P(XCH)'i^'C24*31M73 4P(XCH)Cl4»38»lOJ# 
fRncTAfttECUNTTMm].«.)jai 



FLSE IF 



tAB£lTABtEtUMTN0 3«=«rtcCARDLOC + 2 3.C6»42]; 
END 

scn(unitno»cardloc>squrce>accijm.kqunt»i, . astscan>direct? 



20596050 
20596i00 
20!l96l50 



0048*0 
0048»3 
0050*3. 



GEO IDENT then LABELTABLECUNITNQ3»»ACCUMt03 

ELSE BEGIN IF UNITNQ GEG 32 THEN 
{!lnR0WfUNITNQ"323.flfl*i53*g0J 



20596200 
20590250 
20596300 



20596350 
20596400 
PfiSq6/i5Q 



005l*2 
0055*1 
00 5 5 * 1 



005713 
0060*1 
QQ6?*1 



CCLA8£LJ*6; 

end; 

CCL A g E L««8J 



GO exit; 



20596500 
20596550 
20596600 



006511 
0066*2 
0066*? 



EXIT* returnvalj»procval; % Adjust result of typed RRQc 

p([returnrcw],sts,o#rds*o,xch»p&pcctf3#stf); 
End crLABFL; 



20596650 
20596651 
20S967Q0 



0067*1 
0068*0 
0070*3 



BOOLEAN PROCEDURE CCFind; 



start of RE| „ 



Sizes 0072 words 

20596750 T 0000*0 

segment; d^sk address s 00601 






20596760 

20596945 
20596947 



mmm 



IF t*endfi Then begin P(0); go 
IF t-datav then begin PCI); GO 

|F T^UABEV THEN BEGIN PCl?; GO 



m 



TO FINDX END'' 

TO finox; end; 
TO findx; end; 



0000*0 
0000*0 
OOOl il 



fiiiiiaipiiiijiiiiiif 

returnval*«>procval; > adjust result or typed proc 



20596950 
20597000 
gQ 597 , Q59 



0002*2 
0004*2 
0006 *2 



P([RETuRNRCWi*STS#P&RCwtCTC3*0#RDS*0'XCH,P&PCCTF]*5TF); 

End ccfind; 



20197100 
20597450 
^ 0597, 459 



oooe*2 

000812 
000910 



PROCEDURE CONTROLCARO(CARO); VALUE CARD; REAL CARD; 



20597460 T 0009*3 
20597500 T 0013*0 
SIZE* 0014 WORDS 



BE^I>< 



-am 



LABEL CC»CCTYPE» COMPILE » INITIAL I ZAT I ON*aEFORETRYNEXT*TRYNEXT* 



>Miiiiiiiiiilpiiiipi»;a- 



20597650 T 0000*0 



• t 



>r 



10 

11 

12 
13 

14 
IS 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
26 'f 



28 
29 



30 

31 J 

32 

33 

34 

35 

36 

37' 



39 
40 



«2 

43' 

44 

46 

46 

47 

18 



49 
50 



61 I 
52 



S3 
54 



55 
56 



CQNT HOLES » C OM ROL A* COMPILE J OB* COM JOB* EXEC*EXKUN# HUN » 
USER3fUSES*SECBUMB>UNLUXM OX. rRErS> QPf NS>FNTE . 



LCOPV^CHANOE* REMOVE* UNIT I *INCSC*ENDF#EN0ECK*SAVEN0# 
LABE*F INI S*2IPEXlT*EXlT*SET#RSEt» down; 
La BEL CCe.PACK*PACKg*WATTWlPLrSTl 



Switch type* UNLUx*LSES,L0X*fREES,0P£NS*PACK*USER5* 

RuN,C0MPli.£,EXtC*LC0PY*LCQPY#ENTE#ENTE*REMOvE/ 
CHANGE>UMTI>ENDF.WAIT,LABE.LABE.SET,RSETJ 



Switch sw«- cc,cctype#initializatiqn#befor£trynext*5ECbom0#endeck* 

INCSC*ZIPEXIT*EXIT#PACK2; 
DFFINF 7lPMIX8CAHD.tlAlA]lt. HSm :RCF«CA RO . i:24t t *] i(l 



REAL SUBROUTINE i>CAN; 

SCANt*SCN{UNlTNQ*CARDLCJC,SOURCE>ACCUM*KQUNT^LASTSCAN,DIRECT); 
S SET UMIT = NQT(PaCKETS) 



p(o*o*o#0#o*Oj.o*o»CaO);x 

PCO*0*0'0»0'0»0»0»0»0)i* 
PCQ«0#0*0»0*0>0*0»0/0)#» 



PCO'O'O'O'O'O/O'O'O)/ 

% 00 NOT ZERO THE LAST THREE LOCALS ( RETURn-MSqW, 

RCWtsR CW i P( ..C0NTR0LCARD,LQD)[CTC3; 



RCW* & Val) 



UNITnO I* CARD.t2l63; 
IF CARD. [331153 * THEN 
BFGIN CARD.t33tl53 



g GETSPAf:Efl3>Q*0^*4J 



if waitioccaru inx picoooooo,? 15,uni tno ) . c a5 j 3 3 neq ox 

Then 

BE(»TN LARFI TAhLFCiMITl^Ql >a P 1 1 a i -^ 



RRRMECH Is NOT TrtO (UKITNQ) AND RRRMECH^» 
TDflGETSPACECCARU INX KDT ' 1171 ' 



end; 
end; 

CnMMENT GFT OWN STACK AND GFT RID HF INnEPFNPENT STaCK;% 



Comment set up accum array for scan;x 

ACCUMt»[M[G£TSPACE<lO*0#0)423UlOC8»38» 103;X 
ACCUMTQ] 1* Qi% 



IK (CCTBLWQRD»=P(CCTB'-WURD*OUP)&(P,CFF3 + l>[CTF3),tKF3>l THtN 
BEGIN 

IF CCiBlaDDR»o ThLN SLE:EP([CCTBLW0RD3»(i'7/'y77J; 



DIRECT JsCmCCCTBLWQHD J 34CCTA8LSZt8» 381 lOM 
END ELSE 
BEGIN 



DIrtECTI = CM[T:sSPACL(CCTABLSZ)3 3<iCCTABLSZt8:38Jl0]; 
D ISKW A IT ( -T, CCT ABL bZ *M ESS aGET ABLE [33. [22*26 3 ); 
CCTBLADDRtsT; 



end; 

CMM»»t«C€ETSPAC£(l30,2,g)+2JH30Ce»3Btl0 3;% 
P£QN» «C31 INX (CE0N«a(31 INXCPR0Gt»t{3l INX CMM)))))JX 



% PLACE "." IN 

CARDlOC »» CARD 
IF UNlTN0«2i OH 



COL 73 i% 

INX oi% 
UNlTN0a26 



OR UNITnQ<»30 or UNlTNQa3l THEN 



IF UNITNO GEQ 32 AND UNlTCODEt UNITNQ"23) » C 1 II 3 THEN 



20S97700 
20597750 



OOOO'O 

ooQo?n 



20597800 
20597850 

2n5978fl0 



OOOQIO 
000010 



20597900 
20597950 
20596000 



0000*0 
0000 «0 
OOOQIO 



20S99000 
20599100 

2o<^noQnn 



0000»0 
000010 
OOOOlO 



20600020 
206000'tO 

20600099 



0000«0 
0001 lO 

Q Q4U 



20600600 
20600650 
20600700 



0004M 
0007J2 
0010*0 



20600750 
2O6OO755 

20 6 076 



0012*2 
0014*3 

0Q14»JL 



20600850 
20600900 
2 06Q0950 



20601000 
20601050 
2Q6QUQQ 



0016*1 
0017*2 
0Q16<3 



0022*0 

0024*2 
0024*^ 



2060 H 50 



002612 
iyi528»2 



gn6§ia«ifl T QOictti 



20601300 
206OI35O 
2Q601Z100 



00 30*3 
0030*3 
00 30*3 



2o6ol45o 
2O6OI5OO 
2Q60m5Q 



20601600 
20601620 
20601^40 



0030*3 
0030*3 



20601660 
20601680 
20601700 



0035*3 

0039*1 
0039*3 



206OI72O 
20601740 
20601760 



T 

T 

X 



0043*0 
0046*0 
0046*0 



T 
T 
T 



0049*0 
0054*3 
0057*3 



20601780 
20601850 
20601900 



T 
T 
T 



20601950 
20602000 
20602050 



0059*0 
0059*0 
0062*3 



0066* 1 
0066*1 
0067*2 






2g XTrA SAFf 



UNlTCODECUNlTNO-233 *»M[CARDLOC + 103> 
IF UNlTN0*23 UR UNITN0'»3l THEN USERID»sMCP ELSEX 
BEGIN IF UMTN0S26 THEN UNlTNQi«3l|X 






%>.ieT OMIT »' wf «0i»fMOw M ■ ■ 



5P0UTUNIT»sC 




20602250 
20602300 
20602350 



007l*l 
0075*2 






0078*0 
0081*2 
0085*1 



**'j 



2060246 



fO 

„ M ti |f 



8 
9 
10 



12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
12 
23 
lA 



$ SET OMIT s 



NaT(PACKETS) 

0)&CARD[9I^»93; 



f SET OMIT « NQTCPaCKETS) 
COMME^T SCAN FOR CARD WITH 
CC« IF SCAN M£Q QUEST 



QUESTION MARK IN COL* 
THEN fiO TO iNCSCiX 



ut 



t«*scan; 
cctype* if (T lss UNLOCKV) 
fiCI in TNCSC^X 



Qfl (T GTR RESETV) THEN 



IF CaR0.C9«'^1 NEO THENX 
$ SET OMIT » NOTtOATACOM AND Rj£ ) 
TF CffFTND THCN Gn Tn IMCSCt 



IP 



(TLEQ INTER) AND Ct GEO RUNV) THEN 
BEGIN * 

M E CAR PLQ C " ?3 ?» O i l 



2060*^469 
20602500 



0090?2 

0Q90»? 



20602509 
20602590 
2Q602<^30 



0092*1 
0O<^2«1 
0Q9g»< 



20602700 
2O602800 

20602850 



20602900 
20602909 



0094«0 
009512 
0097»1 



0096*0 
0099 »1 



2o603o00 
20603050 
20603iQ0 



oiono 

102 J 3 
01Q3U 



25 
26 

27;'; 

28 

29 

30 

31^ 

52 

33 

34 

35 

36 

37 ~ 

38 



39 

«0 
41 
42 
43' 



♦5 :: 

47 
IS 

49*' 
50 S 
51* 
52 
53 
54 
55;: 
56 1; 



MccARouoc -n ««io;» 

CMMC63«a GETtSPDISK & 10 t 18 t 33 » 15 ] ;X 
t STT OMTT 8 NnTfQATACflM AND RjF i 



PISKWAITCCARUL0C-2#H#CMMC63 
END/X 
S SET QMIT = NOT (PACKETS) 



INX 00; 



X WRITE'OUT CONtSOU CARD FOR LOGGING ROUTlNEX 
X BRANCH ON iST WORD ON CONTROL CaRDX 
LIBNOl»QJ 



TOG«= false; 

GQ TO TYP£[T-UNL0CKV3; 
COMPILER CALL UuT CARPit 



COMPILE* IF CCCOMPILE THEN GO iNCSCi 
INITIALIZATION* OPTNN J» iN jT lAL liiElT; GO DOWN; 
BEFQRfTRynEXT* IF OPTN^tPERln THEN Gn Tfl COkTRQLERj 



TRYNEXTJ IF KOUNT«PlA THEN 

IF S0URCE«(CARDLOC&lt3O:45*33) 

BEGIN ^^_ 



THEN 



_L£ 



CONTROLERj 



PPCPROCESSi-i; TI'SCAN; go CONTROLAi 
ENO^ 
SCAN NEQ PERIO THEN GO TRYNEXTj 



PPCPROCESSJs 1; 

IF Scan neq quest 
T*s scan; 



then go to incsc; 



CONTRCLAl IF (T USS 5ETV OR T GTR CoBOt,) AND ACCUMCoi N£Q CMPlR ThEN 
IF T SEQ UNLOCKV AND T LE«I LABEV THEN 
GO TO FINIS ELSE GO TO INCSCl 



IF CAhO,C9*9] NEQ THEN 
$ SET OMIT a NOTCDATACOM AND RjE > 

IF ccFiND Then go to incSc; 



$ . SE.T ■ QM I T::i»i::i»iiiiii«iiii'if si::^^ 



go to trynext 

ELSE GO TO COMPIlEJOB; 

IF optn'SYnta then go to trynext; 



mm^tmmmmm^^Simmmm^ 



GO 
COMPIi^EJOB* 



LASTSCAN*DIRECT) 

TO controler; 
t<»scan; 



then go to incsc; 



COMJOb* if PPC(CAOOR'CEON,cMM,COEX.T*UNITNO^CARDLOc» SOURCE* ACCOM, 






iii 



am. 



COMMENT EXECUTE CABij;* 



20603150 
20603200 
20 6 C3g09 



20603250 
2060 3 350 
20603359. 



0J05«1 
0l07»i 

OtOO*l 



20603400 
206Q3490 
2060.3 "^00 



0109*1 
0111*3 
flUl»3 



0111*3 
0Ul«3 
0111 13 



20603550 
20603600 
206Q 37Q Q 



20603750 
20603900 
2 Q6Q4Q50 



0112*2 
0113*1 
126*1 



20604i00 
2060ai05 
2060^,1,10 



0126*1 
0127*2 
Q129»Q 



20604115 
2060^120 
2Q604125 



130*1 
Ol3l«0 
0133*1 



20604150 
20604200 
2060425,0 



Ol33»3 
0137*0 
0137*0 



20604^00 
20604350 
20604360 



0139*0 
0l39«3 
Ol4g*0 



20604400 
20604409 
20604450 



0143*2 
0146*2 
0148*3 



20604479 
20604500 
20604S50 



0149*3 
1 51 * 
0151*0 



0152*3 

0152*3 
0154*3 



20604600 
20604^50 
2O6Q47OP 



20^^ 

;206.04.:igl'; 



T 

m 



20604900 
20604950 
2 06050 



0157*0 
0157*0 

n99H 






0165*0 
0166*3 
0t67»l 



0171*3 



20605250 T 0174*0 



• t 



2 

3 
4 
5 
6 
7 



EXEC! P(EXECU); 
EXRUKl UPTNt^P/ 



CMMtl33lsCAOORJ»COEX»*0) 
TtsSCANI CMMtO3l»ACCUMC0i; 
Tl^SnAhii Tl»SC&Nf 



20605300 T 
?Q60!33?0. T 



0174«0 



20605340 T 
20605360 T 
?06n'33ftfl T 



017413 
017710 
OlBfilO 



IF (CCMMCl]l=ACCUMCO]) EQV "DISK " ) « NOT THEN 

IF (CMMCO) EQV "PRnPBT '')s\OT OR (CMMCQ] EQV "L IBMA JN" )eNOT 
TH F N IF UNHN O N EQ 31 TH£N GQ TO INCSCi 



CMMC23l»OftClF 0PTN«RUNV THEN 5 ELSE 2)t8»38ll0]; 
CMM[«33l«04CAHDt9«9»9U£ 
SET OMIT ? NOTCPACHETS? -. 



2060^400 T 
20605440 T 
20605 460 T 



0183«2 
0l86»l 
Q16 9«? 



20605480 T 
20605500 T 
206055 9 T 



0l«2U 
0196«2 
Q19fl >l 



to 
11 

12 
'3 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26* 

wj 

27 I 

28 

29 

30 

31 ' 

32 

33 

34 

3S 

36 

37' 

38 



GO TO initialization; 

Run: pcRunv); 



UNIT^0)[2^42»63i 



20605520 T 
20605550 T 
206 056Q0 T 



0l98»l 
019913 
OPOA'Q 



60 TO EXRUN* 

usERSi TtwSCAN; t»«scan; 

IF (USgRlD.tUlT ANO USERlD^MCPi 



20605650 T 
20605700 T 
20605750 T 



0204»1 
020413 
Q20S*g 



$ SET OMIT 5 NOTcDaTACQM ANP RjE ) 

THEN BEGIN 

USERip:''Aqcu w [o j ; 



20605759 T 
20605800 T 
20 6 5 . 8 1 T 



O2O9J3 
0209 « 3 
0211 »2 



$ SET OMIT » NOT<PACKETS) 
ENO; 
CCCI XCOHE HERE TO FLUSH TO NEXT INITIAL WORD 



20605819 T 
20605830 T 
2Q605fl7Q T 



0212<2 
0212t2 
0212*2 



S SET OMIT = imQT(PaCkETS) 

s SET OMIT s Packets 

DO T«-SCAN UNTIL T>IDENT AND TSRESETVJ 



20605879 t 

20605899 T 

20605900 J 



0212»2 
0212«2 
021282 



S POP OMIT 

GO TS CCTYPEi 
USESt 0PTNNt»OJ OPTNNtsCCSECMAiNT; GO DOWN; 



20605901 T 
20606000 T 
206Q 6 05 Q T 



0216»3 
0216«3 
Q21 7U 



secbo 

UNLOX 
LOX> 



mb« optnn»»i; uHTNN»*ccstcMAiM; go uqwn; 



2O6O61OO T 
20606i50 T 
20606?0Q T 



0219»2 
022l»3 
22 1» 3 



FREES 
OPENS 



0PTNN»g2; QPTNNlaCCSECMAIM; GO QOHNi 



20606250 T 
2O6O63OO T 
20606350 T 



022113 
022l»3 
022113 



ENTEl 
LCOPY 

Chang 



t 
: 

F5 



2O6O64OO T 
2O6O645O T 
2O6O65OO T 



0224*0 
0224«0 
0224*0 



REMOV 



E» 



OPlNNIifLISCC;. 
GO SWCtlPTHNJl 



20606510 T 
20606600 T 
20606610 T 



022410 
0224*0 
0228 * 



40 
41 
42 



SETJ togjs true; 

RSETt IF CCSET THEN GO CC ELSE GU iNcSc; 
UNlTIt OPTNlMiaCCUNi rf GO DOHN; 



20606650 T 
2O6O67OO T 



0231*0 
0231*3 
0233 U 



45 

46 

47 

t8 

49 

» 

51 iJ 

52 

53 

54 

55 

56 ;■•■ 



INCSC I 






^2^0'60i*i»^^^' ■■?:.. 



■lii'fl'*' 3 
mmiA 

0835*0 



S SET OMiT 8 NOT(PaCkETS) 
LASTSCAN l» 0; 



CMM[13» 13)»0EL); 



20606870 T 
28606874 T 
20607000 T 



0238*3 
0240*0 
0240 »0 



"IflEAMMilRiiiipifliiilflli^li^^ 



:-.ao:iiiliiw: 



0240*3 
0245*0 



BEGIN 



0S»«»20Ln*'#C0NTR0L CARO ERROR 'S 

sn»Loc U; snssi.»5; DSi»3 cHR; 



20607080 T 
20607100 T 
20607^20 T 



0247«2 

0247 12 
0250»1 

025510 



ittiai«iili»i8iiii 



a«607i80. T 



DSJa4LlT'' AT "; 



20A07200 T 025711 



2 
3 

4 
S 
6 
7 
8 



siJsAccuM; sis=si+i; 



THEN SH'SI-H FLSF HStsCHR); 



20607220 
2C16Q7^^Q 



02b8JO 



eROtcsi«LiT''i«; 

0S»»LIT"*"1 



Sn«CARDLOC; 2C0SI-36 CHR)); 



_EM|U- 



20607260 
20607fl0 
20607300 



T 026011 
T 026212 
T 086 3 lip 



IF UNITNU^25 THEN 

BEGIN 
SP0UTER(T.SP0UTUNIT>1); 



20607500 
20607550 
20607600 



026311 
0264 «0 
Q26<><2 



END 



IF UMTN0»30 OR UnitnO'31 THEN GO ZiPEXiT; 
IF UNITNO GEfl 32 THEN GO ENDECKi 

ELSE . 



20607700 
20607750 
2Q6Q7WQQ 



0265«l 
026713 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 ~ 

20 

21 

22 

23 

24 

25 

*■.; 
"■■^ 

28 
29 
30 

31 i^ 
J2 ;■; 

33::', 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

♦a" 



s SET 



BIGIN P(WAlTiaCT*0#2b)*D£L); 
FORGtTSPACk.(T)i 

OMIT s PACKETS 



20608000 

20608050 
206Q8 059 



T 0269 to 

T 0272 » 2 

JT 0.273' 1 



$ POP 

$ S ET 



OMIT 
UMTT » 



GO TO ENDF^ 
NQTfPACKETSa 



20608060 
20608061 

?n6oao6» 



0273«l 
027313 
Qa7Vl3 



end; 

J SET OMIT ■ NDT(PACKETS) 
DO 08 



20608100 
20608109 
2Q608 1 50 



T 0273r3 
T 02 73' 3 
T 0273«3 



FETCh(-UMTNO*CARDLOC# SOURCE) 
UNTIL SCAN»0UEST 

UNTIL SCAN»ENUFIJ 



2060B200 
23608250 
20606^00 



027313 
027«I3 
0276»1 



ENDFt: 
S SET 



OMIT a NOT(PACKETS) 
IF UNITNO NEQ 30 THEN 



IF UNnNO«23 

IF UNlTN0*2<> 

IF UNITNO GEO 



UNlTCODE[UNlTNO-'233l»-c; 



THEN READEKAIaO ELSE 
THEN REAOERBtaO ELSE 
25 THEN 



20608450 
20608^59 
206Q85 00 



T 0279«0 
T 0279J0 
T 0279»0 



20608510 
29606520 
2 06095 50 



T 0282«l 

T 028a»i 

J. Q 2 9 6»3 



IF UNITNO GfcQ 32 THEN 
PaCK2:I XPaCKET cards END HERE FrOM PSeUOO-REAOErS 
IF ClDTABLEtUNlTN0-32»3] LSS CIDTABLEC UNI TN0«32/7 JtHEN 



20608600 
20608610 
20608650 



T 0288 »0 
T 0289«1 
T 02901 



BEGIN FeTCH<*UNITNO»CAROLQC*SOURCE)J 
$ SET OMIT » NOT(PACKETS) 

ao cc; 









END ELSE 
BEGIN 
$ SET OMIT = NOT(PACKETS) 



20608820 
20608830 
20608639 



0295«3 
0295«3 
0296 <1 



$ SET 

ENDECK 
S POP 



OMIT « PACKETS 
QHIT 



t 



2060B8S« 
20608860 
2i608fl61 



0296»1 
02f6»l 
0296 tl 



_ENfi. 



ENDaFDECK((UNlTN0-32)#SP0UTUNlT&CARDCl»l'U )i 

GO zipexit; 

ELSE 



20608870 
20608880 
2Q608fl90 



0296>1 
029813 
0299H 



GO 2IPEX1T; 

IftT««<UMTN03 AND SAVeWQRO) NgO THEN qO TO SAVENDi 

IF WAlTlU(CAft0LOC4400tl8t33ll5n»i5»UNlTNO).C45U3 NEQ ThEN 



20608900 
25608950 
20609000 



T 029911 
T 0299 »1 
T 030113 



46 
47 
•8 

•9:1 
so^t 

Bl| 
S2 
i3 
S4 

55 J 

sa:f: 



saveno« lab 

,. . 3m 



BEGIN 
EITABI«ECUNITN03J« 
MECHj* NOT {hU} 



pii«; 



AND RRRMECH or 



20609050 
20609100 
20609150 



030a«0 
0304«3 
3.061.0 



mmmm 



iifiiiiiij 



20609200 
20609250 
20609^00 



T 030810 
T 0309»2 
J 031010 



M[(SOURCE:t» CARDL0C) + 9]l» Os*' , " [ 1 ' 43 » 5 ] ; 
USERID«» UNlTcODE[UMTNQ-23]7 

GO TO cc; 



20609350 
20609400 



T 0310»0 
T 031312 
031511 







20609420 
20609450 
20609500 



WAITt 



20609555 T 0318»3 



• 9 



>r 



» SET OMIT 
Fi.NlS,;..». 



« NOTCPACKETS) 
CCFlNlSHi 



S SET OMiT B NQTCPaCKETS) 

SELECTION! 
IF UNlTiSD NEQ 31 THEN 



20609559 
2 , 09600 



20409ft59 
20609700 
206Q9750 



031813 
31 9 » 3 



031912 
031912 



4 
S 
6 
7 
8 
9 
10 

n 

12 
13 

14 

IS 

16 

17 

18 

19" 

20 

21 

22 

23 

24 

ZS''; 



BElilN 
S SET OMIT = PACKETS 
IF LIBNU NEa AND (UMTNQa23 OH UNlTNQg2<* nR UNIT N p fiEQ 32) 



AND T NEQ ENOFI THEN 

BEGIN 

LABELTABLECUNITNOJtcPaia; 



20609760 
20609799 
20609800 



0321 
322 
32 2 



«2 

10 



20609850 
20609900 
20609950 



0325 

0326 
0327 



»0 
«3 

ll 



SL£EP(CLABEl-"fAeLEtUNlTN0]l*PlO0); 
LABLLTABLE[UNlTNO]ta»Pia; 



ENO; 



2O61OOOO 
20610050 
2O61OQ6O 



T 328 
T 0330 

J 33 1 



»2 
«1 



$ PGP OM|T 



■mm ■ 



TJ F0RGETSPACE(CARDL0C-2); 
OMIT = NOTCPACKETS) 



20610061 
2O61O1OO 
206l0i50 



0331 
0331 
0332 



13 
13 
LL 



ZIPEXI 

exit; t 

$ SET 



20610200 
20610250 
2 61 Q 259 



T 0332 
T 0333 
J QUI 



»1 
»2 
12_ 



FORQETS^ACECACCUM INX Q)}% 

FORGETSPACECCMM INX 0);* 

IF (CCTSLW0RDt»PtCCTBLV»QRD>DUP)&CP.[FF3''l)rCTF3),[rF3*Q THfN 



2O6IO3OO 
206 10 350 
2 06 10400 



T 0333 
T 0335 

T QU T 



'2 



BEGIN 



FORGET SPACE (CUTBLADDH); 
CCTBlAP PRt'O ; 



20610410 
20610420 
2Q61Q43Q 



T 03«0 
T 0341 
J 034 P 



»2 

«0 
i4- 



27 1 
28 



END^ 

IF UnITNQ GEO 32 AND UMTnO LEG 63 THEN 
PSEuOQCOPYtg PSFunaCUPY * 11 



20610440 
2061O5OO 
2061055 



T 
T 



0-X- 



03«3 
0343 
0345 



»2 
»2 
J-t. 



29 

30 

31!= 

J2 

33 

34 

35 

36 



KILLCtMScWJ); 

End ccntrolcard; 



2061O6OO 

20610650 



T 0347«0 
T 034713 
Sl7£g Q348 hORDS 



REAU PROCEDURE CCSET* 

BEGIN LABEL MQRE^SEEK .SkI P» CC£RR» L 1 .L2 J 



START Of REL 



REAL 



fxtog 

LOK 

H 



HETUHNVAL+l* 
FXTQG+U 



% BEGIN LOCALS OF CCsEt 



20700000 

SEGMENT* DiS^K 

26701000 



T 0000 
ADDRESS 
1 OOOQ 



lO 
ML 



00614 



20702000 T OOOO'O 
20702100 T 0000»0 
2070 3000 T OQnO»0 



SENSeTOG « N+i; 
REAL SUBROUTINE SCANj? 

SCAN»ScN(UNITNO*CARDlQC^SOUHCEyACCUM»KOUNT>LASTSCAN*Dii£.CT); 



20704000 
20705000 



0000 
0000 
0001 



10 

»0 
IiL 



40 
41 
42 
43" 



PCRCW'MYMSCrt*STF ); 
RGWlsRcW & P{XCH)[CTC]; 
PC0>0*0»0); % ZERO LOCALS QF CCSET 



20707000 
20708000 
20709000 



T 0004 
T 0006 
X 000 7 



«1 
«1 
12 



46 



UNnNOl»CARO,C2l63> 

CARDLOC«»CARO INX Oi 

IF NOT (rXTQ6>»(CNI»SCAN)aFIXED) 



THEN 



20710000 
20?U000 
26yt2fi00 



T 0008 
T 0009 

J ooit 



«2 
»3 



46 
•7 
•8 



IF NOT CSENSETUG:=(CN=SENSt)) THEN 
IF CN ^ ACCESSD THEN GO TO CCEhR* 



M nR E» 



20713000 
20714000 
2Q7150 Q0 



T 0013 
T 0015 
T 0Q 1 7 



«3 
«3 
12_ 



«9 
SO 



51 



IF CCNtaSCAet)»EttUAl. THEN CMMCoi»P"l ELSE 

IF, CN Qe<3 IOENT THEN CMMCOJ »« ACCUMC03 EUSE GO CCERR 

ir SCAN NEQ SLASH THEN 60 TO CCERRl 



2o7l6o00 
207170OO 
20716000 



t 0017 

T 0022 
T 0025 



12 

10 



a 
a 
34 



IF (CN:eSCAN)«tUUAL THEN CMMdJjs-i ELSE 
IF CN GE« IDENT THEN CMMt U : =ACCUM(:0 ] ELSE 
rO to CCERRJ ^__ 



20719000 
20720000 
20^21000 



T 0027 
T 0031 



T 0034M 



»0 
«0 

t 



56 u 



CN»»TI«0; 



ilv 



aim 



SEEKNAM{CMMi:03»CM(v|[ 1 ] , CN , CMM [ 2 3 »CWM t 33 * N ) ELSE 



20723000 
20724000 



0034 
0035 
0035 



fir 
It" 

Km 



£f 



20725000 T 0037'! 



2 
3 
4 
5 



HEGIN CN!=i; CiiM[2]I=CKM[0j/ Ci^^C 3 ] J =CMM C U ENo; 
fF CH NEQ Q THlN , 



207ii6Q00 I OO'42'O 
??r,7?7nOC T Q04ft»l 



REGIN 



IF MOT FXTUG THEN IF 
BEGI^ li^2i GO skip; 



SYSTiMF I IE (CMM c 23 * CMM C 3 3 ) 



THEN 



20728GOO T 

20f29e©0 T 
20 730000 T 



0047*0 
0047 « 2 
Q05Q'0 



r;=nipECTUHY5£ARChCC.-i"'^C2J»CMy[3]^ 19); 
FNU EL^E IF N=U THEN aF.GI\ Cy.'vi [ 2 3 : =CMmC 3 ; 

EivU 



Cvi.i[3]5 = CMMt. 1]; Go l1; 



20731000 T 

20732000 T 

20733000 T 



oobiia 

00 5^50 



skip» 



■./.■■•A 'ELS.E .GC .L2';. 

If T :aEa-64 T. HEN :..:::. . 



20734000 T 
20735000 T 
207 36000 T 



0C59« 1 
00&9 M 
0059i1 



10 

11 

12 



8EGii\ 

IF .-l[T+AJ.£«3«23 = 3 TdEN 

BEGIN U1SkwAIT(T.[CF]>»30jT.[FF3); 



T« = i ; Gu L ii £i\p ; 



207370UO T 
20738000 T 
20739000 T 



006C JO 
0060J2 
0063t0 



13 
14 
IS 



IF CUSERID EQV MCP)« NOT OR 

(USEHIO EQV A8S(MCT+23))« NOT OR 
(NOT SEnSETOG and CM[T*23»0)) THEN 



20740000 t 
20741000 T 
20 7 420 00 f 



0067 «1 
0069«2 
00 7213 



16 
17 
18 



BEGIN 
LOK«»0; 
IF FXTOG 



20743000 T 0075»3 
2o744oOO T 0076 11 
207 <l 5 000 T 0077;Q 



19 
20 
21 



THEN MCT+43.C42M3t«T06 
ELSE IF SINSETOfi 

THEN IF LQKIatCMt:T»4l.t43>2Tan AND NOT TOG^ 



20746000 T 0077 10 
20747000 T 0079«2 
2 6748 Q QQ T O Q & t '? 



22 

23 
24 



THEN MtT+43.[43«2JJ"0 

ELSE IF MtT+4j,[43«23al 

THEN ELSE M[ T*43 . [ 43 : p J ;qTOGxg 



20749000 T 
20750000 T 
20751000 T 



0084«3 
0088' 1 
092 M 



25 
26 
i^ 
2S 
29 
JO 



ELSE BEGIN 

MCT44J.£llti3tsT06; 
.STRFaWfnATF«jis'ii; 



20752000 T 0095»3 
2075i000 T 009&ta 
?O7ft40Q0 T QlQUl 



BEGIN Si:»LOC DATE; 0SJs60Ct; 

M[T+3J,C12«183J=JUNK; 

XMJ 



End; 



2o755oOO T 
20756000 T 
207^)7000 T 



0102 »1 
Oi03«0 
OlQi^'l 



31 

32 

33 

34 

3S 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



DlSKWAlT(T.[CF3*-30'T.tFF3)i 

$ SET OMIT = Shared I SK 

UNLUCKDIRECTORYJ 



20758000 
20759000 

?n7ftQoon 



T 0106M 
T 0108»3 
J OlQft«3 



31 
32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 

44 ( 

4E 

46 

47' 

48 

49 

50 ( 

51 

52 

53 { 

54 

55 

56( 

57 



S POP OMIT 

$ SET OMIT a PACKETS 

IF WSTOG THEN 



20761000 
20762000 
2Q763Q0Q 



0112M 
0U2M 
U 2M 



* top OMIT 



IF LOK THEN PCDIRECTOrYSEARCHCCMM [ 23 , CMMC 33*6 )* DEL ) 
ELSE LBHESSCCMH[23«CMMC33>IF TOG THEN 12 ELSE 11. 



20764000 
20765000 
2 n706o QO 



011310 
0113»0 



l3 + {SE^SET0GX47)-CFXT0Gx3)»0»SP0UTUNIT*RSTO(;) 

END 
ELSF L3W£SSCCMMf23^cMM[33.-(ll4T0G3Ml»Q>SPQUTUMTM) 



20767000 
20768000 
2 076 9 000 



012180 
0123S3 
0124^3 



45 
46 
47 
«8 
49 
50 
51 
52 
53 
M 
55 
56 



END 
ELSE 



ML 



LBMESS(CMM[2 3*CMM[3]#»(1UT0G)»15»{(T»Ux30)*((T»2)x10?* 



20770000 
20771000 
20771100 



T 0l2t*2 
T 012813 
t 0l28«3 



0*SHaUTUNlT#l); 

$ set omit = sharedisk 
L'Nlockdirectqry; 



20772000 
20772100 
2 Q7722P0 



0134*2 
0135*3 



t POP OMiT 

IF CN NEQ AND (CMMtOj OR CMMCU) LSS THEN QO SEEK; 
L2* TF (CN*»SCAN3»CQWMA THEN GO MORE; . 



20772300 
20779000 
a D 7 6 00 



T 0139 » I 

T 0139*1 
T 0142 ;i 



IF CN=PERI0 THEN CCSET:»1; 
CCERRt RETURNVAL*»PW0CVAL; X ADJUST RESULT OF TYPED PRUC 
P( [RETUHNliCW3*STS*0>RDS*0#XCH^P<tP[CTF3/STF); 



20781000 
20782000 
20763000 



0145*2 
0147*2 
0148* 1 



END ccser; 

S SET QMIT * NQT^PATACOM 3 



20784000 T OlSi^O 

StZC» 0153 WORDS 
20999999 f q pfiO ^Q 



REAL secondctr; 



22000000 T 0000*0 



• t 



>T 



S SET IJMIT = isOTCShAREDlSK) 
PROCFDURF. NSfCQNp;^ 



BEGIN REAL HCW«+G» 

HEAL wacws'2; 



I«RCm*1# Jal + lJi 



STARl OF REl 



22000«9y 
2?00,lf)QQ 



Q00050 
QOQO?n 



segment; diSk 

22002000 
2?O Qg ' »0Q 



T 

JL 

ADDRESS n 
T 0000«0 
J O QQ0*0 



00620 



ARRAY A=J+1[*]; 
$ SET UMlT = \ai SHAREDISk 

F^ ( > ^ ) ; 



22003000 T OOOO'O 
22003990 T OOOQ'O 

2?Q06oQo ,T onoo'n 



s Set omit * not Smareois^ 

A «■ CmCGETSPACEC3>««IXmAX + 3>0#0) + 23]&90C8;38j10J; 
S SET DMIT - NOTCDCLOG AND DaTaCQw ) - -.../ ■ 



22006090 T 
22008000 T 
2g008n49 T 



OO0G<3 
000013 
040513 



10 

11 

12 



bLEEP(tTaGLL],A80RTMASK); 
LQCKTGGCABORTl^ASK)i 

halt; idletimf;!!; 



22009000 T 0005«2 
22010000 T 0007«0 
2?QllnOQ T Q010«? 



13 

14 
15 



» SET OMIT s 



Jl«NEUP.NEUF ; 
(NOTCSHAREDISK ) 
FOR II»J"l STEP -1 



UNTIL DO 



220U100 T 00U»2 
^2011190 T 0012»3 
22QH 3Q Q T 0Q| ?<^ 



16 
17 
IS 
19 
20 
21 
22 
23 
24 
26 
26 
27 
26 
29 



BEGIN 
£UlGtI+EUlQFFSETJ»»*P(DUP)xEUTAPER+PEuIOClJ> 

PEUTQ[n<-Q? 



22011400 T 0017«0 
220U500 T OOV750 
2 201 1 600 T 002014- 



enq; 

$ SET QMiT » NOTcSHAREDISK ) 
rtHllE (j<i»Xf.| nr.K^PtRTR)) 



GEO wItchinghour no MinNifim; 



220U700 T 
22011790 T 
22Qt2oQ0 T 



002lt2 
0023*0 

Q02:^<n 



changeuatecg); 

A[Uj^j; a[2]«-"abqrT»';j<-o; 

Acn » QATEia. . 



22012500 
22013000 



0030«2 

ooaiM 



2 aoi a ao o t — oo 3/j «2 - 



IF (CLOCK ANO Pl7777)sO THEN 
BEGIN FOR I|3l STEP I UNTIL MIXMAX 
IF ♦[JARROrtfl]] NEO, Q THEI 



DO 



-JiL 



ZaOHjOO T 
22014 400 T 
22014500 T 



00 35 » 3 
0037*0 

noiiio 



IF REPLYCI] LSS THEN * WAITING FOR SOMETHING 
$ SET UMiT s NOTcWOKKSeT) 

^ RE PL Y[lJ;av , wY ; 



2201^600 T 
2201A610 T 

2201^6^0 T 



00^211 
0043«3 
00431 3 



31 
32 
33 
34 
36 
36 



end; 

FOR I ♦• 1 STEP 
tJEGIN J * 



1 UNTIL 

j*3;x 



MIXMAX OOX 



IF JARHQWCI] X THENX 

BEGIN A [J] * JAR[I,3]+PR0CtImE[I]; 
NTl * I0TIMECI3>JAR[I*43;X 



22014900 t 
220 0000 T 
29Ql6nOQ T 



22017000 T 
22018000 T 
22019000 T 



0047*3 
004713 
0040*0 



OObO»l 
0051*1 
0054»2 



36 

37 

38 ( 

39 

40 

41 < 

42 

43 

44' 

4S 

46 

47 

48 

49 

5C< 

51 

52 

53 ( 

54 

5S 

56 ' 



37 
38 
39 

40 
41 
42 



rtHlLE NT! < DO NT l^NT l + CLOCK + PtHTR); 

ACJ^n ♦ NTi;X 

ACJ*23 ♦ JAH[I»73;» 



22020000 T 
22021000 T 
22022000 T 



0056*3 
0059*0 
0062*0 



IF TERMlX»ei777 THEN 
IF PR0CTIMEn3>0 THEN 

T£RMiNATLCUl5[18t33«153) 



ELSE 



22023000 T 
22023500 T 
22024000 T 



0064*2 

0065J1 
0066*3 



43 



46 
47 
48 
49 
SO 



/£.N0»'. 



ii4*Tr( ifajt 48 t'j 3 u 5 n ; 



22024500 T 
22025000 T 
22026000 T 



0068*2 
0071*1 
0073*0 



ELSE AtJj 4- AtJ+13 * AtJ + 23 * 0;« 

ENo;% 

UI8KIC(J#A INX O-l' 3XMlXMAX+3*ESPDISKT0P*n; 



22027000 T 
22028000 T 
22029000 T 



0073*0 
0077*3 
0080*0 



61 
52 
S3 






22030000 T 
22030099 T 
22031000 T 



0084*1 
0087*3 
0087*3 



F08 I ♦ 20 STEP 1 UNTIL 21 DO* 

bEGIN IF NOT UNITCI3,C16«13 THENI 

uNitn3iCi7*i3 * q;% 



22032000 T 
22033000 T 
!034000 T 




0089*0 
0090*0 
0091*1 



55 ■ 
56 



STARTlOCniX 



^miirnxsmmmmmmmm 



00«4fl 

..OOi«fO=' 

0097*1 



IF TEHMix X P1777 THEN* 



22038000 T 



rf 

2 
3 
4 

5 



10 



12 
13 



16 

17 
18 



19 

20 
21 



23 
24 



26 



28 
29 

30 



33 

34 
35 
36 



IF TtHMlNALCLUCK * THE.N* 

IF CLOCK-TERMINALCLOCK > 512 THENX 



22039000 
..220AQ0Q.Q 



OOV8»0 
O09O»l 



FOR I «• STEP 2 UNTIU JOBNUM DOX 

IF BEDCn,t3:53 » TeRKIX . C33U53 THENX 

ir fJARfTERMI^.rCFl^QT EQV/ "I IBMA I NHj atNOT 



UR (J/^RCTERMIXf tCFJO] E.QV "DISK 
BEGIN BEDtn ♦ B£D[ JQBNUM ] > * 

BEDU + U » BEDUJOBMUM + n j« 



")XND1 THEN 



22041000 
22042000 

?2na?ion 



01G1»0 
Ot03tO 



end; I 

SLEEP(U3#iaMASK);* 

fqRgetspacE(A);x 



lN0EPENDENTRUNNE8CPC.RUN)#TlRMlXtC33ll5 3#0>^ 
I > JOBNUM ♦ J0BNUM»2iX 

TFRMTMAi CLOCK » Q?l •'"' ■ ' ■' ■■' ■' 



22042150 
22043000 
22044000 



22045000 
22046000 
22Q470Qn. 



0107«2 

oiiin 

QU3»1 



$ SET OMIT • NOTCSTATISTICS) 
S SET OMIT « NQT(ShAREDISK) 
NSECQNQREADYtsTHUEi 



22048000 

22049000 
22050000 



011513 

0U7«2 
011911 



22050909 
22050999 
2?0537QQ 



0l20»0 
0122«1 
Q1,23« 3 



012413 

012413 
Ql24»a 



SECONOCTRJSO; 
KiLLC[M5CW3); 



fnq;% 



22053800 
22053900 
22054000 



0126*2 
012711 
012a<0 



PROCEtJURE STiiTUSIX 



START Qr RFt 



SIZE* 0131 WORDS 
22055000 T 0000»0 
SFft MrNTi rifSK ftOpRrSS « nQ<«ig5 



BEGIN REAL Us+l^X 
mScWs-2^ 

. T=u>i*ii; 



22056000 
22056500 
220^7000 



OOOO'O 
0000 JO 
0QQ0»0 



\ TI*T*11X 
INTEGER I 

1«T1*1M 



ARRAY AREA 

REAL HDR X 

SEG08 



=I+l[*3;X 
AREA+l* 
HDR ■*■ \f 



22058000 
22059000 
23060000 



22061000 
22061100 
22061110 



0000>0 
0000»0 
OOOQtO 



OOOO'O 

oooo»o 

O QOQtO 



F «» SEGO+i; 
ARRAY ShEAT a F+l£*3* 

LABEL tryagain^ldcntrl^disk; 



LABEL L* EL* NOTRE AD Y,DiE#ACCEPT# SCR ATCHMNPUT' TESTS ACKUPf 

common; 

LABEL C ARD* PR INTER* TAPE* DRUM>0 1 SC>SP0# PUNCH, UNLD* 



22061120 
22061130 
22061g00 



0000»0 
0000*0 
OOQQtO 



22062000 
22063000 
2P064n00 



ooooio 

OOOO'O 
OQQQ'O 



38 

39 

40 

41 

42 

«" 

44 

♦6 

46 

17 

48 

19 

H) 

51 

52 

53 

S4 



55 ::■ 

564J 



PAPERPUNCH* PAPER* DAT ACOM; 
SWITCH S |ir CARO*PRlNTER#TAPE#ORUM*DISC*SPO*PuNCH#UNi.D* 
PAPERPUNCH, PAPER* OAT AC0M;X 



22064500 T 
22065000 T 
23066000 T 



0000»0 
OOOOiO 
OQOOtQ 



REAL HCWs+0;x 

SUBROUTINE sPacea;* 

BEGIN AREA «■ ( GETSPACEC 12*0 *0 )»2 INX MEMORY )&10 C6 < 36 i 10 ] EnD;X 



TRYASAl^i 



22067000 T 
22068000 T 
22069000 T 



OOOOIO 
OOOO'O 
000l«0 



IF (HOR««DlREctoRYSEARCHCP(LOCNTR^)*PCDlSK)*3)) * THEN 

BEGIN 

SHEAT t» [M[F*»GETSPACEC31»0*0)-»233 & 3O[e»3eil03; 



22069010 T 
22069020 T 
22069025 T 



0005*0 

ooos»o 

0005 *Q 



STREAM{S»«F-1* Ol«F)i * ZERO OUT THE SHEAT ENTRY 



22069030 T 
22069040 T 
22069050 T 



sn»s; o»i«30 wps; 



220*9060 T 
2206^070 T 
220^90 60 T 



0005«0 
0007»1 
0007 » 3 



001210 
001312 
001318 



end; 

SEGO i« GETSPACE(30*0>0;-t-2; 
DISKWAITCSEGO* 30* M[HDR INX ^03); 



liiiKilMiilliiiliiKiiiiMliiJ^ii®^ . pa'Ram.', 

iiiiWiliiia«Miiii|iiiiiii^^ 
iiliiiiljiaWiaiiiiii^iiiiiiii^^ s^m^^'^:^ m ■>■ .; -■:.. ' . 



22069090 T 
22069 jdO T 
2?0^9aQ T 



2?Q69i 4Q T 



001410 
0014»1 

9016'? 



001911 
Q020»2 
0Q2l»3 



SHEATC13 »» PCDlSKj; 



22069i50 T 0023«0 



• t 



>r 



2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13" 

14 

IS 






16 
I 17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
10 

iZ 
33 



34 
3S 
36 
37" 



39 

40 

41 

42 

43"' 

44 

48 

46 

47 

18 

49 

» 



51 
52 
M 
>4 

J5 

56 



SHEATC2J 5= & 2[a;38li01 i u^«47»i]; 

% [m i i IN 5 HF . FTr? ] M E ANS SUPRFSS BQJ/rQJ MFSbAfifb 



SHEATC16] i« SHEATC173 «• 9377777777777) % TIME ulMlTS 

SHEATtl9] »• UJ X COMMON VALUE 

SHEATC203 »» <tj X r.DRr rSTTMATf 



SHEATL21I ;« 150/ 
SrRFAM(A>gQ } S i 



% STACK SIZE 
Pf .sChgnuL t-rns^u 



BEGIN 
St iss; 

47fSKTP ba; 



IF SB THEN EUSE JUMP 

ds!sset; aj»tallv; 

FMJ STREAM STflT^MfTf^T^ 



SKTP riRi TAI LYl«TAt t Y4,tt 



OUT) 



I J« p; 

SH£ATC33,E8tl03 



«» u 



X SCHEDUUE NUMBER 



«» (ClQCK + PCRTR)) OIV 60; 

»» HDR.tFFj; X DISK ADDRESS OF FRE HEADER 

i«»h«ge:tspac£(m*o*G)»2)j 



LD(:NTRL/DTSK;(^nMMnw«*^; 



SH£ATt23 3 
SHEATC253 
STREaM(U> 

BEGIN 
DI»aOI+i6; 

DS^^aiLlTwcc FyrrnTF 

SpsLOC UJ OSJsaDECi 

dsi=6uit";end,«-"; 

ENU STRlAM STATrMFNt; 

Mtn «• oi Mci + niBioi 

SHEATt63 l» GETESPDISK & lOt iSI 33 » 1 53i 

DISKWAIT(I> 11* SHFA T[63.Cr.F3 W 

FORGETSPACECI )i 

multitablec^JJ js 

LABElTaBlECU] i» 



"conthul"; 

(■"DECK "); 



RDCTABUCUJ l« 1 « U14«38»10T; 

IF U THEN REAOERAX.O El^E READERBIsO; 

INDEPEN0ENTHunn£RCP(»S£LECtRUN)*FM60); 

end else X IF IN DIRECTQRY 

BEGIN 

ENTERSYSFIi.E(2); 



GO TRYAGAiNi 

LDCNTRLitt "LOCNTRL"* 

QISK«:i "DISK "; 



end; 

END SUBROUTINE AUTOLOADER/ 

P(C/o»0/0/0/e/0/0/o);x 

SpACEAJX 

WHILE CT ♦ P(RRR) OR RHRMECHJ 
BEGIN I «• O&TInUIU «* 



K HEADY OOX 
(P(T £0V NOT READY»DUp>DUp*K»x)X 



If T 



x«'lO000000CO000),X 

C3«63 3 [b« ii» ''J/Pioooooooooooo;x 

< READY THFNX 



BEGIN COMMENT SOMETHING WENT NOT ReAQY^X 
REAOY ♦ READY AND NOT I/X 
IF LA8£LTABLe£U3 £ THENX 



L« 



BEGINlfc 

LABELTABLECU3 ♦ PU4;X 
IF CU AND <*77aj NEfl 16 



ittli 






LND UF NOT HEADYX 






THEN 



22069160 
2?0ftyi7Q, 



22069 J 80 
22069i90 



0024« 1 
Q0?7»2 



00271 2 

002913 
OQ I M O 



22069210 
22069220 
2?n69230 



220692lt0 
22069250 
?20ft92fi0 



0032 « 1 
0033«2 

0Q33I2 



003<»»3 
003413 

Q0.15in 



22069270 
22069260 

22069290 



28069 300 
22069 310 
2^069^20 



00 36»0 
0037«2 
003810 



0O38«l 
003811 



22069 330 
220693*0 
22069150 



22069360 
22069370 
2?Q69TaQ 



0041 >i 
00*312 
0045' X 



22069390 
22069^00 

2206 9 < an 



OOA8II 
004B»i 
004B»» 



22069420 
22069430 



22069^50 
22069^60 
22 69470 



0052«3 
0053»1 
Q054;i 



0^t4?2 
005810 
QQ 40»0 



22069480 
22069490 
2?069'S00 



006210 

0062«3 
0064»0 



22069510 
22069520 
22069530 



0065' 2 
006713 

007 3*3 



22069540 
22069550 
22069560 



0075«0 
0075«0 
0075«2 



22069570 
22069600 
22071n00 



007611 
0076»3 
0078JG 



22073000 
22074000 
2207SOOO 



0079«0 
0079«0 
0079 »1 



22076000 
22077000 
22078Q00 



0082«1 
0083»0 

ooes'i 



22079000 
22080000 
22081000 



0087«2 
008e<0 
0091 to 



22002000 T 
22083000 T 
22064000 T 



009H3 

oo9a»i 

009313 



22084500 
22083000 
22086000 



0094«3 
009511 
0096«2 



0017*3 



2 < 

3 

4 

5( 

6 
7 
8( 

9 
10 
11 < 
12 
13 

14 < 
15 
16 

17 < 
18 
19 

20 % 
21 
22 

23 f 
24 
25 

26 I 
27 
28 

29 1 
30 
31 
32 % 

33 

— H 
34 

35 % 

36 

37 

38 % 

39 

40 

41 I 

42 

43 

44 % 

46 

46 



47 

48 

49 

50 

51 

52 

53 < 

54 

55 

56 

57 



11 



22087000 T OlOl»0 



13 
14 
IS 
16 
17 
18 



19 
20 



21 
22 



23 
24 



26 
27* 



29 

10 



31 
32 
33 



34 

35 



36 
3?" 



38 



39 



♦7 



♦9 

50:' 
51^; 
52 
53 



54 



55 g 

56 fi 



ELSE BEGIN 



COMMENT SOMETHING WENT READY;* 
REAQV *■ HEADY OR ] i% 



UNITCU3.C13U] 4- o;x 

IF LABELTABLECU3 i* *U4 THEN* 
SEGXN RRRMECH * RRRMECH OR 



22086000 
2?0ff90Qn 



OlOl»0 
QlO'^'O 



HJL 



IF LABELTABIECU3 « fZ^ ThENX 

BEGIN I ♦ I AND NOT SAVEk^OROiX 

GO TO Li% 



22090000 
22091000 
22Q920QQ 



0l04ll 
0t06t3 
010713 



ENOJk 

STARTI0<U)I» 
GO TO COMMdNJ* 



22093000 
22094000 
2 ?095000 



010912 
0110 12 

0ll2«? 



ENOU 
IK (U ANU P774) NEQ 16 THEN 

MULTITABI^ . ^ I MJiaRDCTABlEtgJr 



22096000 
22097000 



oiiaio 

0U3t0 
0113«^ 



'SiL 



IF CI AND SaVEWORO) X THEN* 

BEGIN RRRMECH ♦ I AND SAVEwORO OR RRRMECHi 
GO TO COMMON IX ___^__^__ 



22099000 
22100000 

22tOQ50tf 



TAPE? 



END'* 
GO StUNlT(;U),[l«43H* 
P(^vAlTiO(e^2000000CO,5^U)>DEL);X 



2210100Q 
22l0200C 
22lQ3rtQQ 



OlHM 
0114M 
01fa»2 



0U8»1 
0119*2 
Ol2l<a 



IF (T * WAITIOCAREA jnX 
C45J33 X THENX 
NUTREAQY: BEGIN READY » READY 



9l2O5ft00O0000#^75OO045>U)) ,% 
AND NOT in 



22104000 
22105000 
82106Q00 



0122«1 
0l22»l 
0129»2 



IL 



end;x 

MBD3I0S 



GO TO IfX 



22107000 
22106000 
22109000 



013110 
0133 1 2 
01 3 412 



AND NOT T.[42:i3 THEN BrGyN 



%AL 



00 UNTIL CTUWAITIOUREA INX «»34o0000l2'«»55#y ) yXoliAJ 
END EUSE T1«.WaITIOCP4200000000*5*U); XaI 

IF Tl.E45{33i<0 THEN SO TO NOTREAnV; XAl 



22110000 

221U000 
22111^00 



DO UNTIL NOT C T 1«-H All lO C&500000000* ?165*U) ) 

(TranSactioncu3«-0);j; 

IF Tl.E42a3 THEN 



OR 



22112000 
22112500 
25113000 



0l36»2 
0140«0 
0l 40»0 



begin; str£am(T«-tinucu3#a<'AR£A); 

BEGIN si«-LOC t; susi+5; ds^lit"*"; 

- 0S»3 ChRj D3»10 lit *'-BAD LQA0»"j 



22114000 
22115000 
22115 020 



01^212 
0i46<t0 
04 4913 



end; 

SpOUTCAREA INX 

end; 



22U5030 
22119040 
22U5050 



0l5ll2 
0l53«2 
1 55: 2 



015611 
Ol3e»l 
0159*1 



0)} spacea; go to l, 



IF T1,U5I13 THEN GO TO NOTREADY;X 
PRNTABLECU3*g&CNQT Tl J 1 1 1431 1 3 ;X 
IF T.C43n3 THEN* 



22115060 
22115070 
22U507& 



BtGlN;5TREAM(T«.TlNUtU3*AREA)JX 

BEGIN SI *■ LOG T; SI «• Sl4-5;X 
PS *■ LIT **»**; QS » 3 CHRiX 



22116000 
22117000 

2gnanOQ 



016U0 

0161»1 

Qi ^7«n 



0l67»0 
0l68<2 
0171*0 



0IE» 



ENo;x 

SPOUTCAREA 



OS «" 14 LIT ♦♦ PARITY* Rw/t*"* 
INX 0)i SPACEAi . 



22119000 
22120000 
22121000 



.. | N„ D|» , 



UABEUTA8tE[U3 
GO TO iin 



*■ P314;» 



22122000 
22123000 
22124^00 



017H3 
017313 

Q l 74 . 'l 



0l75»0 
017710 
177 *1 






22125000 
22126000 
22127000. 



OS 

OS 



ENDi* 



LIT "#••; 

15 LIT " 



OS <■ 
TAPE 



3 chr;x 

MK* RW/L< 



litioooo 

^2129000 

a iia oo oo 



18 « 
OlBlll 

Qieii.3 



0l8l*3 
0182 It 
Olt4t2 



;% 



Q<3 TO DllfX 



BEGIN. OS «■ 8 LIT " LABEL 



22131000 
22132000 

2213IQM 



iXlif 






oiasvo 

0l85*3 

Qieiio. 



0188*1 
0168*3 

ois ef3 



♦♦;» 



22137000 T 019012 



57) 



• • 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 



12 
13 
14 
IB 
16 
17 
18 



19 

20 



21 
22 
23 
24 



28 *• 

28?; 

27 

28 

29 

W 

J2 



33 
34 
38 
36 

37" 



38 
39 



42 
•3 



45 
«6 
47 
18 
49 

51 
52 
53 
>4 
55 
S6 



SI «■ area; 01 «. 01-8;* 

IF a SC ■ DC ThFN TALLY » )'.% 



AREA 
SI 4. 
Si ^ 



* tally;* 
s 1+45; 01 

LOC AHFAl 



♦ LOC Y; OS * 5 OCT^X 
PI » X; OS » KDS;it 



£ind;x 
iMTi •- p;» 

IF T THEN PRNTABL^CU].[3Q>ie]»«NTl FLsE 



BEGIN STRtAM(YI*0»AREA#Xiacn); 
BEGIN DS»a<* LIT "VQLl"; 

siisarla; Dii»oi«'fl; 



IK '* sc«oc Then tally««i; 

ArtEA:«TALLY; SIlsSI+i; 
DI»gLOC Y; DSttS OCT; 



end; 
NTn»p; 



SI»«LQC AREA; DII«X; DSlfWDs; 



IF T Then begin prntablecdJ .tsousnsNTi;" 

Ui>ASiTAPEC[AREA].[CF3,T#l*U*l); 

end; 



end; 

IF not TI.U3J13 ThENX 
BEGIN IF T THEN* 



HEGIN 



IF PCAREACl3'DUp)a"pBTMCP " QR 
P(XCH)g''PUTMCP " THEN GO INPUT; 



IF AR£At43.£I2»303 > DATE TheNX 
BEGIN IF RETMSG THEN 
STRFAMfT»TTNUrU3*A»fARfrAr*n)I 



ACCEPT « 



BEGIN Si«.LQc T;Si«.Sj+5;dS«.3 CHR; 

03*5 LIT " RET "; 
ENn ELSE no Tn impUT; 



Tl ♦ GETSPACE(a»0#0)+2;X 
STREAM(A«-CAREACn3*Tt);!S 

BEGIN SI * a; SI «• SI44Q;!I! 



ds ♦ 

DS *• 
2CDS 



LIT "iiC;* 

8 chr; SI ♦ 

» LiT " »;% 



a;x 



mm % 



SI 
BS 



si+i; 

LIT 



DS * 7 CHR); 



"i.";* 



END 



SPOUT(Tl);X 

GO TO input;* 

ELSE* 



SCRATCH* 



END* 



END ELSE 



LABELTABLECU3 
GO TO UNLO; 



<• o;x 



ELSE IF T THEN BEGIN* 
INPUT» LABELTaBLECU] *■ aREAC2];* 

>^MLTITABLECg3 «• At^EACI]; * 

STREAM(A*EARCA|333#8itT3 );» 

end;* 

HUCTABLECU3 * UT IC 2« « 31 1 l73liTC U « 38 J 10 J ; * 
IF (wULTITa9LECU3»"PBTMCP " OR 



vitm 



^mi&mmmimMmmMm^m: an©'- . '^^ 



STReAM(A*TINUCU3*PN«-MULTITABLE[U3s"PUTMcP 



22138000 



0191«3 
Ot9?ti 



22140000 
22U1000 
22 U2 n 



019310 
019311 
l9 4 «0 



22143000 
22144000 
g2H500p 



22145050 T 
22145i00 T 
2aH5i'^Q T 



019413 
019510 
0l95»? 



22145200 
22145250 



0198*3 
020110 
02Q1T3 



22145350 
22145400 
22145450 



0202*1 
0203«0 
0203»? 



22145500 
22145550 
22145600 



0204»o 
010413 

205 10 



22145650 
22146000 
22147000 



0205»2 
0208 « 3 

OgU'i- 



22148000 
22156000 
2 215610 



02UI1 
02IIM 
02 1 2M 



02l3»0 
0213*2 
021413 



22157000 
22158000 
?21'»9flQ0 



22160000 
22161000 
2;> 16 2000 



0216*2 
0218*0 
0219*1 



0221*1 

0222*0 
223* 



22163000 
22164000 
22165000 



0223*1 
0225*2 
0226*3 



22166000 
22167000 
2P168000 



22169000 
22170000 
22171000 



0227*1 
022713 
228*1 



22172000 
22173000 
22174Q00 



0229*0 
0229*3 
0230*1 



0230*2 
0231*1 
0234*0 



22175000 

22176000 
23177000 



22178000 
22179000 
221 flPQ O 



0234*0 
0235*3 
235*3 



22181000 
22182000 
2?163000 



023513 
0237*0 
023 8*? 



0240*0 
0241*1 

0241*3 



22184000 
22185000 
22188000 



0242*1 
0242*2 
0245*3 



22l8ai00 T 
2ai«»000 T 
22190000 T 



024613 
0248*0 
0249*1 



1^ 

2( 

3 

4 

b{ 

6 
7 
8< 

9 
10 
11 < 

12 



13 

14 

15 

16 

17 

18 

19 

20 1 

21 

22 

23^ 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32( 

33 

34 

35 < 

36 

37 

38 { 

39 

40 

41 i 

42 
43 

44 1 
46 



46 

47 

48 

49 

50 I 

51 

52 

53 ( 

54 

55 

56 ' 

57 



11 



22191000 T 0251*0 



13 



16 
17 



19 
20 



22 



24 
25 
26 



27 
28 



29 



31 



34 
35 



36 

37" 



39 



12 

43' 



47 
«8 



49 ;{ 

50 ' 



52 



55 
56 H 



AREA); 



SI * LQc a; si 4. SU5^% 



£nd;x 



PN(DS*3 LlffCP"; JUMP OUT TO lU 
05*3 LIT "IIP"; II 

09*12 ilT" BACK"UP ON *<; 

DS •■ 3 CHR; qS *■ LiT "*''",% 



Q)} spacea; 



END 



ENo;x 

EtSEX 



PAPIER a 



UNlD: 

GO TO 
PRINTERS 



LABELTABLECUJ 
COMMON;* 



* e3i«;* 



T •• W A IT I0(*6000000000* a* U ) , C AS 1 1 3 ; % 

UNITCUJ. £16123 * Oil 

if* T THFN GO TO NQTREAPYJii; 



TESTBACKUPJ 

IF AUTOPRINT THEN 

IF PRInTQHPUnCHWAIT(«-U^O) 



GO TO Scratch; 

RRBMECKtaRRRMgCH OR 1 1 



THEN GO TO CQMMDn; 



THtN 



IF COONLY 
BEGIN 

autuluader; 



60 TO common; 
ENO; 

LAeELTABLECU3l8-gUi 



In0EPENDENTRUNNER(:P{,C0NTR0LCARD)#04U[3««3J5 3*192); 

GO TO common;* 

PUNCH* 



startio(U); 

IF UNITtU3»£15l33BO 
PHUMU 



THEN GO TEST8ACKUP ELSE GO TO SCRATCH; 



Disc: 
SPOtX 
PAPERPUNCHU 



0ATACOMIX 

ST4RTI0CU);X 

GO TO Scratch;! 



cummqnj 
end;% 

StaTUSBIT «• THUtiX 



end OF heauy;x 






Boolean procedure olaycloo; % made save in initialize 



22191100 
2P1 92 00 Q 



22192100 
22192200 
22193000 



025213 

TT^W I I I I W ii . | M » .11 . 



0254 »0 
025610 
025613 



22194000 
22195000 
?21'?60Q0 



22197000 
22198000 
2gl99n0Q 



0258»2 
0259J1 
0259^2 



026210 
026210 
26 ffO 



22200000 
22201000 

2?2o2onn 



22203000 
22204000 
?2?05000 



0267 «0 
0268»1 
0266t3 



22205500 
22206000 
22 207000 



026a«3 
027110 
027112 



0274»2 
0274»2 
0275M 



22906000 
22209000 
222n9?n0 



0277»3 
028010 
028010 



22209400 
22809500 
2??.Q9f,QQ 



028l»l 
0282J0 
0?e?«2 



22209700 
22209800 
2?2t2?QQ 



0284>0 

0264(2 
Q284»2 



22212400 
22213000 

22213^00 



0286 «0 
028e«l 
0?8 8«3 



22213600 
22813700 
222140QQ 



028813 
026912 
Qg9pin 



22915000 
22216000 
2 281 8Q00 



029210 
0292«0 
0292»0 



22219000 
22220000 
2^221000 



22222000 
22223000 
22224000 



029210 
0292>0 



029311 
0293«1 
0293»3 



22225000 
22226000 
22227Q0O 



029512 
029710 
029713 






START OF RE| 



SiZe* 0298 WORDS 
22228000 T 0000>0 
SEflMENTA OjSK ADDRESS » QO635 



ARRAY NAME SEGOICT;* 

REAL reSuLT**i;x 

ARRAY SPRTC*]; 



22129000 
22230000 
22231000 



OOOOtO 
000010 
0000 to 



i' V^lriVi';»i»aBiijMirtj£ii« 




$ SET OMiT = NOT(WORkSeT) 



wmmmmmm 



22232000 

22233000 
222|4£Q0 



.;22t«iii«K 

•iiiiiiiifc 

2923S«>99 



OOOOiO 
OOOOtO 



0000»0 
OOOOIO 
OQQ QIQ 



22235610 T OOOOIO 



T1^ 



12 

13 



16 
17 ( 
IS 
19 
20 { 
21 
22 
23 ( 
24 



27 
28 
29 ( 



34 
36 ( 
36 
37 



43 
44< 

45 



47 ' 
48 



52 
534 



56 ^ 
57 



• • 



n 

2 
3 
4 
S 
6 
7 



LABEL exit; % ALL AVENUES h^UST LEAD 
LABE L A^PUNOf coPE / .RACKA^^.AIN^ MCPr, 



TO HERE 



LABEL RETRY# AGAIN, fOGi 
DEflNE TSKA « SPR7«i 
BOOLEAN SUBNQUTINE AWAKENU 



22E3570C T 
2?236q00 t 



00C0«0 

00,00 ?0 



22236100 T 
22236150 T 
22237000 T 



0000 * 
0000 10 
0000 10 



BEGIN COMMENT AWAKEN CHECKS To SEE IF WE HaVE HALTED 
THE JOB ON PRCCESSOR 2t IF SO, IT RESTARTS THE 
TIMING FOR HIM/ AND CALLS "HALT" TQ CHECK I nTER RUPTSJ it 



22238000 T 

22239000 T 
g g g^OQOQ T 



0001 «0 

OOOlJO 
000 i» 



9 

to 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

K\ 

26 

V'l 

28 

29 

W 

31"^ 

32 

33 

34 

35 

36 

37'^ 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

•8 



$ SET OMIT 



IF JQBKILLEO 

BEGIN 

NEWLOGGING 



THENX 



22241000 t 
22242000 f 
29942000 T 



000 1 10 
OOOlH 



$ POP OMIT 



STARTL0GtP2MlX,0); 

jostsai E n «■ FAL Sp-; PLAY * Res u lt oh 2;* 



22242100 T 

22242101 T 
22243OQ0 T 



000l«3 
0004»l 
00Q4 M 



halt; NOPROCESSrOG ♦ NQPR0CESST06-1;x 
■. 'ENOIX.'' 
aWaxfn » RESUt T gMfltt ^ 



2224«O0O T 
22245000 T 
222 4 60Q Q T 



0006 1 1 
0008 to 
OOORlfi 



SUBROUTINE STOP^X 

BEGIN COMMENT STqP HalT^J THE JOB ON PROCESSOR 2> AnD 

CLOCKS HIM QFFf IT SETS J P BKaiED SO THAj Ai^AKEN 



22247000 T 
22248000 T 
?2?fl9000 T 



0008»3 
0009 «0 
Q009»-0- 



CAN DO ITS DIRTY WORK BEFORE RETURNlNGi* 
JOBKILLED *- true; PCHP2);X 

stopi,og{ P2M tx *Q); 



22250000 T 
22251000 T 
22?'i2000 T 



000910 
000910 
001Q»0 



END stopper;* 
SUBROUTINE codeoverlay;* 

BEGIN COMMENT CQDEnvERLAY 



HANOlES all CASES nF MARKING 



22253000 T 
22254Q00 T 
22255 0QQ t 



001212 
0012«3 
0Q13«0- 



NORMAL-STATE SEQUENT AS NOT-PRESENT. IT DOES ThIS 
A SINGLE PRT AND STaCk AT A TIME, AND XS QNL^ CaLLED 
REPEATEDLY FOR RE*£NTRANT CODE OR iNTRlNSICSU 



22256000 T 
22257000 T 
29258000 T 



001310 
00 13 » 

00 t 3*0 



IF CHAR Then s ♦ mesb 

SPRT ♦■ PRTCMIXMOJ;* 
IF SPRT[X].[2<1] THEN 



«■ MCS],CFFn,CFF3 ELSE S «■ S-i;X 
BEGINX 



22259000 T 

22260000 T 
2P261000 T 



0013*0 

00l9«3 
002l«t 



X NEED TO DO PRT AND STACK SEARCH ONLY IF PRESENT iN THIS PRT 

ptJ UNTIL (X ♦ (SPRTCX3 «• ( *P(OUP ) )80 t2i2l 1 3X 
&(SPRTCX3«CCF]*FR0NT)CCTC3).[6tl2 3)a204B; X 



22262000 T 
22263000 T 
22264000 T 



002213 
002213 
002410 



ArOUNo»X 



WHILE (STACK Is hUnT (BS ) . [CF 3 ) LSS S qO 
BEGIN CORE «• (OEsC «■ NF LAG (M [STACK 3 ) ) , [CF 3 ; X 



22265000 T 
22266000 T 
22267QO0 T 



0029*0 
0029«0 
0031»2 



IF CORE 2 FRONT AND CORE 
IF OESC LSS THENXPROQ. 
IF DESc»[3ti3 ThENXDESc 



< BACK THEN 
OESC OR RCW. 



22268000 T 
22269000 T 
22270000 T 



003411 
0036«0 
0037 »1 



IF DESCft2ll3 THENXPRESENT 
IF DESC,[6'.2J«1 THEN XTYPE l3 INTRINSIC DESc 
MCSTACK3l«'FLAGCbESC i OC2t2>l3 



22270050 T 
22270i00 T 
22270200 T 



O038»2 
0039«3 
00«1»2 



X DESCRIPTOR 



& (MOM,C8Jl03)tCTc3) 

Insert offset ano re5Et p-bit 

MCSTACK3 » ri*6(DESC40C2»2H3X 



EUSE 



22270300 T 
22271000 T 
22272000 T 



0043*1 
0045*3 
00A5I3 



ELSE 
ELSE 



&CC0RE-FR0NT)CCTC3)X 



BEGiNX 



X CONTROL WORD CRCW) — UNFL^G IN STACK* PUT 0FF3ET INTO 
X CORRESPONDING ¥iH^^ ANO HOH INTO RCW,CCf3 

HCX ♦ DESCtFFn *% 



22273000 T 
22873100 T 
22274000 T 



0049*1 
0051*0 
0051*3 



My 

51 ■; 

52 

a 

54 

SS 
5« .i 

571 



(*P(DUP))4( CORE-FRONT )CCTC3;X 
MCSTACK3 ♦ DESC&SEGN0tOTC3;X 



22275000 T 
22276000 T 
22277000 T 



0052*3 
0052*3 
0052*3 



22278000 T 
22279000 T 
22280000 T 



0054*2 
005612 

0058*2 



end;x 



* STACK*i;X 



22281000 T 
22282000 T 
22283000 T 

22284000 T 



0058*2 
0059*3 
0060*1 

0(56lJ2 



^^ 



[piiiiiiiiyiiiiitiii^. '■ 

^Wi "'■''■■s^''''i:"ww!tB's*''iy.^tcF''3;' 



GD ARUUNO LNO; 



.=? 



m • 



>T 



18 
19" 

20 



24 
2S 



27 



30 

31 



32 



34 

3S 

36 

37" 

38 

39 



42 



•9 

50 



52 
53 
S4 



55 

56 'I 



IF P(SPRT[1S13»T0P) THEN P(DtL) ELSE 



XDS 



$ SET UMiT s 



END# 
NOTCSTATISTICS) 
£NP QF PRL SE NT IN 



IF CORE < FRONT OR COKE i BACK THEN 

ELSE SPRT£i93l»(*PCDUP))&0c2«2«l3 

. -^ &C CORE-FRONT HCTCi; 






0065»1 



XOS 



22164300 
22284400 
292fl4«^00 



0068 « 1 
OOfbfO 
072 M 



XDS 



PRT CAsra 



END OF CODf OVERLAY IX 
SUBROUTINE INT13> XSTACK SEARCH FOR TYPE 13 iNtRlNSlC CALLS 
BE6IN CHAR?»PtPlTtMlX^8J»DUP3.t3gll3; 



22284600 
22284699 
2228^000 



S'sP INX 0; 8SJ-PRTtMlX*lO].[FF]; 
IF CHAR THEN S « sM [SB » -M tS] ,[ FF 1 3 ,[ FF] ElSE SJ = S-i; 
AfiAiNt WHILE (STACK t» HUNT ( flS ) . [ CF ] ) lSS S nO 



22286000 
22286olO 



007a«2 
007a«2 
0074t2 



007412 
007413 
QQ7 «i » n 



BEGIN COREJ«CDESOM»NFUAGcMtSTACK3)3,CCf 3^X 

IF CORE QEfl FRONT AND CORE LSS BACK ThEnX 

If DESCai>?3 NFQ THFN ^__ 



22286030 
22286040 
2?2fl6n5Q 



0077«l 
0080 « 2 
00 8711 



IF DESC.[1«33=7 THENX 
MCSTACKJ:aFLAGCDESC&OC2j2»l3&CMOM.C8ll03)tCTC3) 

EL SE __„ 



22286060 
22286070 
222P6Q75 



BEGIN MtOESC.tFF3 3l*(*PtOUP)3&CCORE»FRQNT)tCTC3i 
MtSTAcK3l-DESC4(«OM, 181103 )CCTC3& 

it^^i47tnf 



22286080 
22286090 
22286100 



008913 
009212 
009^11 



end; 

BSl-STACK+i; 

Mm 



22286|10 
22286120 
22286 1 30 



0096«0 
0097»3 

Q l O l 'O 



IF CHaK ANO (STACK' LSS SB) THENX 
BEGIN BS»»SB; SiaHUNT(BS+i3,tCF3; 
EKiO OF TYPE 13 INTHINSir STACK SEARrHi 



22286140 
22286150 
22286160 



010210 
0105 10 
010713 



GO agaxnj End; 



COMMENT ULAY HANDLES OVERLAYS. THERE ARE 

OF THINGS WHICH MaY BE OVERLAID* 
U OBJECT PROGRAM QaTA SEGMENTS 



3 CLASSES 



22286170 
221861 80 
2?26fr|90 



2) OBJECT PROGRAM CODE SEGMENTS 
ANO 3) MCP (N0N-SAVE3 PROCEDURES. 

EACH OF THESE CLASSES GETS SPECIAL HANQLINGi 



22287000 
22288000 
22289000 



0i09« 1 
0l09«l 

onQ»2 



Oil I to 

0ll2»l 
011610 



WHICH WILL BE DESCRIBED AS WE COME TO IT; 
X THIS CODE IS COMMON TO ALL CLASSES AND ALL CASES 
S SET UMJT 8 NQTcNEWLU GGING) 
$ SET OMIT 



22290000 
22291000 
22292000 



0U6n 
0116«1 
011611 



0116»1 
01161 1 
011611 



■ NOT(WOKKSET) 
LINK «• MCL0C3; MOM 4. MtL0C + 13;X 
FRONT »» LOG » 2; BACK is LlNK,tCF3; 



22293000 
22294000 
22294099 



IF (MIX ♦ LINK,[9J63 )sO THEN GO TO MCP;X 
<MIx>=0 AND NQN-SAVE MEANS MCP PROCEDURE OR 
IP MIX3P2M1X THEN STQP;X 



22294110 
2229500O 
22296000 



0116J1 
0116*1 
0116»1 



0116 »t 
0ll6tl 

0127*0 



Intrinsic 



CHAP «• (INITCW ♦ 
S ♦ lNlTCW,tCF3; 

char is cwmf* s is 



PRT£MlX*8]3,[32;i3;x 

BS «. ^'RTCHIX*103.CFF3;X 
T0P.»0F*STACK» 8S IS BASE 



22297000 
22298000 
22 299Q00 



OF STACK 



IF LINK,[3!6]ai THEN GO TO C0DE;X 
X TYpEal MEANS PROGRAM -- ONLY ALTERNATIVE IS DaTA 
IF CHAR THENX 



22300000 
22301000 
22302000 



0129*2 
013113 
Ol 3l , » 3 



0134*0 
0136*2 
0140*0 



SPECIAL CHECKS FOR ADDRESS $AVEO IN CHARACTER MODE 

eEGiN CHARtHCtCTt-MU-U.lCPJ) ^ fPONT AND T < BACK) 
M"REGISTC« FRQH IQW CSOURGE AtlORESS)^ 



22303000 
22304000 
223Q90QQ 



OR 



((Tl«M[S-23.tFF332 FRONT AND T < BACK)); 
X S-RegiSTeR FROM iLCW (DESTINATION ADD«ESS) 
IF NOT CHAR THENX 



22306000 
22307000 
22308000 



0140*0 
0141*3 

01 4.1 * 3 



014210 
014210 
0146*2 






22309000 
22310000 
22311000 



OF mSCW 



AND T < BACK) UNTIL (S S X) OR CHARi 



■^Mmmmm. 



014612 
0151*2 






22315000 T 0160*1 



• t 



% SEARCH 



n 

2 
3 
4 
5 
6 
7 



THROUGH 

5 



STREAM 



LOCALS AND PARAMETERS FOR ADDRESSES 



end;x 

ENDJt 
TF CHA« 



THEN 



JltTELL flRFAKntJT ABOUT TT 



22316000 

2?3iyoQQ 



Q]btit() 



22318000 
22319000 

?a32Qoon 



016413 
0l64t3 



BEGIN p(awmken*ssn); go exit; 
end; 

% rANNQT nvriitLAY IF May rf aUDrfSSFs in char MCinE STAT.K 



22320100 T 
22320200 T 
2S3P10QQ T 



016510 
0167«3 
0l67n 



I00*MCM0M].[8I10]; 

IF C0lSKI«M0M,CrF3 ) N£« THEN % OLaY ADDRESS PRESENT 
HFfilN . 



22322000 T 
22323000 T 
2?3P32QQ T 



016713 
016913 
017112 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2G 
26 f, 

2a 

29 

M 

31 ^^ 

33 
34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 5 



S SET QMIT = NOT(AUXMe:M) 
MQMtCFK] JaO; 



22323400 T 
2232^800 T 
2?3?5nQQ T 



0l72«0 
Ol72»0 
0l.73».l 



IF DiSKaO Then DISKt«0lSKSPACE(IOO^MIX,NOAUX); 

IF DISK tSS THEN % NO QUAY DISK 

BEGIN P(AWAKEN?; GO EXITJ 



22325200 T 
22325400 T 
22325410 T 



Ol73«l 
0176*1 
017710 



end; 

$ SET UMiT « NOT (STATISTICS) 

IF (S>*S-n GTR mom THEN IF MOM GTR BS THEN BStaMUM*!; 



22325430 T 
22325600 T 
2232640Q T 



0179»2 
0179 » 2 
Q179I 2 



% IF MOTHER IS IN STACK* ONLY SeARCH ABOVE IT 
WHILE CSTACK»»MuNT<BS)»tCFn USS S 00 

BEGIN 



22326600 T 
22326800 y 
23357000 T 



016411 

ota4ti 

0186»3 



IF {D£SC:5NFUAG(MCSTACK3)).tl»2]sl THEN 
% ONLY WORRY ABOUT DATA DESCRIPTORS WHiCH ARE PRESENT 

TF OF5Ci[FF3»MOM THEN 



22327200 T 
22327400 T 
223 ?7ftQQ T 



0186J3 
018912 

Qlfl9»2 



X THIS ONE DEMANDS ACTION -- IT POINTS INTO OUR ARRAY 

IF OESC,t8U03«0 THEN 
X NAMF OESCRIPTOR mm Puf IN QFFsET AND RESET P»alT 



22327800 T 
22328000 T 
2232fl2nn T 



0l9lli 
0l9lll 
Ol93tO 



MtSTACK]« = Fl.AG((DESC.tCF3-FRCINT)&MQMtcTF3) 

EISE 
X NORMAL ROW DESCRIPTOH ^» ZERO C0R£ FIELD AND RESET P'BIT 



M£STACK3»«FWAec0&0ESCC8t8»25]); 
BS»»STACK+i; 



22328400 T 
22328600 T 
2 23 28800 T 



22329000 T 

22329200 T 
2g3g9400 T 



019350 
019513 
O l 96«3 



019613 
OgOQlO 
O 2 O III 



IF M[MOM],[3J33 NEQ 7 X NOT READ ONLY ALREADY WRITTEN 
$ SET DMIT s NQTcBREAKOUT) 
THEN 



22329600 T 
22329800 T 

22330400 T 



020l»3 
0203»2 

0203»P 



BEGIN 
$ SET OMIT « NQTCAUXMEM) 
ReTRY> DISK 10 CRSLT* FRONT- lM0D<;U3t47U3#DATAD0R£SS CM IX# DISK ))j 



22330600 T 
22330800 T 
22331400 T 



O203»3 
020411 
020411 



li C3J1J IN SIZE MARKS I/O AS ORIGINATING FROM OLAY 

M[MOWJ«x(*P(ouP))40[2»47U]&5CCTc3; 

P(AWAKEN»DEL); 



22331600 T 
22331800 T 
22332000 T 



020811 
02081 1 
0211«2 



46 
•6 

47 
(8 

49?, 

SO 

51 

52 

53 

54 

55 ; 

58 '2 

f7| 



i Cf*5 in MOTHER iS INTEftLOCK FOR MAKEPRESENT 

Sn0O2E(O,C«SuTJ*I0HASk); 

If RSLT»£a6l73 NEd Q THEN % I/O ERROR 



"IfilllQOvT. 



021311 

;02tif'»t 



45 

46 

47 

48 

49 

50 4 

51 

52 

53 ( 

54 

55 

56 ( 



BEGIN 

* SET ^MIT « NOT(AuXMEM) 
IF CDlSK|SDiSKSPACECIQp'MlX**0)) LSS THEN 



22332800 T 
22333000 T 
22333800 T 



021513 
0216*1 
0216*1 



mi 



% TERMINATE Marker 



22334000 T 






end; 

GO To retry; % TRY AGAIN WITH ANOTHER ADDRESS 
end; % IF T/Q ERROR 



22334600 T 

22334800 T 

2233^000 T 



0222*0 
0222*0 

MMiM.. 



MSmiMa 



iiiittMiiiii«iiiiiiiiiKiiiiiii^ mother 



BEGIN 



W'VsmmMh 



0222*2 
0224*3 
224*3 



22335800 T 0224*3 



rf 

2 
3 

4 
6 
6 
7 



MCM0MJ«cC*P{DuP))&0t2J47:i]&0lSKCCTC]; 

P(AWAKLN>D£L); . 



22336000 7 
.223 36,200 T 



0225«1 
Q22fl'.2 



F06» 



tHQi 
If MtM0M3.t3«33«6 THEN 
FORGETSPACL(FRONTa; 



MCMOMl.CSllUU 



22336400 T 
223^9i00 T 
2;'3S0Q00 T 



023011 
023011 
02351 2 



pctrue:)^ go exit; 

CODE'S 

X OBJECT PHqGRAH CQQE TO BE UVERLAID 



22351000 T 
22352000 T 
2 23530 T 



0236*1 
0237«0 
023710 



9 
10 
11 
12 
13 
14 
15 



IF (T •■ MC§JaCF3)4FRONT AND T<BACK 
CANNOT OVERLAY NORMAL STATE SEGMENT HE 
BEGIN PCAWAKEN); GO EXlTi 



THENX 

WiLt RETURN TO 



2235«000 T 
22355000 T 
2 235 6 000 T 



023710 
0240«2 
0240IP 



end; 

IF soFTi>o Then 

IF JAR[P>lX,2].[5in 



THEN 



% Software Interrupts 



22356020 T 
22356i00 T 
.223 5 61 ^0 T 



0242' 2 
02'*2«2 



IF CTSKA «■ PRTCMIX*TSX3),P8IT THEN 
IF (T ♦ TSKAt83.CFFJ)i«0 THEN 

IF CT^MCTJ.tCFjj^FRONT AND TSBACK THEN 



22356i50 T 
22356200 T 
223?6"^QQ T 



0245« 1 
0247*3 
Q25flt2 



16 
17 
IS 
19 



BEGIN P(AWaKEN)> qq (tXIT; 

end; 

IF (MIXUP *• (SeGDIcT » PRTcMlX^g] ) .[FF33><0 ThEN* 



223564OO T 
22356^20 T 
22357Q00 T 



025412 

0256«2 
0256«? 



20)} 

^^ 
22 

23 

24 

!5 

Mo 

"I 
28 

29 

90 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

♦a" 



% RE-ENTRANT CQCE TO BE OVERLAID -- CHECK OTHER USERS* TOO 

BEGIN MIXUP * MIXUP, t39»63;X 
DO BEGINX 



% STOP uTHER 



IF MIXUP 
UStK OF Th 
IF (T «• 



=P2MIX THEN ST0P;X 

IS COUE IF RUNNING ON PROCESSOR 2 

MlPRTtMlxUP^Sn.tCFD^FRONT AND TSBACK% 



22358000 f 
22359000 T 
2^340000 T 



025913 
025913 
261' ? 



22361000 T 
22362000 T 
22363000 T 



026l«2 
026a«0 
0264t0 



19 
20 I 

21 
22 
23 I 
24 
25 
26 I 
27 
28 

«{ 

30 

31 

32 I 

33 

34 

35 ( 

36 

37 

38 f 

39 

40 

41 

42 

43 

44 ( 

45 

46 

47 I 

48 

49 

50< 

51 

52 

53 ( 

54 

55 

56* 



then begin p(awaken3; go exit; 
end; 
X Same criteria applv to all useRs of this code 



2236*000 T 

2236«i00 T 
2 2 365000 T 



026712 

027012 
027012 



IF SOFTI>0 THEN 
IF JaRcMiXUP#2],c5ii] TheN X SOFTWARE INTERRUPTS 
IF CTSXA «• PRT[MlXUP^g2 6 j?.PBIT THt . N 



22365i00 T 
22365 i^O T 
2?365i50 T 



027012 
027l«l 

273 ' 1 



IF (T * TSKACal.tFFn^O THEN 

IF (T«-MCT3,Ccr3)4FRONT AND TsSACK THEN 
BEGIN PfAWAK£N)J GO EXIT; 



22365200 T 
22365300 T 
2g365/tQQ T 



027513 
027612 
0?8g*g 



X CHE CK 



END UNTIL (MI 
all USERS ON MI 



end; 

XUP *• PRTtMlXUP*4]f C24J6] )-«*'77;X 
X- INQEX LINK E D I IST 



22365420 T 
22366000 T 
22 3 670 00 T 



028412 
028412 

2 97«? 



end;x 
X IF WE Reach this point* we can and will overlay the area 

SET OMIT g NQTfAuXMEM? 



22368000 T 
22J69000 T 
22369g99 T 



0287{2 
026712 
02 9712 



backagainj J 

SET OMIT a AUXMEM 
X«.SEGDICTrSE6N0oMQM] 



ief i oj;c uoE OvE R L AY; 



22371200 T 
22371210 T 
2237122 T 



0287»2 
0287*2 
02e7«2 



46 ;;.■ 

46 

47 

ts 

49 1 
. »i 
5' 3 
52 
53 
54 
55^,' 






Ml 






22371221 T 
22171299 T 
2g372Q00 T 



029210 
029210 
029210 



X RE-ENTRANT CODE BElN^ii 

IF (MIX ♦ PRTCMIX* 

SET UP CHAR* S* AND 



OVERLAID -- MUST FIX ALL STACKS AND PRTS 
4].C24I6])^P77 THENX 
BS FOR NEXT USERS STACK 



22I730OO T 
22374000 T 
2 237 50 00 T ,, 



"giwisio T 

2237f000 T 
2t l 7 e 0Q T 



02 92(1 
0292M 

ii j ii!| l li iiw )! Ill mm i nifciiii 



iwi#liiiiiii'ii 



iiiilP^PiiiRiilr 



029911 
029e»l 
03 011 1 



GO TO 8ACKAGA 

end;x 

i SET OMIT » NOT^AUXMEM) 



in;x 



22379000 T 
22380000 T 
223890^9 T 



0301«3 
302»1 
Q302M 



96 

5 



i'Sli 



■ i mmuunmw&m 






i P(AiiAKEN yQE LfT>^ ,UE ); QQ SX It; 



'mmmmmmi 

22,iw3lQ T 



0302tl 
0302«l 
030412 



$ POP OMIT 



22383101 T 0307«0 



• • 



>T 



8 
9 
10 
11 
12 



17 
IS 
19 
20 
21 
22 
23 
24 



2B 
26 

27 3 
28 



29 
30 



51* 
J2i' 



93 

34 

38 

36 

37' 

38 

39 

40 

41 

42 



45 

«6 

♦7 

«8 

49- 

90 

51 

S2 

a 

S4 

56 ':'; 
56 f. 






rtAS THAT NUT TKIVIALITY PERSONIFIED,., 



IF P<UlNK.C3J63*DUP:a7 OR P(XCH)«13 THEN GO TO INTRINSIC! 
X ♦ "21 8i «- (PCO#RDF)J,CrF];X 
SET BS TO POINT AT RCrt FOR CALl ON PLAY 



OO 



BEGIN* 

QLAY 



X S IS 



NOTCS ♦ ((CURE «• (T <■ 
AND CORE^KKON T ) ) ; % 



M[BS3),CCF])<8ACk 



TRUE IF THE ROW POINTS TO THE ROUTINE TO BE OVERLAID 

as ♦ r,[FF3;x 

POIN T T TO CORRESPONDING MSCrt 



WHILE (T 4- M[eS]),tl6:i3 DO BS 4. T,tFF];X 
% RUN DOWN STACK OF MSCWS UnTil NOT MSFF 
IF (BS «• T«[FF] )<6A THEN 



X END OF STACK — THIS IS RATiqnaLE FOR OBSCURE USE OF " P ( * S T FT"' 

8S «• BEDCX ♦ X + 23.[FF3;X 
END UNTIL (X>JOBNUM) OR $i% ____^ 



IF RESULT THENX 

BEGIN M[ MOM J «. (*P(DUP)U(*Pc,eSPbIT))[CTC]'X 
FOSGETSpACEfFftDNT JJiK ^ 



end;x 

P(RESUtT 
IKTRINSICU 



AND n; 60 EXIT; 



FOR MIX<-J bTEP 1 UNTit MIXmAX 
IF iNTAtiLERUWCMlXJXO THEN* 
REfilN TF MIX=P2MtX THFN STQP;1 



DO* 



IF CT ♦ MCPRT[Mlx*a3].[CF])iFR0NT AND TSBACKX 

Then begin P(awakeN); gO exit; 
^Nn; 



end;x 

FOR Mix*-i STEP 1 Until mixmax 

IF lNTABLERU^rMlX]/0 THEN 



DQX 



BEGIN SEGNO *• 

STR£AM( A 

BEGIN Si 



MOM.C8»10J-1;X 
«- SEGNO AND 3I T 
*■ T> SI «• ST^Ai 



<■ tINTABLECMlXf SEGNO OIV ni})t 

SI «• si^a; PI *- Lnc Atx 



L-i «■ Dl + 6; bS «- 2 chr; end streaming;* 
IF (Segno *■ pqli3h;/o Then* 

If SEGND = ^2000 THEN INT13 FLSE 



BEGIN CHAR *■ P(PRT[MiXi'83# OUP ) , [ 32 « 1 3 ' » 

tvpeibjssegnu, [37:13; 

S£GN0;=Sr6N0 AND gl777; XIGNORf TYPE 13 BIT 
POLISH li\X 0; as ♦ PRTCmIX,iO].[FF3;% 



segdict 4. PRTtMx^«3;% 

X» = SEGDIcTcSEGNQl^[a:iO]; 

^ If" TYPE13 AND NOj PRTCMIX*X3 . C 2» l3 THEN ~~ 

% TYPE 13 REFERENCE ALSq EXISTS anO TYpE 7 REFERENCE !» NQT PrESEnT 



INT13 ELSE 



BEGIN 

cudeoverlay; 

^EGDICTtSEGNOJ 



♦_(_*p(DUP)UM M t F T F 3 ' X 



end; 
£nq;x 

end;x 

intrnsclmum. c8j103 3 
forgetspactcfront);x 
p( awaken* del /true); 



<■ (*P(0U^'))^MQM[F'TC3/X 



mmmmmm 



NQT(NEWLOGGING) 



'i^M0MsfS)i: 



P(HTN); 



mam 



22384000 



22386000 
22387000 
22386000 



030750 
307{0 



22389000 

22390000 
2?3VinOQ 



030710 
0310M 
03MIQ 



22392000 
22193000 
22394000 



031310 
0313J0 
0315»3 



2239b000 
22396000 
22397000 



0318»1 
0318»1 
0319»g 



0319»2 
0323»3 
0323»3 



22398000 
22 3 9 9000 
2g400QQ0 



.0.32512 
032512 
0328*3 



22401000 
22402000 

2^4Q3nQ0 



22404000 
22405000 
22406000 



0330«2 
O33OI3 

0j 33«X 



0334«2 
0334«2 
Q335M 



22407000 
22^08000 
2?409n00 



22ft 1 boOO 
22411000 
gg4Vtfi3Q 



0335J3 
0337?o 
033ft;o 



22412000 
22413000 
2?4i3niQ 



034110 
0344 1 2 

0347 I ? 



O347I2 

0349»3 

03^i»n 



22415000 
22416000 
2?4i7nOQ 



22418000 T 
22419000 T 
22419500 T 



0352t0 
O354I1 
03S7il 



035QJ3 
0359»? 
03601P 



22420000 
22420200 
22420^00 



0363»0 
0367»1 
036812 



22421000 
22422000 
22423000 



22423i00 
22423200 

2242330Q 



0369*3 
0373:0 
037^:? 



22423400 
22423500 
22424000 



0376*2 
0378»3 

0378*3 



0380*0 
0380*2 
0382*0 



22*24500 
22425-000 
22426000 



22427000 
22428000 
22429000 



0384*1 
0384*1 
0364*1 



0386*2 
0389*0 
389*3 



^2a*2.9;ioo; 

22429199 



22 4 29 3^0 



T 

ft' 

m 



0191*2 

0391*2 

(^391*2 



2 
3 

4 
s 

6 
7 
8 
9 

10 

11 I 

12 

13 

14 < 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 4 

24 

25 

26 ( 

27 

28 

29 i 

30 

31 

32 4 

33 

34 

35 I 

36 

37 

38 I 

39 

40 

41 I 

42 

43 

44 I 

45 

4« 

47 

48 



m 



49 
50 I 
51 
52 
53 f 
54 
56 
58( 



End of ovehcayu 



HtVlSlON OF MAY 31/ 1967. 



22a30000 T 039l»3 
SUF:= Q393 WORDS 



1 

2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 



Procedure changeabortcx); value x; real x;x 

BfGlN ARRAY AC*]* BC*];at 1^ 



START OF REl 



22900000 

sEGMENTi Disk 

2290 lOQQ 



T 0000»0 
ADDResS » 
T ononin 



00649 



REAL J* T'* 

A«-[MCSPACEC^10)] J&21CL8t36; lOU 



22902000 T OOOOJO 
22903000 T 0000«0 
2?9Q4nOQ T OQOQ»n 



sleep(ctoglE3# abqrtmask);x 
locktogcabohtmask); 

DlSKWAlT(*AtCCF3<i2iO*ESI''DlSKTOP*i); 



22905000 T 
22906000 T 
23907O00 T 



0004t 3 
0006«1 
O Q09 »3 



tsHlLE (A[0]»sXCLOCK + P(RTR)) 

All] «• date;x 

J *■ 3xpiMix;t 



GEO WITCHINGHOUR DQ MiDNIGHT; 



22909000 T 0012»2 

22910000 T 0020J2 
23911Q00 T 002ir^ 



ACJ3 «• A£J*n ♦" AtJ + 23 «• 0;X 

B*JARR0W[PlMix3; XCANT WaTCH JAR ANO LOSE CONTROL* TOO, 

A[J*903 * BtOi; 



22912000 T 002310 
22913000 T 002711 
22914000 T 0Q2aM, 



«• B[i3; 

«■ X&BC53C1S251233; 



ACJ+913 
ACJ+92] 
ALl80-»PlMIxJ«-USERCODErPlMIx3; 



22915000 T 0030»1 
22916000 T 00 32«1 
22917000 T 0Q35» 



i- 



19 

20 

21 

22 

23 

24 

25 

26 > 

27 

28 

29 

>0 

31 ' 

>2 

93 

34 

3S 

36 

37" 

38 

39 

40 

41 

42 

43^ 



DlSKhAlTCA,tCF3'210'ESPUlSKTQP + n; 

unlocktogcabortmask); 



22918000 T 
22920000 T 
2292100 T 



0037«1 
0039»3 
0043»1 



end;x 
i set umtt = ngkdatacdm ) 



22922000 T 

Si 

??999q99 j 



0044«1 
ZE» 0045 

QQQ Q t O 



WORDS 



REAL spacestack; 

SAVE PROCEDURE FORGETSPAct CLOG )' X 



ST ART or S ave 



23500000 T 

2^000000 T 

SEfiHFNTl BaSF. A 



ooooto 

000010 
nnRESS u 00613 



BEGIN* 



VALUE Loc;x 

REAL LOC;X 



24001000 T 
24002000 T 
2400.1000 T 



0000»0 
OOOO'O 

OOOOJO 



REAL B*BACK*r»rRONT*LINK'Xj.T»SUE;X 

LOC *■ *P(tLOC) INX -2i* 

TF (B» WCBACK*- (LTNKv M LLOr.3 ) . f FF3 3 i . [ CF 3XL0C QR 



24004000 T 
24005000 T 
2 4 QQ60Q Q T 



0000«0 
000010 



_L 



CF*MCFRONT*HNK.tCF33)iCFF3^LQC OR LlNK<0 THEN 
PUNT(3); % INVAUID LINK 

F F<0 THEN 



24007000 T 
24007100 T 
24007200 T 



0009{0 
0014»0 
0Q15M 



beginx 

MtLQC3«-LlNK &FCCTC3;X 
MCF34-MCr3 & L0CCCTF3iX 



24008000 T 
24009000 T 
24010000 T 



Q016«0 
0016»2 
Q Q18 <? 



M[T«-MCFRONT+2 3 3*MCT3 &( X«-M[ FRONT + U ) t CTC 3 ;* 
MtX+13*TX 

end;x 



24011000 T 
24012000 T 
24013000 T 



0021J1 
00278? 
QP29 »3 



45 ;■, 

•6 

»7 
«8 

49 iS 

50;;;: 

51 
52 
53 

54 

55)} 
MH 



I 



r B<ox 



g§iiiii:.: 



24014000 T 
24015Q00 T 
24016000 T 



0029f2 
0030»0 
003011 



MCBACK3*B&(T«"MCLQC] ,ccf3)cctc3;x 
MCT3*Mn3i BACKCCTF3iX 
M[BACK.n]»M[BACK*l3K(SlZE»T-BACK"2)tCTF3JX 



24017000 T 
24018000 T 
24019000 T 



0030J3 
003412 
0037« 1 



s«iii:i»'iiiiiii«:i»#i- 



24020000 T 
24021000 T 
24q .22 QQ0 T 



0042*2 
0Q42»2 
q iJ 4 2. « 2 



mcloc + 2]*-avail;* 

MtuoC + l J*(r*M[AVAlL3 ) &CSlZE«-MtLOCJ .CCF 3-luC-2)[cTF 

3;% 



24023000 T 
2402400U "I 

2/»025oQg J 



0043«0 

0045SO 



aii«^iiiiiiiiii«iliii^ 






005l»2 

»iii«: 



end;x 



24029000 T 0057*2 



• • 



n 

2 
3 
4 
S 
6 



$ 



If 1-0c<LEFT0F"F then If MLOcJ .[CF]>LEFTaFF 
SET OMIT = NQKDF-aUGGiNG OR CHfcC KL I NK ) 



THEN LEFTOFF«-MCLac] .[FrJ> 



End forgetspace;* 

SAVE INTEGER PHOCEDUHe ACTSPAC£(^I4k;*SAVEF)> 



2/(030000 
2^10 301 UU 



00b9J0 



2^031000 T 0063* 

SIZE* 0066 WORDS 
2a032050 T 000Q»O 



valle siZE*savef; heal siin huouean savef; 
B£ GTM HE At l INK> LQC^ x> YM ; 



START LjF Save 



segment; baSe 

24032100 
2^0 32 200 



ADDRESS = 

T 0000:o 

J OOQO 'O 



00679 



$ SET OMIT « f^QTC StAT I STICS ) 
REAL SIZEF^LQSi 
LABEL StfSEARCH>R0CKABYE>START^0VSEARCH,OVERLAY*XX; 



240 32300 T 0000*0 
24032^00 T OOOO'O 
24Q32e Q0 T QQQQin 



10 

11 

12 



IF SAVLF ThEN% ATTEMPT 
BEGIN LINK *■ MSTART;% 
SySEARCHa 



TU allocate at START OF MEMORY 



24032900 T 0000»0 
24033000 T 000211 
24033100 T 0n03<2 



13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

» 

Jl' 

J2 

33 

34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 

»3~ 



IF CLCC *■ LI 
IF (LINK 4- M 
flrGT\ IF mQT 



NK.CCF3)50 THEN GO TO ROCKABYE; 

[L0C]}i0 THEN* 



24033200 I 
24O333OO T 
2 4 Q334Q Q T 



0003 « 2 
0005 » 3 
0007 1^ 



BEGIN it QVRLAY 0^L Y I F POTENTi AL 

siZef ♦■ '2; X «■ T ♦• Loc; 

IF (Y»LINK.[FF] ) ^ THEN 



SPACE ADEaUATt 



24O335OO T 
24033600 T 
24Q337QQ T 



0009 » 1 
OOO9J3 
Q012«IL 



IF HI 
WHILE 5 
SiZeF «■ 



Yl < THEN 5lZEF*MC(T«.Y) + l3.tFF]i 
IZE>SIZEF AND ( Y«-M[ X3 ). 1 1 123/1 00 
SiZef - X ♦ CX » Y,[Cf3 



: f J )1 



24033800 T 

24033900 T 
?40^400 T 



OOi3»3 

00l9l2 
0023*2 



IF SIZE 
BEGIN L 
TK riLAY 



> SIZEF THEN 
INK «• Y; go SVSEARCHi 

fl„OC) THEN % RF-St^T "i 



'SFT "LINK 



ENDi 

m 



24034100 T 
24034200 T 
24Q3430Q t 



002613 
0027«2 

Q029»l 



IF {Y4-M[LINK«.T3)>0 OR Y.tCF3«L0C 
OR MtY],[FF3/LINK THEN 
a; MEM I INK AT '♦T" NO LONGER VAlID 



24O344OO T 
240 34500 T 

240 34600 T 



0030 «0 
0033 » 3 
037 10 



tND;% 

GO TO 



LINK ♦■ mstarT;* 



24034700 T 
24034800 T 
2 40 3 490Q T 



0037'0 
0038»l 
OQ 3R8 1 



■£:NOiX: ■ ■■■• 
tf (SIZEf «■ 
MIACTSPACEIg 



i*(|:T«^LOC + UaFF3)<8l^E Then qO SVStARCHiX 
L0C3;»8ABS{LlNK&lt2l47tinj _____^ 



2403S0OO T 
24 035100 T 
24O3SP00 T 



0038»3 
0038»3 
0043 to 



LjNK 4. M[T3; 

m[:y3 *■ (*p(D 
IP sizlf>siz 



MCLlNK + 13 «■ Y 

UP))&LlNKCCTC3;X 
E-»DELTA ThEN% 



*■ MtT + l3;X 



24O353OO T 
24O354OO T 

240 355 00 T 



0046» 1 
0051:2 

0053»3 



BESIN MtiOC3 
N tX 3 «• 

■.>.■.■;. .'li^'rY 3 ■■■■* 



> (X ♦ *PCOUp))&CY 
C*P(OuP))&YCCTf 3;* 
X.ECF3&LQCCC?F3;X 



* LOC + SUt + 2)tCTC3iX 



240 35600 T 

24O 35700 T 

^4033800 T 



0055 »0 
0059»3 
006210 



FURGETSPACE(Y+23;» 



END 



end;* 

ELSE 



BEGINX ALLOCATE ON "SPACE AVAILABLE" BASIS ~ 

IF (LINK * P0LISHCMCAVA1L3> 0> 5lZE» cFX* LLL^X 



24O359OO T 
24O360OO T 
24036100 T 



0064«2 
0065»3 
006583 



OO65I3 
0066*1 
0066*1 



STARTl* 



24036150 T 
24036200 T 
24O363OO T 



46 
»7 
•S 



0, INx# 
BEGIN* 



,T, ST0)).tFF3=P77777 THEN* 



OVSEARCHJX 



IF CLlNKl»MCLEFTOFF3),Cl«23 « THEN 
BLGInX OVERLAP ONLY IF POTENTIAL SPACE ADEQUATE 
SlZEF**-2i X««LErTOFF; 



24O364OO T 
24036500 T 
24036600 T 



0068* 1 
007l«0 
0071*2 



49 

50 . 

51 

52 

53 

54 

55 



24036700 T 
24036800 T 
24036900 T 



0071*2 
0074*0 
0074*2 



IF CY;*HNK,tCF3) X THEN 

IF M[Y] < THEN SIZEF * M[Y*l3.tFF3; 
WHILE SiZe > SiZEF AND ( Y«-M cX 3 ) . [ 1 » 23/ 1 00 



',mMMm$imi^»mmKmmmr*)(f' . x^tvcff' 3 end; 

LEFTOk^F'O OR XaO THEN GO TO XX 



24037000 T 
24037100 T 
24037200 T 



24037100 t 



0076*1 
0078»O 
0083*1 



0087*$ 
009313 



24037600 T 0095*2 



OvERLaYU 



ELSt GO TO OVSEARCH END; 
QVLU LAY ATT EMPTED CY Ci- I CAL L Yf 



MS I NG L E FTQ fF 



24037700 T 0097U 
2aQ.17flQQ T Q 09fl « 



t. 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



IF (IF PIMIX»0 THEN 1 EtSE 

IF (XI*LINK,t9»63)>pjMiX 
(( TW O(X) - - - ■ - 



, . . THEN I EtSE 



24037900 f 0098M 
2403B00O T 0100*1 
?4Q'IBiQ0 T QlQlll 



IF tjUAYdEFTOFFJ THEN GO TO STAHj; 

end;* 

IF (L^FTQFF«-UiNKaFFn-0 THEN 



24038200 T 0l05»0 
24038300 T 0l07«0 
2 4 384. 00 T Qlfl/fO 



XX« 



IF LOS THEN GO TO 
QO TO OVSEARCH i 



R0CKA8YE ELSE LOS*i; 



ENDil 



24 038500 f 01 OS I 3 
24038600 T 0111 »0 
?AQ\8TQQ 1 QllKa 



IF (SUEF «- LINK.tFF])>SIZE + DELTA THEN* 
BEGIN M[T3 ♦ LINK&(X «• S IZEF-S IZe-2 ) CcTF] ;X 
lUc «• T»y-n;at , ^ 



24038800 T 
24038900 T 

24039000 T 



0111J2 
0113«3 
QU7« 3 



X ♦ (Y * McT-l3)l(t-l)tCTF3iX 
MtY3 * (♦P(DUP))&L0CCCTF3n 
MLT'n » Y&LQCfCTC3J» 



24039100 T 
240392^0 T 
240:^930 T 



119 1 a 
123*0 
OitSt 



t- 



ENO ELSE 
BEGIN 
„™ WUlNI^ + n 



» Y «■ MfTf|3?X 



24039400 T Ol27«3 
24039450 T 012713 
?40195Q0 T Ol^atl 



19 
20 
21 
22 
23 



MI.Y3 ♦ t«PCDuP))&LlNKtCTC3;i 
X * MCtOC ♦ T*13J« 



p-Nn;ac 



MCACTiJpACE»=LQC3» = ABScX41[2l47ll3); 

end;* 

$ $ET OMtT = iMQTOTATl STi gs? 



24039600 
24 039 7 00 

240 39800 



24O399OO 
24040000 
??4Q40l00 



013210 
013411 
136 13 



0l36t3 
0140'0 
0l4fl»n 



2S 
26 
27 
28 
29 
M) 



McL0e*13*«0; 

rockabyCi 
END actspace; 



24041900 T 014010 
24042000 T 014210 
2 4 4 21 00 t Ql42»0 



Save integer procedure GETSpACtCSUt*TYpt,SAV£F); 



VALUE SiZE'TYPE^SaVEFI 

REAL SIZE^TYPe; BOOLEAN SAVEFI 

BEGIN 



START OF save; 



SI2E» 0143 WORDS 
24042200 T 0000*0 

segment; Base address ° 00^22 



31 
92 

33 V 



24042300 T OOOOIO 
24042400 t OOOOlO 
24042500 T 0000«0 



34 

35 

36 

37" 

38 

39 



REAL COUNT»T,MESS; 
LABEL NEWSTART; 
SUBROUTINE TeLLSPQ; 



24042550 T 0000«0 
24042600 T OOOO'O 
240^2625 T 0000 «0 



BEGIN PCMESSXO); 

IF (M£SSt«6ET5PACEC3*2*0)+2)s2 THEN PUNTC3); 
STREAM(X:sPt PIHIX/ SiZE* MESS); 



240426S0 T OOOlfO 
24042675 r 000113 
24Q427Q0 T QQQSI^ 



«o 

41 
42 



BEGIN JsitaLOC PIMIX; dS»«2 DEC; 
DS;s8 LIT" NO MEM "; 
0S«»5 dec; 0S»«5 LIT" WdS*-"; 



24042725 T 
24042750 T 
24042775 T 



0007«1 
0007»3 
0009J0 



43 

44 
46 



xtDittDi^ir; ost*2 liT'^ok*'); 



24042800 T OOIOM 
24042825 T 0011*3 
2404g650 T OQiaiQ 



46 
47 
48 



END 



I0ReOUEST(MeSS&?274[1I4OI83» 
C17J&P231C10«40I83); 
OF TELLING SPQ ABOUT NO MEMS; 



P(OUP)* 



24042875 T 0012*1 
24042900 T 0014«0 
g^0<t29gg T 00,15,12 



19 J 

Soi 
51 i 



NEWSTARTt 



LOCKTQG(STOREMASK)i 



.f |||;P:|:|.:|ii|,t|,^,Sf iilMA &«■ 3 ; 



$ SET OMIT s NOTCDEBUGGING 
P(SPaCeSTACK,STS); 

tisactspaCecsize/savefj; 



24(^41930 T 001913 
24043000 T 001710 
24041100 T 002010 



52 
53 

54 



OR CHECKLINK) 



24043200 T 
24043500 T 
24043600 T 



002312 
0023>2 
002411 



55 
56 



p(tMess3*ST5i); 

UNLOCKTVaCSTOREMASK); 
IF fMp THCN 



24043700 T 0025»3 
24043800 T 002612 
£ 4041900 T POIQtp 



56 
5« ' 



BEGIN3I 



24044000 T 0030»3 



• t 



5 
6 

8 
9 
10 
11 
12 

's" 

14 
16 



16 
17 
IS 
19 

20 

21 



22 
23 
24 

26:; 



26 
27 



28 
29 
M 

31? 



32* 

33 

34 

35 

36 

37 ~ 

38 



40 
41 
42 
43^ 



45 
46 
»7 
«8 
49 
50 



51;; 

52 
53 
94 



55 
56 



IF SAVEF.t46in 

NQMFM«-MnMpM.Hi 



THEN P(0*RTN); 



TAR[PlMIX],C20Jnt«lJ 
IF (C0UiNT«-C0UNT*i)>5 THEN 
TF MESs»n iHfK TFi 1 spn; 



2404-14100 

?dfla42nn 



GO TO 

£N0;* 
M[RETSPAfEiaT1n 



SLEEPCCCLQCK]* NOT CLOCK)i* 
MJMEM*NaM£M-i; 



24044250 
24044300 
24044400 



0C3l«l 

0013 to 



00 35 « 3 

003811 
004010 



NEWSTARTiX 



24045100 
24045200 
24n4')25q 



END 



IF MeSS;'0 
GETSPACEi 



c*P(nnpn&TYPPr3i4gi6i&PfMTxro«4gi6 3; 



THEN TELlSPQ; 



24045300 
24045400 
21045*^00 



0043>0 
004413 
0047 » 2 



0050 »0 
0050 « 2 

:#OSfflg 



SAVE INTEGER PROCEDURE DISkSpaC£( WORDS, MlX*AUX); 
VALUF W0R08>MlX#AUXj 



24045600 T 0054>3 
24046200 T 0057J0 

Size* oosb words 



INTEGER WURDS*MlX/ REAl, AUX; 

BEGIN ARRAY l,gC* + 2t*3; 
INTEGER iNDEX»NTl# 



SEG «NT2* 

CNTRS*NT3» 
SIZg «NT4* 



REAL 
LAREL 



LJMIT«NT5/ 



FiN^Atf'- 
8A0EXIT# 
£X1TI 



DEFINE HtURlSTic ' i*; 
REAL SUBROUTINE FINDSEG; 
begin; STR£AM(A«-OtT); 



BEGIN SI*LOC T; 

5<IF SC*"©" 
SI»SI-»if 



L« A4.TALLY; 

END stream; 

FiNdSEG «• POLISH 



sii-si+a; 

then jump out to 

TALcY*-TALLY*n; 



i; 



END FiNDSeQi 
SUBROUTINE FINO; 
BEGIN POtISM(0>; 



r ♦• lgccindex]; 

iJEG <- T.C9I33; 
CNTRS » T«C2»7]; 



Ll« 



IF SE«>4 THEN 

IF tSEG ♦ FIN0SE6M5 THEKI fiO TO FINAL 
ELSE CNTRS «.0J 

IF size+cntrs>ioo Then go tq li; 

P(DEL*(lN0Exx256)+SEGxi00*CNTRS); 
STREAM(A»0»SeG*T»CT]); 






L5t; 



TALLY«-TALLY + i; 

suseg; di«-t; 



A«-TALLY; 

ds«-chr; 



awitiiMWii 



LOG 



MWX^mMm^^m'ism^Mm:mmmmm^mty»'XQ o ■■• t hen 



'EXJ * T&SEG[9«45I33&CNTRSC2I41J7]; 



24103000 
24 1 04000 
24^05.000 



0000 «0 
OOOO'O 



24106000 
2410^000 
24108000 



0000»0 
000010 

Qoofl^n 



24109000 
24110000 

?4i noon 



0000*0 

ooooio 

0000»0 



24112000 
24112500 



OOOO'O 
000010 
QOOQfn 



24U4000 T 

2«115000 T 
241 1 6000 T 



24ll7'000 T 
241l8<i00 T 
24119000 T 



OOOO'O 
OOOO'O 
OOQl »0 



0002 »1 
0002*3 
0004<0 



24120000 
24121000 
24122000 



0004«3 
0005«0 
0005M 



24123000 T 
24124000 T 
24125000 T 
24126000 T 



0005*1 
0005»3 
0006*0 



24127000 
24128000 



2412*000 
8.4130000 
24131000 



0006<1 
0007*1 

oooetg 



24132000 
24133000 
2413^000 , 



T 

T 



000913 

0010»? 

0013*0 



0014J1 
0016*0 
O0U»2 



24135000 T 
2413^000 T 
241371000 T 



0020*0 
002lt0 
0021*3 



24136000 
24139000 
24139^00 






0023*0 
002312 
0,g24«1 



it: 



0024*2 
0027IQ 



24143000 T 0029«2 



24101000 T 0000*0 
START OF SAVE SEqIIENt; BaSE aODRESS ■ 00880 
24102000 T OOOQin 



55 
56 ' 

;, 53 



• • 



FINAL! IF CDlSKSPACt *• PaLISH)XO THtN 
UEGIN Ir SEG = «i THtN INDEX *• o; 


241^'tOOO T 0032:3 


' 10CC03 «• LIMlT&lNDEXCCTn;. 

2 ••GO JQ t>iin • 

3 rms END FlMOl 


2ttU6o00 T 0036»1 

24U7000 T 003810 ' 
2aiaBf)0Q T 003flj9 3 


' i SET OMIT = NOTCAUXMEM) 

' PCDALOCROWLMixJ); 

6 SliEF ♦• CwaHDS + p91 [)f\J ^QJ 


2al«8999 T 0038«3 ' 
24150000 T 0038«3 ' 
24151000 T 003913 ^ 


IF (LIMIT »» L0CC03.CCFJ )«0 THEN GO TO BADEXIT; 

8 IF (INDEX ♦ L0CC03.CFrj)^0 THEN FIND^ 

9 TNnFX ♦ ?J 


24152000 f 004112 ' 
24153000 T 0044 to ' 


"> DO FIND UNflL (INDEX J= lNOEX + 2 )>LIMI T; 

badexitj 
12 diskspace ♦ -i; 


24155000 T 004813 
24155500 T 0052M 
2Zil56n00 T 005?»1 


'3 , ■■ t)tllt 

'" $ SET OMIT « NOT(STATISTICS) 

1-5 STREAMxA*Oii«!LlMlT,C41»63*T*tLOCtll3)l 


24157000 T 0053J1 
24157199 T O053ti 
24158000 T 0053tl 


'6 BEGIN si«"T; di*a; 

17 L(Si*si + ii; 

18 5(iF sc«*'o" Then di*di+8; i»i«-si + i)); 


24159000 T 0055»2 

24160000 T 0056»0 ' 

24161000 T 0056»3 i 


20'" ■ '•.END stream;. ., 

21 IF CPOLlSH<M£URlSTiC> THEN 


24162000 T 0056 « 2 

24163000 T 005813 ' 

24164O00 T 005910 ^ 


22 IF (CSEG *• TWn(MlX)) AND DLAYMASK);<0 THEN 

23 d£aiN UlAYMASk «• nut SEG AND olaymask; 

24 lNDEPENDENTRuNNtHCF(.GETMDRE0LAYDlSK)*MIX*6a)/ 


24165000 T 0059»2 ^ 
24166000 T 006251 2 
24167000 T 0064*1 ^ 


» end; 
26: End diskspace; 

27 ;,. . , 


24168000 T 0065? 2 ^ 

24169000 T 006512 ^ 

St2F» 0Q6A WORDS 2 


28 SAVE PROCEDURE DI iKRTN( SEGNO* SUE)* 

2s START OF Save: 

"> VALUE SEGNO* SIZE; 


24200000 T OOOO'O ' 
SEGMENT; BaSE aODRESS » 00946 2 

24201000 T OQOOIO ' 


" INTEGER Segno* size; 

'2 BEGIN INTEGER INDEX»NT1* 
» WURD«NT3* 


24202000 T OOOOlO ' 
24203000 T 0000»0 ' 
24204000 T 000Q«n ' 


M caUNT«»NT3* 
K DRUM *H^^f 
'8 X SNT5; 


24205000 T 000050 * 
24206000 T 0000«0 ' 
24207000 T OQOO»0 ' 


"■■■■■■■ ; .arway ... ■■:■:, iQc •Hi*iy 

«•.• ■ . . ■■■■■'■LABEL'" Lt 

»■■•„:>*:■■■■■•■■■■■■ ■■■ ■ ■$ •SETv,0H.lT::».,.«OTiAUXMEMX'''''^^ ■■• 


24208000 T 000010 ' 
24209000 T OOOQIO ' 
242n9n90 T OOOftlft ^ 


«> P(DAL0CCP1MIX**3); 

41 COUNT *■ TWCl(2a-6x(SEGNa.[39lV3 DIV 100)); 

♦2 X 4- (INDEX «■ 0&SeGN0[/»1«33:63)-i; 


24210000 T 000050 

24211000 T 000012 * 

24212000 T 000351 * 


" IF (WORD ♦ LOCtlNDEX3.C18«303-COUNT)sO THEN 

" BEGIN LOCtlNOEXJ «• O; 

« L» IF PClQCtC3.tFF3*OUP)^0 THEN 


24213000 T 000652 

24214000 T 0009*0 * 

24221000 T 001013 ::.r* 


•« IF uUCtPaLISH-l3<0 THEN P(XIT); 

" LOC[0] ♦ (*P(DUP))&lNOEXtCTF]; 

•8 END ELSE BtGiN L0CCINDEX3* ( *P( DUP ) JiWORDC i 8 118 « 303 ; 


24222000 T 0012*3 

24223000 T 001551 

24,224000 T 0,0,17,51 


« IF LQCi;x3<0 THEN > 

» IF CHORD OIV CGftjNT),C42l6 3»o TMEN GO TO 1} 

51 END END DlSKRTNi 


2422S000 T 002051 ' 
24226000 T 00^1 11 * 
24227000: T 002410 


52 

a S SET OMiT « (40T(ftATAC0M ) 
s^ $ SET OMIT « NOT(SHAREDISK) 


SIZE" 0025 WORDS ^ 
24499999 T 0000 5 ' 
24599999 T 000050 ^ 


>8.K ■;■;■•■■.•:■;: • , , ^ • ^■^\.:mmm:mMmmmiimmmmimMimm§m»:r ■■■^■/.••..■v. ■:.;•; :v., , „, . 


2ft99«999 T 0000»0 

25049999 T OOOOtO = 

27990099 T ^^OftOOin 



PROCEDURE LIBRARYLOAOSPECIALCASE(Z); VALUE Zi REAL If 



27997600 T 000050 



• t 



>T 



9 

10 
11 
12 
13 

1* 
IS 
16 
17 
18 

is' 



20 
21 
22 
23 



24 
26 



26 

27:; 



28 
29 

30 
31 " 



32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

«2 



47 
«8 



«9 

50 



61 
52 
S3 
34 



BFfilN COMMENT LI^RAHTLaAQ HflS RFLN pRQKFN' 



START OF REl 
■UP TO PRFVENT Slli. OVPRrLQW 



AND THE TIE UP OF CORE BY CODE NOT OFTEN USEO. THIS 
PROCEDURE DOES INITIAL SET-UP AND OTHER SPECIAL FUNqTIONS 
FOB LI8RARYL0AD. IT REFERENCES THE LiBRARYLOAD LQCAlS 



SEGMENT/ DISK 
2799?605 



By F-hLUATIVE DECLARATIONS AND CHANGES TO LOCAL 
DECLARATIONS IN LIBRARYlOAO SHQUlD BE MADE k^ITH THE 

CORRESPONDING CHANGES HERE TO LINE UP THE STACK 

CORRECTLY. ADDITIONS SHOULD BE MADE BEFORE OECLARaT I UnS 



OF LOCAL VARIABLES FOR B6500L0A0; 
REAL CQMMON»*i<^MScW»'g.RCWg*0; 



REAL ALPHAs+1* 

FID=EADD+1» 

I 'FN^lf 



EADD«ALPHA+1* 
FNsfiD+1' 

lC»l 4l/ 



J«lC-fl# 

LAST«K*I* 

MID»L0ADING»1^ 



K»J*l# 

L0A0ING«LAST+1# 
N'*MIOflf 



N1»N.+ 1# , . 
9aN«J + lj. 



SN«Sl2E+i' 

TYP£»T4l/ 

IJNTTN0»U-»1^ 



N2sNi+l> 

REEL»=fi*l* 

SIZExSEGfl* 



T«SN*l# 

U»TYP£+1# 

W»UNTTNQ*1« 



Y^W+li 
BOOLEAN BBsY+U 
LATEST = B65Q0.H> 



B6500aBB+l> 

togSslatest^i; 



ARRAY AR0W*T0GS+lt*3, 

I00*H*lC*3* 
LBL«LAfl-Ht*3> 



hsAR0W+l[*3* 
LA8alOD'*l£*3* 
S'L B L»4C«3^ 



XsS + U*3ii 
$ SET OMiT = NaT(R6500LOAD) 
LABEL TRYNExT>BAC>FlNUn^TRYAGN*BACK,LOADEM,FlNDFlLENAMES,EylTJ 



LABEL CA3£0#CA&E1#CASE2; 

SWITCH SWIT»» caseo,casei*case2; 

DEFINE SKiPDlR*TQG$.[a7;iJ»^RFELlSTART«T0GS.C46tl3«, 



SPAClTSw»T0GS,C/i5J 1 J«#CHKLBL*T0GS , [4a J 1 J## 
DSEDs(TERMiX,CCF] = PlMix)##SPACERs5&ei/,oocCTF3»* 
SPQUTUMTaQ<> 



MMbP 37700040* *SM»P37700000#i 

Subroutine getasegment; ■ ^^ ■.■■■ 



BEGIN 



S£G«»S[29]; 
nISKWAlT{-S.[CFn30*SFci); 



En d; 



F0RGETESP0ISK(SE6); 

Il"21 

St OF QgTASEGMENT 



);«**************<*ilrilt******** ************** ****** ****«***« 

Subroutine abort; 

BFGIN 



27997610 
27997615 
27997620 



ADDRESS » 00651 
JL QOQQtn 



0000<0 
0000»0 
OOOOtQ 



27997625 
27997630 
27997/S35 



2/99T6«0 
2 7997645 
2799yAS0 



OOOOJO 
0000«0 
OOOQtO 



0000 to 

0000 10 
00 »Q 



27997656 
27997658 
27997ft ' !>0 



OOOOlO 
OOOOiO 
OOOQtQ 



27997662 
27997664 

27997666 



OOOOIO 
OOOOtO 



27997668 
27197670 
27997 . 672 



0000«0 
OOOOIO 
0P0» ^ 



27997674 
27997676 
279976 78 



27997680 
27997682 

2 7997694 



OOOOtO 
OOOOIO 
QOQOIQ 



OOOO'O 
OOOOtO 
000 L0_ 



27997686 
27997686 
27997ft9Q 



OOOOIO 
OOOOtO 
OOOOtO 



27997692 T 
27997694 T 
2799^710 T 



0000*0 
OOOOIO 

OOOOIO 



27997715 
27997720 
279 97725 



OOOOIO 
OOOOIO 
OOOQtQ 



27997730 
27997735 
27997737 



OOOQIQ 
0000«0 
OOOOtO 



27997740 
279977-45 
27997750 



OOOQtQ 
OOOOIO 
OOOOtO 



27997755 
2799776O 
2 7997765 



OOOllQ 
OOOlJO 
QQ 2' Q 



27997770 

27997775 

27997760 



000411 
000510 
0Q Q5t. 1 



iF^^oiOTKiiiiWilliiifliill^^ 



27997785 
27997790 
27997795 



STOPTlMING(5»l023)i 
STDPTlMiNG(0/l023)i 
BLASTQ(U); 



2799^000 
2799?805 
27997810 



000610 
000610 
000610 



000610 
000913 
001012 



SETNOTiNUSE(U»0); 




27997815 T 

27997820 T 
27997625 J 



OOlltO 

00 12 to 
001310 



iiiiiiWiiiiii 







27997845 T 001712 



J< 



# • 



n 

2 
3 

4 
5 
6 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 



20 
21 



22 
23 
24 

25 ?, 

26 

27 



28 
29 



M 

31 " 

32 

33 



34 
35 
36 

37" 



38 

39 :' 



40 
41 
42 



45; 

46 
47 
IS 
49 
SO 

51 ; 

52 
53 
54 



55 f 

56 s; 

5i 



IF UNITNOXO AND 



LABELTaBLECUNITNO]' 



•P214 THEN 



S POP tlMlT 

STREAM(T«.T*<iETSPACE;<5#0«0)#2); 

BEdlN aS»2li.lT"LlBRARY lOAO ABORTED*-" J 



END I 



End; 



SPOUT cT); 

GO initiate; 

X ABORT 



BOOtEAN SUBROUTINE LA8EUCHECK; 



TRYNEXTJ 

P(WAIT10(LAB INX P 120540000000, 0,u )' DEL ) ; 
SET OMIT = NQT(H6b00L0A0) 



IF. 6»ftOyWAlTlO(SPACER#«'40,U) THEN 

P(WAITIO(?4740000005*0#U)#OEL)> 
IF DSEO THEN ABORTi 



y SET 



IF (NOT B6500 AND C ( NFLAGC l,AB[ ] ) . C 6 Ug] EqV "LABEL 
OR CNFLAG{LABC2]).|;6!2^J EQV "FILE'^^NQT 0)) 
OMTT » NO TCB^^OOLOADj . 



");<nOT 



THEN BEGIN 

STiEAM(A>£TINUCU3]#T«'T*Q£TSPACECi0,G»0)*2); 
BFSIN Sl«,AlSI»SH'5lDS»LlT".*^lDS»3 CHRJ 



0S«.21 

end; 
spniiT(T); 



LIT" NOT 

T»i; 



A LIBRARY TAPE*-"; 



enb else t«-o; 

if t«0 and not b6500 then 

IF NFLAG(LAB[3]).L30;i8J»0 



AND SKIPDIR THEN 



BEGIN 

sPACiTsw*-!; chklbl«-false; 

r,Q TO rack; XflRANCH INTO SPACIT. 



Bac» 



spacitsw<.o; chklbl«-true; 
RQ Tn trynext; : 



End; 



end; 

LABELCHECKtT; 



x****«***************************«***************# ********** 
Subroutine finothetape; 

PE GIN ^ ^ 



FINDIT* 



IF (U«-FlN0lNPUTCMlp*FIC'REEU/-O*0*O*0*OM'5)) < THEN AflDRT; 
REEL»RDCTABLE[u3.tHtlOj; XFORCE REEL CONTINUITY IF IL-Ep* 



RRRMECHt»TWO(U) OR RRRMECH; 
$ SET OMiT » NQlCaeSOOLQAD) 

IF CHKuew thcn if laselcheck 



THEN 



BEGIN 



SETNOTINUSE(UM); 

GO finuit; 



mmmmmmSmM 



(5xR&£t*>)l.C23U3 »« 1; 



RacTABLE[UJ.C8»6]lxPiMlX; 

STREAM (S*PRNTABLECU3.Cl8«30i,T*[T3); 

BEGIN si«-LDc s; DsvaoEc; 01*01-7; ds*6fih.; 



enu; 






FILEMESSAGEI •• IN "&T INUt U 3 [ 6 I 30 » 183 »T* 



27^97850 
2 79V7 a55 



0017«2 
019« ? 



27997856 
27997860 
27997865 



002111 
002111 
002410 



27997875 
27997890 
27997895 



0027*1 
0028*0 
0028«2 



27998050 
27998055 
27998060 



0028>3 
0028»3 
0029*0 



27998065 
27998070 

2 799807 5 



0029«0 
0029«0 
0Q31M 



27998115 
27998120 



003l«l 
003312 



2/998i30 
27998135 

2799flH0 



0038>0 
004l«0 
00441? 



27998155 
2799816O 
2799 8165 



0044*2 
004511 
0Q4flt? 



27998170 
27998175 
27996185 



0049*3 
0052*3 
00 53 *0 



27998200 
27998205 
?799a2l0 



O054«2 
0059*3 
Q06l?i 



27998215 
27998220 
?799fl2P5 



0064*2 
0065*0 
Q06B?2 



27998230 
27998235 
279962^0 



0069*0 
0069*0 
007212 



27998245 
27998250 
27998255 



0073*0 
0073*0 
00/3*2 



27998260 
27998265 
27998370 



007 3*3 
0073*3 
007410 



27998275 
27998280 
27996265 



0074*0 
0074*0 
0080*0 



27998290 
27996295 
27998305 



0081*2 
0063(1 
0083<1 



27998310 
27998315 
27996320 



27998330 
27998335 



0086*0 
0086*2 
0Q6T»2 



008810 

ooeeto 

0069*0 



27996340 
27998345 
27998 350 



.2:-rtiipi;iP 



0094*0 
0096*2 
0098*1 



0099*2 



27998365 T OlOO*l 



• t 



*~1« 



MIC*FiD*Ht£L#0,0#QPNMESS); 
EKPJ % or FlNDThi^TAPE 



BCOUEAN SUBROUTINE ENDOFREEL^ 

HrGiN 



27998370 j 
27999^90 T 



27998395 T 
27998400 T 



OlOOIl 
OlO^M 



010610 
0l06»0 
QlQftTO 



BLASTUCU)^ 
IF PCWAlTjOCLAB INX P 120540000000# e20000a0»U ). DUP )*P20 THEN 
BFGIN % Par on ending LABEHTEST FOR LAST FILE ON TAPECEOF) 



27998a 10 T 
27998415 T 
27998^20 T 



010610 
0l06«3 
Ql09t2 



End; 



LABC43»»C*PCDUP))&(WAlTIO(SPACER»?^OiiU)«#40)C«7l47lU; 
P<WAITI0C5&«^3400[CTF]»*377,U)*0EL); 



27998425 T 
27998430 t 
i>790fl43'^ T 



oiioio 

011412 
Qnft»2 



10 

11 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
^3 
24 
26 

27 
28 
29 

to 

31 ~ 

32 

33 

34 

35 



SET OMIT = N0T(B6500l0A0) 
NTl»»P; 

IF D SE n , Th&N ab o rt ; 



279984A0 T 
27998470 T 
2799847'} T 



011612 
0ll6»2 

on7in 



IF ((NOT B6500) AND NFLA(S (LAB [43 ) 
SET OMIT » NQT(B6500lUAD) 
THEN BEGIN - 



AND NTl/«>40) 



27998480 T 
27998485 T 
27998495 T 



012010 
0122*0 
Ol22>0 



STQPTlMlNG(5'l023)i3l 
SETN0T1NUSE(U*0); 
RFEL«-REFL4l; 



27998500 T 
27998505 T 
2 7998 ') 1Q T 



0l23«0 
124 I 
0U5.»iL 



$ SET OMIT 9 



NOT(B6500LOAD) 
FIOl»LA8C23; 
F TNDThE TAPEi 



27998515 T 
27998540 T 
2799as45 T 



012611 
012611 

JLUli 



t- 



ENUOFRtEL«-TRUE; 
END ELSE ENDOFREEL*FALiJ£i 
XjUli L QF SU BROUT I N E ENDO FR FEL 



27998550 T Oi28«0 
27998555 T Ol28»2 
27998560 T Q-l-iS-t^- 



X***********«*********«**4r*iit********«************ *********** 

SUBROUTINE SPAClTjj; 

BEGIN ^ : . 



27998570 T 
^7998575 T 



013213 
013213 
2799ftSBn T 01 33 to 



BACKS WHILE WAI T I U( SPACER* MM# U)Xe«0 00 
BEGIN 

IF PSEQ THEN ABQRTi 



27998585 j 
27998590 T 
27998-^95 y 



013310 
0l35»3 
01 35 « 3 



IF STOPJOB«PlHIX THEN STOPMcoJi 
END* 

tF endqfreel and not spacitsw then go back; 



27998600 T 
27998605 T 
2 7 99 661 T 



0l39»0 
014110 
0l4ir0 



IF SpAClTSW THEN Gq TQ BACJ XBRANCH Tq LABELCHECk £LSE EXIT 

End; 

X******************************************************** 



BOOLEAN SUBRQUTI NE NOTLOAOlNGFRDMREELi^ ^ ^~^ 

BfGiN xsKiP Last port ion of file from previous fieel 



27998615 T 
27998620 T 
27998625 T 



014610 
0l47»2 
0l47»3 



40 

41 

42 

43 

44 

45 

46 

47 

U 

49' 

50 

61 f 

52 



if labelcheck then p(0j else 

if (nflag(lab[2]) eqv '♦fileooo") « not then 
Begin ReeliStart^falSe^ P(1) end else pco); 

dingfromreelM'P^ 

********* ***************************************** 

W^MSCw*STF); RCHil=RCW&P(XCH)CCTC]; 



27998630 T 
27998635 T 
27998640 f 



Ol«7«3 
014810 
014810 



279986^5 T 
27998650 j 
27996655 T 



Ol49«0 
0150«3 
0l53»l 



NOTLOA 

eno; 

JU**** 



27998660 T 
27998665 T 
27998730 T 



015811 
015812 
Ol58»3 



P(Z#RC 

gc To swiTtp3; 

CASEQt 



279987^*0 T 
27998750 T 
27998760 T 



0l58«3 
0161J2 
016313 



ttm fM fSf . A.CC ( IffilpiitiS'l 38i.i0 1'f 



S SET OMIT « N0T(B6500lQAD) ^ .^-..-^ ^^- 

LATEST««COMMON,C'»»n^ 

COMMON «• IF COMMON. t9t6j;<0 THEN ^COMMON* [9» 6 ] OR M ELSE 



27998770 T 
2799«780 T 
279987?0 T 



0i63»3 
016712 
Ol08<3 



M 
54 

55 
56 






27998809 j 

27998815 T 
27998820 T 



0i70»2 

017012 
0171 « 3 



tmuMMe. 



2:7:9|liiPiili 

•#7,fpitit*2p5 






geTaSegment; 



27998860 T 018210 



10 

11 

12 



15 
16 
17 
IB 



19 
20 
21 



24 

25 .^ 



26 

28 
29 



30 

31, 
32; 
33 j 



34 
35 



36 

37' 



40 

41 
42 



•3 



46 



48 



a 



56 /; 



STRtAM(MIDS3MiDl5S[l],B»sPRTtPlMIX»33); 

BFGIN 0Slsl6 LlT"ODlRCTRYODiaK ".iDSt»2b LIT '<0»*;S H al^OC 



UMlTNQi«StQl4Cgl6n 



chr;dsi»8 lit"ofileooo'';osi«»24 iit"©"; 



mid; 



LAB«=CMCSpACE(15)3 3&l5Ce«388l0 3; 

MlD«»Stl]; 

F i n*»"FTLFQOQ"/ 



REELlSTA«T*TauE/ CHKLBLHRUEi 
TRYAGNt FINDTHETAPE) 
t SET OMTT « NlQTfB6500LOAQ3 



IF FIDXLABL23 OR REtt^l THEN 

IF NOT NOTlQADINGFROMREELI ThEN 
BEGIN STR£AMfA»CTINUCU3J.T4.T4.SPACE:nQ)^; 



BEGIN si*a;si*-si + 5;os«'LIT'','»;ds*3chr; 

0S*'20 LIT" NOT A LIBRARY TAPE"; 
ns*LTT"»»«j 



end; 
spouTCT); 

REELt. 11. 



stTNOTiNusEcu* n; 



♦^T0»LA8Cii; 



moi 



SQ TO TRVAQNI 



SKlPDlRJ*TRUt; 

Xjs[M[TJsSPACE(l0 2a)]]&l023Cb»38»lOJ/ 

IF NOT B6500 TH£N y ID4-LABC 1 ] > 



STARTIMINGC0M8); 
P(WAITI8C( 
SET OMIT a N0TC865QdL0AD) 



X)&P54U0[CTF]*0/U)'0EL); 
SET OMIT * NaT(B6b00LUA0) 
IF DSED THEN ABQHT; 



IF CN:aMlT-UJ LSS 900 THEN 

BEGIN X GET IJIjO OF EXTRA MEMORY SPACE 

X«*CMCSPACE(N>3UNC8>38U0 3; 



IF NOT NEEDED 



MOVECN^T^XJ; 
FQRGETSPACE(T); 



e\d; 



riNBFlLENAMESl 

FOR I«=2 STEP 2 UNTIL 26 DO 
BEGIN 

xToT 



jtsiF XtO]»»'lH AND NOT REELISTART 
IF (FN*Sci3)aPia THEN GO LOAQEM; 
SN«-S[l + u;w*i; 



THEN XCn-2 ELSE -2; 



WHILE Xt<J«>W-^2]^9l4 00 X 
IF FN<0 OR-<FN EOV 
IF SN<0 OH iSH EQV 



MARK FitES TO BE 
XCJ3)»N0T THEN 
Xfa+t3)»N0T THEN 



LOADED 

W*XU3*-XCJ3; 



IF W GTR 

End; 

If sc2a3-pu 



liiiiii 



THEN LBMESS(FN*SN*-1*17*TINUCU3/SP00TUNIT*1); 
THEN 60 LQADEM; ^^ 



w<.j«-2; 

WHILE XtJ«-J*23>?l4 
IF W<0 THEN abort; 



DO IF xCj3Vti«i3 Then h«-j; 



»;iiiis«iiiii«iiii 



I L D Q 



IF XCw3.tltl3 THEN 



27998870 
27998fl80 



018310 
0I8 5V2 



27990890 
27998900 
2 7 99 B91Q 



27998920 
27998930 
?799fl9an 



©191 1 2 
019612 
Q 19613 



279989S0 
27998960 
27998069 



0l98«l 

0202*0 
0203«0 



020313 
0207M 
QgOftlQ 



27998990 
27999000 
27999010 



27999020 
27999030 



0208(0 
021010 

Q212«l 



27999050 
27999060 
27999070 



021610 
021711 

Q2?nin 



27999080 
27999090 
27999^00 



0220»2 
0220 I 3 
Q222»2 



022311 
0225»0 
0225»0 



27999110 
27999^20 
27999130 



0226J0 
0227»3 
Q23g»0 



27999140 
27999l50 



0234»0 
023510 
0235 It 



27999180 T 
27999199 t 
27999?B0 T 



0235 »1 
0237«l 
237M 



27999290 
27999300 
27999310 



0240*0 
024212 

0243»0 



27999320 
27999330 

279993^9 



27999350 
27999360 
27999 37^ 



0246>3 
02^8«2 

024 9 »1 



2799938O 
27999390 
27999400 



024911 
024911 
02^210 



27999410 
27999420 
27999430 



0252»0 
0257«1 
0259*1 



27999440 
27999470 
27999480 



0261»2 
0264»0 
026613 



27999490 
27999500 
27999510 



0273«3 
02 7713 
O28OIO 



27999520 
27999530 
2799?54p 



028112 
0883*0 

_oaiii2. 



27999560 
27999570 



0283»2 

0285»0 

029 Oh 



029310 
029413 
0?95t? 



27999580 T 0297«0 



58 ' 
57 



• t 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 



20 
21 



22 
23 
24 

25'J: 

28 
29 

30 

31 '^ 

12 

» 

34 

3B 

36 

37 ~ 

38 



40 
41 
(2 
»3" 



«7 
«S 
49 
50 



51 
52 
53 
S4 



55 

56 



'■i::&^M^;MM& 



If DIHECTORYSEAHChCxtkv],X[w+l]*i))XO 
WIsO ELSE X[W3»«0; 



THEN XCW3JSS114 ELSE 



chklbl*false; 

IF g40»WAnT0(LAB 



27999590 

279996QQ 



INiX gl2O54000Q0O0#e40#U) THFN 



if b6500 then pcwaitioclab inx el205'*0000000* 0* u )*del j else 
j*endufreel; 

If not J THENit CHECK ENDING LAHFL IF NOT LAST FILE PR B6500i , QaD 



27999610 
27»99620 
27999A30 



0298«0 
0303*0 



0308»1 
031010 
Q31 Q< 3 



IF CCNOT 86500) AND (NFL AGCL ABC 1 3 )EOV MIO)^NOT OR 
(NFLAGaABtan EOV '♦FH.EOOO")^NOT 0) 
t SFT OMtT » N0TfB6500L0An) 



2 79996*0 
27999650 
27999660 



Then begin stream(a»s[Tinu[U]],j«=jjsSpace(10)); 

BEGIN SI ♦ a; SI 4. SI+5; DS «• LIT","; OS * 3 CHR; 
pS «• 29 LIT " BAO Fll £000 P N LIBRARY T A EltJlL 



27999670 
27999680 
279996 99 



0313n 

0316«3 
0320t? 



032110 
032(»»i 

Q32'»» H 



ENOJ 

EKo; 

CHKLBL»TRUEJ 



SPOUT (J); aburt; 



27999720 
27*99730 
27999740 



0325«3 
O33OU 
03 3 . 1»? 



J«.IF XCOlsPlU AND NOT REELI^TaRT THEN X[l3 ELSe 0; 
H I s CM t SPACE (1 1^6XB6500 ) 3 3 &36 1 8 « 38 « lO 3; 
AR0IW««[N[SPACEC2n3&2[e»3e» ^0 3; 



27999760 
27999790 
27999flOQ 



0335»2 
0338»0 
03 36»0 



AROM(:O3t*CHcSpACEC9O2}3U9OU0U8UO3; 
AR0«ii3i»AR0»*CO34SPACE(902)£CTC3i 
InOtsrMtSPACEt2)3l*gCBt38ll0 3J 



27 999810 

27999820 
27999fl30 



033913 

0344«1 
0349« 



$ SET OMIT * NQT(B6500LUAD) 

GO TO exit; 
CASEn findthetapej go td exit; 



27999840 
27999850 
27999fl60 



O352I3 
03S7»0 
3»0» ? 



CA8E2» ABORT; 

exit J P(0*RDS#0#XCH#P&P[CTF3*STr); 
END Of LiBAftYLQAOSPEClALCASE; 



27999879 
279999OO 
27999gl0 



0364«1 
0364» 1 
0366»0 



27999920 
27999930 
279^9940 



0367 « 2 
036910 
037110 



PROCEDURE libraryload; 



BEGIN REAL 
REAL 



C0MH0H»-4; 

ALPHA» EAOO* FI0> FN^ 
1» iCi 4± K» 



START OF REt 



SIZE* 0372 WORDS 
28000000 T 0000»0 
segment; DiSk address , 0066 4 



LAST* 

Nl» 

SEG' 



LOADING^ 
N2* 



MID' 

SN* 



N* 

REEL* 

T# 



28001100 
28001200 
28 013 00 



000010 
000010 
OQOOIO 



TYPE* 

y; 

BOOLEAN 



BB# 



UMTNO* W* 
66500» LATEST* 



2800U00 
28001500 
28001600 



0000«0 
OOOO'O 
OOOO'O 



ARRAY 



togs; 

ARQKC*]* 
LABC*3# 



28001700 
28001800 
28001900 



OOOOJO 
OOOOIO 
000010. 



HC*3* 
LflLt*3, 



xc*3; 

SET OMIT • NQT(e6500l,0A0) 
DEFINE 0Sg&»(TERMix,CCF3»PlMIX)«* 



I0DC*3» 
SC*3* 



28002000 
28002100 
28002200 



0000 »0 
OOOOIO 
OQOOIO 



SPOUTUNlTsQ** 

SPaCER»5&P1400CCTF3#* 

HMa>37700040#* 



20002300 
28002400 
28006000 



OOOOIO 
OOOOIO 
OOOOIO 






2800*100 
28007000 
28008000 



OOOOIO 
OOOOIO 
OOOOIO 



DEFINE SKIPDlRsT0GS.C47ll 3* # HEELlST ART.T OGS , C 46| 1 3» * 

SPAClTSW*T0GS.C45lll»'CHKLBL»TaGS.t44ll3#; 
DEFINE INITiAlSETup - LIBRARY lQaDSPECI ALCASE( )»> 



28009000 
280tO0O0 



oooore 
ooooto 

0000 to 



DEFINE NQTLaADEO(NaTLOADEDn» 



28011050 
28011060 

IT— ; . 1 ^ .1 i ; iii ^ ^ n^ iii Tt i yy ii| | iiiii 1 



OOOOIO 
OOOOIO 
OOOOIO 






OOOOIO 
0000 JO 



46 

46 

47 < 

48 

49 

50l 

51 

52 

53 ( 

54 

55 

56 < 

57 



28013000 T OOOOIO 



9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
'9 

21 



22 
23 
24 

26 i. 



28 
27 i 
28 
29 

30 

31 ~ 

32 ! 
33 



34 

3S 



36 

37" 



38 



40 
41 
42 



43 
44 
45 

«« 

47 
•8 

19 
SO 

51 



52 
S3 

S4 

55 J, 
X i 

m 



BEGIN NT3»sN0TL0ADE.Di; NOLGADMESS; END#; 
SURKQUTINF NOLQAQMESSj 



LBMESSCABS(Xtj3 5*XCJ+U#-lVNT3#TrNUCU3*SPOuTUNIT#U* 

%i,** ************ I'll *■* #:»'* *'*"* #'«'** **** *'ii^ *.*.* *'"*'«'«'* *'* ************** 
BnflLEAN SUBRQUTIWE LABELCHECK; 



BEGIN 
TRYNEXT! 

TF WAITIOCLAB 



INX e'1205^0000000*P/<Q&^20i;cTF3*U)ge»Q ANn 



NOT B6500 THEN X MlSSlWa tA0EL 

BEGIN STREAM(AJ«1» B t« [LAB [23 3 jl 
BEGIN an^tOC a; SIIaSl*5l 



* FAKE IT. 



Di;3Di+5; DS:=3 add; 

end; 
P(WAnio(e3aoooooob*(i»377»u)*DEL); 



SET OMIT • N0TCB65OOLOA0J 

IF fAO/WAlTlOCSPA(>llH*f40«y3 THEN 



PCWAlTI0(Pa7A000U005*0,U)*DEl3; 
IF DSED THEN ABOHT; 
IF (NOT B65U0 AND ( ( NFuAGC lABCO 3 ) » [6 » 42 3 EqV "lABEl 



")XNUT 



OR (NFL»GCtAB[23),t6»2<»3 ECV "F ILE" J^NOT 0)> 
SET OMIT a NOT(065OOLQAO) 
THEN BEGIN 



STSEAMCA*CTlNUCU3 3'T*T<-GETSpACEClO#0*0) + 2); 
BEGIN liI«-A;SI«-SI + 5;0S«-l.IT".'';DS*-3 chr; 

Da«.21 LIT" NCT A LIRRARY TaPE«-'S 



.EM. 



end; 

SPOUTCT); 
ELSE T»0; 



T*U 



IF TaO AND NOT B6500 THEN 
IF NFLAG(LABt2]),t30:i83»0 

BEGIN 



AND SkIHDIR then 



SPACITSW*!/ 

GO TO back; 



chklbl«-false; 

XBRANCH INTU SPAClTt 



BACt 



SPACITSW«-0; CHKLBL«-TRUt; 
GO TO TftYNEXT; 

end; 



LMELCHECK*T; 



end; 

Jf * ■* '*, * #,;* *,*■ ♦ *;:«;» lfc*;*.t-»*.» *♦»*;*-* »*»*;*:»^^ 



BOOLEAN SUBROUTINE ENDOFREELi 
BEGIN 

BLASTJ(U); 



IF PCWAITI0CLA8 INX ?l205a000O00O*P2OO0040<U ) »DuP )««>20 THEN 

BEGIN X PAR ON ENqING LaBEL'TeST FOR LaST FILE oN TaPE(EOF) 

LA8[4 3f€*P(DUP)>4CWAlTl0(SPACER*g4 0^U)»pafl)C47t47tn; 



P(WAlTlO(5&«'3400CCTF3»?377,U)*DEl,); 

end; 

SFT OMtT a NOTtB6bOOL0AD) 



IF B650« THEN PCOEL) ELSE NTII»P; 
JF OSEO THEN abort; 
ir CCNQT B6S00) AND NFLAfiCLABUn ANO MTl^g40l 



SET OMIT s NOT(B6SOOLOAD) 

Then begin 

StOPTIMINGC5*X023);X 



S SET OMiT » 






FIOISLABC23; 



280H000 
2aQl50QQ 



oooo«o 



28016000 T 
28061000 T 
2fln62oO n T 



000110 
00051 1 

oonsit 



28063000 
28063100 
2a063aQQ 



0Q06«0 
0006^0 
O Q06 « Q 



28063400 
28063500 
2B063ftOO 



000910 
0009 » 3 

1 1 fa 



28063700 
28063800 
28063900 



0012»0 
0012«2 
00l2«3 



28064000 

280640'* 
2flQ65nOQ 



28065610 
28066000 
28067000 



001 All 

ooifttt 

001 6*1 



0016«2 
0018»2 
0021 »0 



28067 lOO T 
28068999 T 
2R0700 0Q T 



0024 to 
0O2r»2 
Q02 7i 2 



2S0710O0 
28072000 
28 073000 



0028»1 
003l»2 
0032' 3 



28074000 
28075000 
2 8076090 



0035 f 3 
0036 »0 
00 3713 



28076i00 T 
28076H0 T 

28076200 T 



28076300 
28076400 
28076500 



0043»3 
0045«1 

004fl«2 



004910 
0052«2 
0053»0 



28076600 
28076750 
28076800 



005310 
0056'2 
005710 



28077000 
28078000 
26079000 



005710 
005712 
0Q57tt 



28095000 
28096000 
2fj0970Q0 



0057«3 
0058«0 
00 5fl«0 



28098000 

28098010 
2 8 098 20 



0058»3 
OO61I2 
0Q6gtft 



28098030 
28098040 
2 80 9 8 0,9 y 



2B098|00 
28099000 
Zflt O l Ol O 



0066«2 
0068»2 
0068! 2 



006812 
0073 » 2 
00 76 to 



28101099 
28102000 
28l03000 



0078«0 
0078»0 
007910 






0080 to 
001 MO 

'" 'm 



28106000 T OO82I1 



• • 



findthltape; 
£n o q fhe: e l«-tr uu 



END El.SE ENOOFR£EL«-FAUSt; 
EKOi X OF SUBROUTINE ENDOFREEL 



28107000 
2B1080QQ. 
28109000 



0083M 
008,01 n 



Xiiii********************* 



*****miir*1i-k*1i*1,**1i1tiiifti1iic1t**1,iH,***1,*1l 



28U0000 T 
PfltllOOO T 



008413 
QO05t2 



BOOLEAN SUBROUTINE check; 

Begin 

if {y»°ioo[w]),[27>2]/0 then % parity error ok eof 



28112000 T 
28113000 T 
281 H OOP T 



0085J3 
0086«0 
Q . Q86 ( , 



SCQIN 






AND VtC27»ia THEN » END OF REEl 



28115000 T 
28116000 T 

2811 7000 T 



0088^0 
0088«2 
0Q 90I1 



IF NOT ENDOFREEL THEN 
BEGIN 

PCWAlTlQ<P4740Q00020'P377»U)^DEL); 



28118000 T 
28 11 9000 T 
28120000 T 



0090»3 
009211 
0092*3 



13 

14 
15 






28121000 T 009411 
28121500 T 0096»0 
2BLaiA00 T 0096 » 3 



end; 

IF WAlTluCIODtW] 

GO parerh; 



INX P16040540000000,Sm*U)^0 ThEN 



IF IOOn*W3,C7»i3 THEN % ANOTHER TAPE 10 In PROGRESS 
B£SIN 

IF WAlTIO(InDCl«'WJ#SM#U);tO THEN 6n PARERRj 



28122Q00 T 0099«0 
28123000 T 0099 «0 
28124000 T OlOt »? 



19 
20 
21 



28J25000 T OlOatO 
28126000 T 010312 
2 6127 000 T 01 04*0 



22 
23 
24 
26 
26 
27 
28 
29 
10 



iOD[i-w]s=(*P(DuP)) OR iomask; 



end; 
y»«q ; 



28128000 T 
28129000 T 
2fl|?9iQQ T 



0107»0 
010912 
0l09«2 



PARERS* 



END ELSE % Parity error 

BfeGiN 

NOTLQADEDnF Y.r7tl3 THEN g? ELSF 35)1 



28130000 T 
28131000 T 
28132000 T 



OllOM 
OllO«l 
0U3*fl 



(J 
O 



end; 

END FLS£ * 



Y«»i; 

CHECK RFrn.RQ SIZE 



28135000 T 
28136000 T 
26137000 T 



0117«0 
0ll7t3 
Q\17»3 



31 
32 
33 
34 
36 
36 
37 
38 
39 
40 
41 
42 
43 



IF Y,C7tl3 THEN 
BEGIN 
IF CY<w((MCARQV<CW3 INX NOT 03/'9Q0*B65n0) AND N<Nl)) THEN 



28138000 T 
28139000 T 
28140nQ0 T 



0117»3 
0ll9»0 
QllQ»2 



E XT» 



N0TLOa0ED(39); 

END Else yj*o; 

t^HECK «• y; 



28141000 T 
28143000 T 
28144000 T 



0l24»0 
0126«0 
0127«1 



End; % of check 

X*********************** ******** *********#******ik***KI* ****** 

S US R OMTIN E, l Of __^^ 



26145Q00 T 
28146000 T 
2 g U7Q00 T 



012713 
0128*0 
0128)0 



BEGIN 



IF IC THEN 
BEGIN 



28148000 T 
28149000 T 
28150000 T 



0128*0 
0128*0 
0128*1 



IO«E<KJESTC*(lODCKJI»UROWtW3 INX ?560000000) ~ 

«C5l2£+B«500)C8*3e»lO3»TlNUCUn3l3l5 3)OR P2ol7700000* 
I00EW3»CI00CW3UUC1;»<42*63)J ' 



28151000 T 
28152000 T 
28153000 T 



0128*3 
Ol3o»l 
013<K2 



N»»N+30; 
END ELSE 

MMJtL 



m^§mmmfiiwxmmmBmm$mwmmxm>wm^w^i tt«LAST-oti) 



28154000 T 
28155000 T 
28t 56000 X 



0136*3 
Ol38*0 
1 3 8*0 



19 
SO 



SI 

52 

a 

54 



■aiiiiiift:;!:; 



•liiiio. 



$ SET OMIT » NOT(STATISTICS) 

end; 

EKD; % BF 10 



28159099 T 

2816O0O0 T 
28161000 



mi 



0150*2 

0150*2 
1 50 * g 



55 

57 



'7' 






»*"■' i.i::±J.::y^Jijj!.',^iiliiJ'::/ff'...'"if! ttif.: A , . ■'.',' 



.:m f.':\.... f»fev,!t ». 






-fffpF 



011140 



-!? 



SIZE»«900; 



28164500 T 0l5l«0 



rf 

2 
3 
4 

S 



S SET 



M Ja 

OMIT 



NOT BobOOLQAD 



iASTl«<il«HCK+93)+lV4*U 
TODtMt*N2i»Wl«NI»o; 



28165000 T 



015113 
Ol?l«3 



28166000 T 
28166500 T 
281 67000 T 



015113 
0i52«3 
1 5 51 ^ 



T< 



ICJ»1> 

la; % FIRE up FIRST 

W ♦•i;* SWAP BUFFERS 



TAPE. READ 



26168000 T 
28169000 T 
2 61 70000 T 



0l58«2 
0l59«l 

016Q«Q 



IF N<N1 THENX CANNOT 00 ROW WITH ONE READ 
LOOP! lo; 
WATE t CQMPLEXSLEEPC(C(IQDC03 UR 100113) AND IQMASKai'Oy OR nSCOW 



28171000 T 
28172000 T 
2fii73n00 T 



0l60t3 
0l6l«2 
Q l 6 3»0 



10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37' 

38 

39 

40 

41 

42 

ts" 

44 

45 
«6 
47 
48 



205824A0 ACCIDENTAL ENTRY AT PlMIX 

IF DSED THEN ABORT; 
Nl2^N2-H5;!t COUNT NtiMI^ER OF OPERATIONS COMPl ETEH 



28174000 T 
281 75000 T 



017113 
Ol74l l 



W*IF (lOotOJ AND 100 

CdODtl] AND 10 

TF NQTfY*CH £ CK) TH EN 



£13 aNo I0MaSK3^0 THEN 1-W ElS£ 

MASK)j<0); 

% NO ITRRQRS WpRr DfTfTCTtrP 



28176000 T 
28177000 t 
28178000 t 



0l75»2 
0l79»2 
QlBlt2 



8EGIN* KEEP GOING 

lC*l-lUD[>s3.t7: 

IF N<M Then go 



13;* SHAP UNITS 

TO i.nop;^ ROW .IS not finished 



28179000 T 
28180000 T 
26181000 T 



0i83»3 
0l84«l 
Qlfl6« 



4- 



IF N2+302N THEN 
IF I0QCW3,t24»l 
IF N2<N THEN BE 



SUE«-t; % CHANGE SIZE FOR LAST RECORD 
3 THEN GO TO LOOP>* MORE WRITING Tfl QU 
GIN I0D[W3«'0; GO TO WAtE ENOf* 



28182000 T 
28183000 T 

a B ta^oo o T 



18712 
0l90»0 
019 111 



end; 



loaoarowisy; 

% OF unAD AHQ W 



X*****************«***4t*tlr 



28185000 T 
28186000 T 



0l94«3 
019413 



2 818700 T 0l95 » l 



A*********'** *'*"«"* **'«'«.** *********.**** 



SUBROUTINE 



spacit;* 



28188000 T 
28189000 T 
26190000 T 



0l95»2 
0l95»2 
Q4 9 6t O 



BACK» while wAITIU(SPACEH» 

begin 
if dsed then ab 



MM#U}Xi>40 DO 



28191000 T 
28192000 T 
28193000 T 



0l96«0 
0i98»3 
0l98 > 3 



if st0pjdb*p1mix then stopm{0)i 
end; 

IF ENdQfBEEL and not SPaCITSW THEN GO BACK; 



IF spacItsw then GQ 
end; % spacit 



TO BAC; XBRANCH TO LABELCHECK tLsE Ex^ff 



X****** ******************* iili****** Hi, **1i*1t**iii,1,iHrii1,1i^i,1i1H,1H,1i* 



28J94000 T 
28195000 T 
28196000 T 



020l«l 
0203(1 
2 5*0 



28196100 T 
28197000 T 
28196000 T 



0208(0 
0209 « 2 
Q209>3 



iNlTlALSETUPi 

DC 

flEfilN 



28200000 T 
28255000 T 
28256000 T 



0209*3 

02 19 « 3 
0219 t 3 



IF LABELCHECK THEN A 
IF WAITI0((*CAH0WC03 
GO TO H A DH£AD E b; * R 



BQHT; 

3)&«?5400CCTF3#?20O0O00*U)s*«20 THEN 
D hUP C KI N U FUR PA R ITY 



28257000 T 
28258000 T 
28258050 T 



0219?3 
O222M 
Q??'i»0 



M0vEC30+5»e65OO*AR0W£03»tCF3+8650O*H); 
S SET QMiT « H0T(«6500uQA0) 
IF DSED THEN ABORT; 



28258100 T 
28258149 T 
2B2S9000 T 



022512 
022912 
022912 



T»*-i; 

IF (NOT B6500) AND (M[AK0Wt03 INX NOT O3 NEQ 30) THEN 
GO TO BADHEApER ELSE _„^_^___„______^_^_____ 



28259900 T 
28860000 T 
288600.10 T 



0232(0 
0233<0 
0236 «.l 



50 ' 

51 

52 

53 

S4 

55 j' 

56 v.! 






ELSE SI(sSI+8)l a(btally; 



26260020 t 
28260030 T 
282600#0 T 



OlJdIl 

023710 
0238*2 



IF P 



end; 

THEN 



P(l) ELSE 



28260050 T 
28260060 T 
2B260Q70 T 



0240(1 
0241(1 
0241(2 






iliiiiisiililliilSlg 



28260080 t 
28260090 T 
28260100 T 



02<I2*1 
02484 3 
0250*0 



IP 



BEGIN 



28260110 T 025l(0 



• t 



I'sl+CNT2«aChtW] 
IF w GEQ NTl *10 



17 
18 



19 
20 



22 
23 



24 



27 I 
28 



29 



31 

32 

33 

34 

36 

36 

37' 

38 



40 
41 
42 



43 



46 



48 



49 

50 



6' 
52 



55 

S6 



end; 

If C(«»3l) OR (I QTR 

Then pcd £lse Pto); 



NEQ 0)); 
THEN IF NT2 



THEN h:s3i; 



NTIJ ORC(J NEQ 0) AND (HC8]«0))) 



baoheaoehj 



END END/ 
IF P THEN 
BEGIN 



NOTL0AUED{43); 
HC21 * LABC23J 



spacit; 

IF HC2]^UABt2] 
<a Q TQ t^N HLO PP ; 



THEN ABDRT; % FOR WE ARE LOST 



END ELS£ 

IF XtJ].tHn THEN 

IF (XCJ].[2U3 NEQ 



OH XEj^n.CUS] NEQ OR ABS( xC J3 >»eU4 i 



THEN N0TL0ADED{37) ELSE 
IF (T*DlRECT0RYSEARCH(XtjKC3-t-4x(TYpE = ADDV))ClU5J3]*XCj+l J' 
a*(TYPE = ADDV))) GEO ? THFN ______^ 



IF T«2 THEN 

N0TL0ADE0C25) 
BEGIN 



ELSE 



lqadingj=9; 

IF dsed then abort> 

IF cI'stypE nkj ai;uv 



AND M[T*2] NEQ AND 



(CUSeRCDOeCPIWIX] e;QV ABS(MCP)) N£Q not 0) AND 
((UiJERcODEtPlMlXj EQV ABS{mCT + 2])) nEQ NOT 0)) QR 
(LATEST AND MfT*33.f30tia3 GTR Hr33.C30ll83? THEN 



BEGIN 

HEADERUNLGCK(ABS(XtJ])*X[J+l]*T); 
T>a-i; 



E ND 



NQTL0AUEDC64- 
ENOJ 
EU 9E 



'lx23Ji 



IF T=l THEN % IT WAS "IF-EO" 
BEGIN 
T«=-l ^ 



N0Tl0ADED(45); 
ENe ELSE IF DSED THEN ABORt; 
tF T »0 OR (T GEO 6a AND TYp£ NEQ AODV) THEN 



BEGIN 



IF T GEO 6H THEN 

IF MI:T-»8]XH[83 THEN 



BEGIN 



T<-o; 
end; 

IF T,»0 



FORGETSPACECTJ; 
PCDlRECTORYS£ARcH(XCJ3>XCJ-ft3#6)»OELj; 



THEN 



BEGIN 






M[T+«]*-0&SYSN0[4«46:2]&H2U7tn; 
END ELSE 
EA00«-T,C16«153; 

F0« WI».MC93,t43t53*ia STgP % UNTIL 29 00 HtW3»«0; 



2V DU LBLC 



BLC7 
¥7Tf 



^ 



28260120 
262'^Q1,3Q 



02tJlJ0 
02 531 2 



26260140 
28260150 
2fl260i6Q 



02S6«3 
0259JO 

0?6?«^ 



28260180 
28260i9C 
282602"" 



28260250 
28260300 
2ft26Q5QQ 



0264»2 
0264»2 
?64«2 . 



T 
T 
X- 



0265«0 
026510 
0267«n 



26860600 
28860700 
2826.060U 



28260900 
28261000 
28261100 



0268 » 2 
O2''0«0 
2 72»2 



0273*0 
027310 
027413 



28261110 
28262000 

28263000 



28264000 
28265000 
26267000 



02791 3 
0283«0 

02H7« -^ 



26268000 
2826900C 
2Bg69-i 00 



029011 
029112 
0294i0 



28270000 
28271000 
28272000 



029412 
0295»1 
0297 M _ 



0300 1 3 
0303*3 
3 07* T^ 



28273000 
28274000 
28275000 



2627600C 
28278000 
2B279000 



03ll«3 
0312«1 
0315*1 



28280000 
28261000 
2628 2 ,00 



031611 
031910 
319*0 



28283000 
28265000 
26286000 



0319»0 
0320«1 
0320t^ 



032l«3 
032410 
0327*0 



28287000 
28268000 
28289000 



28290000 
2 82 9 J 000 
28292000 



032913 
0330«l 
033lt0 



T 
T 
T 



<i333*3 

033411 
0333*0 



26293000 
28294000 
28295000 



28296000 
26297000 

28t9aooo 



0337»2 
0a38«l 
0338«1 



0339*0 
033912 

034113 



26299000 

28302000 T 
28303000 T 
28304000 t 

aasosooo t 



034313 

34610 
0346>0 



0349*3 
035210 
0396*3 



283060C0 T 0363»i 



9 

10 
11 



56 
57 



w 






CW«-W*1) 1,EQ H[93,[43V^3 pu 



28306500 T 
2a3Q7nQQ T 



0369;2 
0370 U.. 



O KI 



IF Ht9+W]X0 THEN 
IF <HC9*-w3l*LBLt9*W3) LEQ THEN 
IFfHC^*W1l»PETUSFRntSKfHtai nR 



M»COMMnN?) LSS 1 THE N 



2830aoOO J 
28309000 T 



0373»l 
037«I3 
Q37flti 



wy: 



BLGIN 

I«-SPACE(10); 

STREAM(J«-JARRUW[PlMlX3*P^MlX^H»HCB]*M»xCJJ»F»Xi:J-nr 



2831 
2631 

_2ai 



1000 T 
1200 T 
10 T 



Ui 



0382«2 
0383»0 
365' 1 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27ft 

28 

29 

30 

31 ' 

32 

33 

34 

35 

3S 

37" 

38 

39 

40 

41 

42 

43 ~ 



I ) i 

BEGIN 0S«-14 tlT "iNO USER OISKI"; SUj;SI»SI*U 
Di»»7CHR;DS»LlT'*/«jSl»SUUDS»7CHRf __^ 



2831 
2831 
88 31 



1220 T 
1230 T 
1 2^0 T 



0388»l 
038BI3 



D5«.LIT"5";SI«-1,0C PlMIXiDS«'2DEC;j«-DnOI«-DI-2;DS*FlLi,j 
OUJiDS^LlT^CiSi^tac M;Sl«-Sl + i;DS*''CHR'Sl«.Si + ii 

d^»lit'*/";os»7chr;ds»2lit")-";si«-ldc h;ds»8 oec/ 



d^«-lit'*/";os»7chr;ds»2lit")-";si«-l[] 

0i>*7LIT" 5EGS,«.";Dl«.0I-l5;0S*7Fri.l-> 

end; 

SPQUTd); 



2831 
2831 
2631 



1250 T 
1260 T 
1270 T 



039212 
0394> 1 
0396»0 



281 1 
2831 
2831 



1280 T 
1290 T 
n OO T 



039713 
039912 
039911 



REPI.Y[P1MIX3 Js •(II8VIF&VWYC36:42«6U 

V0FC30:a2>6 3&V0KC24t42t6]); 
CQMPLEXSUEE. P(R£ P |,Y[P 1MIXJ^0 QR pSpU 



2831 
28 31 
2631 



UOO T 
UIO T 
1*3 00 T 



0/<00«2 
O4O2U 
0405»? 



26173000 



ACCIOENTAt ENTRY AT 5 



OR PRT[P1MIX,8253«5); 
IF NOT WHYSLEEPCI) THEN GO TO WYJ 



28111600 T 040512 
28 3 1170 T 0414M 



IF REPUY[Pl^<IX3sV0K THEN GO TO QK; 

IF REPLYtPlMlX3sV0F THEN 

BEGIN COMMON » COMMON AND NOT H} fiO TO OK; ENDJ 



28311800 T 
28311910 T 
2fl3U92Q T 



0415«2 
0417«0 
041 fl«Q 



FOR W»»f« STEP -I UNTIL I DO 

IF HC9*W3XO THEN 
TF LBLf9*lf<3«Q THEN 



28314000 T 
28315000 T 
2fl3l 6 0Q Q T 



0420»2 

0422*0 
Q42,:il2 



F0RGETUSERDISK(Ht9+WJ#-HC83 ); 
FORGETSPACECT); 
IF DSED THEN ABORT; 



28317000 T 
28318000 T 
283 182 r 



0425»2 
0«30«2 
043K1 



IF LBLC93XO THEN 

P(0IRECT0RYSEARCH(xCJ3*XtJ*U^14),0EL); 
N0TL0ADEDC3U; 



28318600 T 
28316600 T 

28319000 T 



0(i33>3 
043413 

0437»3 



end; 



IF XCj+2Jxei4 THEN SPACIT; 
GO TO ENULQCP; 



STREAMCA*CHC13 3#0«'OATE); 

BEGIN i»i*i,uc o;di*ioc o;os«-8 OCT; 
si«-si'»4;ci«-A;os*<t chr; 



28321000 T 
28322000 T 
28323000 T 



0440<0 
044310 
0<l43«2 



128328000 T 
28329000 T 
28330000 T 



044410 
044511 
0446«0 



end; 

H[4]:«M[T+4]&ht4]L8|8j3]&0[ll»47jl3&H[4][36j36j63 
(iHC43[43«43J 13; 



28331000 T 
28332000 T 
28332100 T 



0446J3 
044710 
045,113 



<5 

46 

47 
48 






28113000 t 



■mmn 



ELSE 

BEGIN wixIF H[9] lSS l8LC93 THEN LBLC93 ElSE H[93; 
FOR W»aW*9 STEP -I UNTIL ^0 DO 



28333300 T 
28333400 T 

gajsj-soo ,T 



0458M 
0462«3 
0,467 »0 



49 

so 



61 
52 
S3 
S4 






28333600 T 
20333700 T 
26333800 T 



047l»l 
047211 
047313 



$ SET OMIT a NOT SHAREDlSK 

;diskinaitch inx o#30»eadd); 
end; 



28333890 j 
28334100 T 

26IJ42Q0 T 



047611 
0476«1 

479' 1 



55?;. 



iliililiiiiilliiiiiii^^ 



viiHiSiifta 



mmm 



IF HtK+93XO THEN X ROW IS ASSIGNED 



28337000 T 0485«1 



• • 



2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 
16 
17 



18 
19 
20 
21 
22 
23 



Z4 



27 ; 



28 

29 



iO 

31 ' 

32 

33 

34 

36 



36 
37" 



38 
39 



40 
41 
«2 
♦3* 



45 
46 
47 
48 
49 
SO 
51 



52 
53 



54 

55 



56 

B7? 



IF LOADAROW 
B£fiIN 



THEN % THERE WAS AN ERROR 



28j11600 accidental tntry at pimjx 

badloadj 



COMPLEXSteEPC(|00CO3»0 OR CiDOCOJ AND IQMASKJ^O) 
AND(IODtl3»0 OR (lOOCU AND I0MASK);<0 
} QR DiS£D>; 



BLAaiQCUJ? 



P( WAlTIOCP0o47«0O00020*e377» y ) »OEL J ; 
LOADING I "FALSE; 



IF xcJ+gJ^PH Then spacit; 

GO ENDUOUP; 
EMQ else if STOPjOBaPlHiX THEN 5TQPMcO)J 



$ Set omit » not basooload 

IF WAlTlO(SPACER#MM,U3 ^ ^40 THEN 
8EGIN N0Tl0AD£D(56?; 



BB 4- 

$ SET OMIT 5 Packets 

IF LiBMSr, 



CiO TO BAULOAO* 

end; 

pcdirect0rysearch(xcj3#xcj->-l]f 14),del)j 

TRUE; ' ~ 



X MARK That a file has been loaded 

T h en _____^_____^_^^__^ 



$ POP UMIT 



t SET OMIT « 

end; 



LBfilESJJCA8S(XtJD)#XtJ + l3# 1* 0* T iNU [U 3 # SPQU TuN jT^L jBMSq J; 
LOADING:=;FAlS(:; 



NOT B6500L0AD 
GO FALkOUT; 



IF XCJ + a]=*U THEN GO ENOLQOP ELSe 
FOR K«-l STEP 1 UNTIL H C 9] . [^3 S5 ] DO 
TF H[K.»93^0 ThfN 



BEGIN 



IF STOPJOB'PIMIX fH£N STOPMcQ); 
N:aW»»SIZE«BLOAOING»sO; 

ici*i; 

lo; % READ HEADER 

X » s 1 ; 

FOR N1«-HC83 



BEQIN X 

lb; 



OlV 30 + {{H£a3 MOO 30)i'0) »T£p •! UnTU 2 
SPACE OVER FILE 



00 



LAY! 



28339200 



CUMPLEXSLEEPCUIODCOJ OH lODCl]) AnD IOMaSK);<0 
OR DSED); 
ACCIDENTAL ENTRY AT P lMIX 



IF DSED THEN ABORT; 
«*((I(30CU ANO I0MASk);<0); 
IF lODCWla27<23«0 ThEN 



If iaO[W],C27JlJ THEN 
BEGIN 

IF NOT ENDOFREEL THEN 



END OF REEL 



$ SET OMjT « 



BEGIN 
NOT B6b00L0A0 



P(WAITl0C»ft74O0OOO20#»377>U)^0£L# 






WAlTlO(9a7/t0000020#?377#U)^OEL); 
SPACIT; 
GO to ENDLOOP; 



IF CIODLW] AND IOMASK)»0 OR 100 1 W ] . t 27 « 1 3 THEN 



28338000 

?8339Qnn 



28339100 
28339110 
?ft3^9;Dn 



0486J3 

Oqfta^O 



046812 
0488*2 
Q4fifll2 



28339500 

2ai<ioono 



28340100 
2aS4l000 



28343000 
28344000 

2B I45QQ0 



0500«l 
0500 M 



OSQltO 
050212 
0^03 it 



0505 « 3 
050910 
051H0 



28345040 
2834^100 
28345300 



0514«0 
0514»0 
0516M 



28345400 
28345500 

2 ft 34 6n 0Q 



28346100 
28346999 
28347000 



0519«0 
0521 «0 
05.21 »iL 



28347001 

28348000 
28349000 



0523«2 
0524U 
Q524»l 



0525»0 
0525»0 
0529 «J_ 



28349890 
28350000 
28351000 



28352000 
28353000 
28354000 



0530 » 2 
053012 
QS IHO 



28355000 
28356000 
26357000 



053l»0 
0532J2 
53y»? 



28358000 
28359000 
28360000 



0539 JO 
053912 
0501 »g 



28361000 
26362000 
28363000 



28364000 
28365000 



0543«3 
0544>2 
0546 * 



0546«3 

0553*0 
0553*0 
055410 

0554*0 



28366000 
28367000 
28368000 



28369000 
28370000 
28371000 



0562*3 
0565*1 
Q567*i 



0568*3 
0570*1 
0570*3 



28371100 T 
2837U20 T 
28371300 T 



057211 

0572*3 
057213 



28371250 
28371300 
26 37U 50 



0574*1 
0575*3 

0577*0 



•.2«^3till00:; 

■■■^iiiiiiiii 



0579*0 
5.60* 



28374000 T 058l«l 



9 
10 
11 I 
12 
13 



16 

17 < 

IS 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 < 

33 

34 

35 4 

36 

37 

38 i 

39 

40 

41 I 

42 

43 

44 ' 

45 

4« 



47 

48 

49 

50( 

51 

52 

53 i 

54 

65 

6«( 

57 



e 



h 

2 



4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

'5_ 

16 

17 

18 



19 
20 

2rS 

22 
23 
24 
2G 

»« 
27 ;i 
28 
29 
30 



31 
32 ' 
33 

34 
35 
36 

37" 
38 

39 .:': 
40 
41 
42 



46 
46 
»7 



49 i 
SO 



51 



END ELSE 



% 



PARITY ^RRQR 



28375000 
203 7600 



058^10 



eE.GIN 



spacit; 
sq fn hlq q p; 



283^7000 
28 3? a 000 
28 379000 



0585»3 
0S86I i 
Qxfl 7 rn 



END* 

end; 

IF NUO 



THEN 



WAIT FOR LAST READ TQ FINISH 



28380000 
28381000 

283e2oon 



0587»2 
0587»2 

ogaetn 



8f G IN 



HXtmxnn 



28383000 
28384000 
2fl3fl5Q00 



0588«3 
058911 

Q59Q<t 



GU lay; 



end; 



e nd; 



SKIPPER* DO UNTIL WAITIO (SPACER* MM»uJ«?40i 

FaLLOUTJ while ENOQFKEEL do P(WAITIoCSPACER'«'40#U)*DEL); 

ENDLOQP* LQAOING»»FALSEf 



28386000 
28387000 

28388000 



059l»2 
059210 
Q59 ?»Q 



28388500 
28389000 
gft3^0<>0a 



0592 t 2 
0595 «1 



IF OSED THEN ABORT; 
END UNTIL XtJ«*J + 2]*9U; 

IF NOT BB Then 



28391000 

28392000 
28392?00 



0600>3 
060311 
0605»3 



BEGIN 



STREAMC»B*eB*GETSPACe<5'0#0)+2); 
BEGIN 0S*18LIT"NULL LIBRARY L0AD»"; 



end; 



SPOUT (BB); 

End; 

ST0PTIMING(0» 1023); 



28392300 
28392400 

28392500 



ST0PTIMINQ(5M023); 
ScTNOTlNUSe(U#0)^ 
SET OMrT » PACKETS 



28392600 
28392700 

26 3930 00 



060611 
0606>3 
0609<2 



0612«1 

0613»0 

.0613«0 



IF UNITNO^O AND LABELTABLE t UNI TN0]*P21« THEN 
LaBELTABLE tUNlTN03«-<?ll4; 
$ POP OMIT 



28394000 
28395000 
2fl305099 



28396Q00 T 
28397000 T 
2 8397Q01 T 



0614»0 

06i5«0 
gfl UlQ 



061610 
06 1 8 » 
0619 » 3 



GO INlTIATfci 

End; % or library load procedure 



2a39l000 T 061913 
28399000 T 062011 
STZE» 0699 WORDS 



PROCEDURE LIBRARYDUMP; 
B E GI N . __^ . 



START OF KEt 



28400000 

segment; Disk 

28401000 



REAL C0MM0hf»*4; 

ReAL IiiJ»T#U#UNlTN0,OUMPlNG#W*Y#TM»REEL»IC»N»Nl,LAST#N2; 

flrAL Q.MlP>FlD*MAX«EXP^6TRMAX>K.Kl*SE6«MlDCTR.StZE#TYPE; 



28402000 
28403000 
2 fl4040 QQ 



T 0000 «0 
ADDRESS « 
J Q,9,Q0»n 



00685 



T 
T 

X- 



OQOOtO 

ooooto 

0000*0 



REAL HC^B; X ONE ID 

ARRAY Xt*3*SC*]*AR0Wt*]*H[*]*I0DC*l*LBLt*J' 
RFAL TO eg; 



■OEfi.NE:.'^iiiiii>iiif::*; 






28104001 

28405000 

2840510Q 



26405200 
28405300 
28 40 5ftO Q„ 



T 

T 
X. 



0000*0 

0000*0 

0000*0 



ooooto 
ooooto 

QQQQIO 



TAPEPARITY 
SPOUTUNIT 
Q SEP 



TQG5a44tll«# 
;i;gRHI)(itCf3''P|MlX)ff 



LABEL TAPEPAR>PARERH»i.O0P*WitTEi.OISPAR>GETONE#N£XTNAM£#G£TM0RE* 



28405500 
28406000 
284a<^4Q0 



28406200 
28406300 



0000*0 
0000*0 
OOOOfO 



WRlTlT»BACK*BADHOR»NEXTi 
OFF I NE NQTOU MPED ( NOTDU MPED 1 ) » 



ooooto 

OQOQtO 



S2 
53 



S4 



28407100 T 0000*0 
28408000 T 0000*0 
2 840e iQtf T 000010 



55$ 
56 r 



BEGIN NTll»N070UMPE0lt NOOUMPMESSt ENDlt 



iii«^ii^M»iii^ 



DUMPING 



JiilUlii^mLSE ;0..- 



2B«iitiia 

ZflftOdaOQ 



000010 

ooooto 

QOOl^Q 



SPPU7UNITM); 



28408500 T 0003*2 



• • 



S u br outine : q£tasmw&nt/ „ , . ,, , 



28408600 T 0006«2 
2 8^4090 . T Q , QQ6 « ? 



BCQIN 






28410000 
28411000 



oqo7»o 

0007«0 
O O0B <0 



4 
5 
6 
7 
B 
9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 



forgetespdi^k(seg); 

end; % OF GETASfcGMENT 



28413000 T 

28'n'«000 T 
28415000 T 






IF DUMPING Then jj»j-2 else; 

BEGIN XCjJtsP 14; 

jjs-2; 



28441000 T 
28442000 T 
2fl442SQ Q . T 



ooio»i 

OOll'O 
0Qn»3 



284«3000 T 
28443500 T 
284H4Q00 T 



ooutn 

0012»0 

OQi;^»n 



0012«0 
0014«0 
01 5' 3 



end; 

WHIUE XUlsJ+ai^^H AND J LSS i022 00 

P(Oia£CTORYSEARCHC*XCj3^XC.J4-l3*13)#DEL); 



28444500 T 
28445000 T 
28446Q0Q T 



001613 

0016»3 
0020»i 



IF U GEU THEN 

BEGIN 

ST0PTIMINGC0*1023)J 



28^47000 T 

28448000 T 
26449000 T 



0023 « 2 
0024 « I 
0024« 3 



20 
21 
22 
23 
24 

26 ; 

285 

n 



5TUPTlMiNQC5#i023)> 

BLASTfl(U)i 
SrTMQTlNUSE(U.nU 



28450000 T 
28*51000 T 
28*52000 T 



0025*3 
0026)3 
0027;? 



end; 

WHILE 51:293^0 DO getasegment; 

t SET QMIT - PaCKFTS 



28453000 T 
28454000 T 
26454fl9V T 



0028*2 
0028»2 
00 3112- 



IF UNlTNO^O AND LABELTABLECUM TN03»*2U THEN 
LA8ELTaBLECUNiTN0 3«»§114; 
S PO P OMI T 



28455000 T 
28456000 T 
2fl4'56oOl T 



003i»2 
0033»2 
003'^>1 



29 
30 
31 " 



GO TO initiate; 
End; X OF abort 



28457000 T 
28458000 T 
2 fla59'iOO T 



0035»1 
0035«3 

og36»o 



Subroutine spacH; 
begin 

WHILE WAITI0<SPACER#MM#U) X ^40 DO 



28458600 T 
28458700 T 
2 84^8600 T 



0036iO 
0036f0 
0036*0 



34 
36 

36 
37' 
38 
39 

40 

41 

42 

«3 

44 

45 

46 

47 

•8 

49 

50 

51 ,S 

52 

53 

54 

55 

56 



BEGIN 



IF dSed then abort; 

IF STGPjOBaPlMlX THEN STOPM(Q); 



28458900 T 
28459000 T 

2fl4591QQ T 



0038*3 
0038*3 

0042*0 



end; 

pc|naiti0(ctm1*p4 0*u)*del); 

E NO^ % QF SPAC IT 



X WRITE THE TM BACK 



2845*200 T 
28459300 T 
28459^00 T 



0044*0 
00*7*0 
0048*9 



X*********** 111'***********^* ********************** ******************** 

SUBROUTINE WR ITENdINGLABEL; 

BEGIN , 



23459500 T 
284G0000 T 
2ft46inOQ T 



0048*3 
0048*3 
0049*0 



PCWAlTlOCCTM3,940»U)#0Et); 

IF DSEO THEN ABORT; 
P(WAITlQCL8fa<>SOQO[CTF3*g4o#U)iOEL); 



28462000 T 
28463000 T 
264 64Q00 T 



0049*0 
005012 
0053*0 



if osed then abort; 
End; x of write ending label 

X******************************************************* 



28465000 T 
28*66000 T 
28*67000 T 



0055*1 

0058*0 
0060*0 






28*66000 T 
28*69000 T 
28*70000 T 



006010 
0060fC 
0060*0 



BEGIN 



IF YiC/«n AND Y.C27I1J THEN % END OF TAPE 
BEGIN 






28*71000 T 
28*72000 T 
284 7 3000 T 



0062*0 
006212 
0064 * 1 



006**3 
00«6»1 
0066*3 



IF lODt i-W j ™|-^-'g.jy™'<j«-j^^f^ '^(^ PArttRft; 



I'^iiiiiiiiiii 

28*77000 T 



0069*0 



ff 

2 
3 
4 



9 
10 
11 
12 
13 
U 
15 



16 
17 
18 
19 



20 
21 



22 
23 
24 
26 



26 

28 
29 



30 

31 
32 



33 
34 

35 
36 
37" 
38 



to 

41 
U 

44 
45 
•6 
47 
W 
49 



50 ,V 
Sli 



S2 
53 



S4 

56 f 
56^' 

m 



£ .N P > 



IUDtl-wJ.CiJ7«U«=0; 



TaPEPAR! 



LeLCa3l*C*PCUUP)) OR 1) 

IF LBUC23it30»183»0 THEN XFILEOOO LAST 

STREAW(A*(J*ft) OIV 2#6»CLBLC2333J 



FIUE 



dEGiN SI^LOC a; DI*DI+5; Db»3 DEC ENO* 
PCWAlTlO(CTMJ*p/JO*U)/DEL); 
P(WAITia(LPLKt^5000[CTF3»P40»lJ),0FL)J 



P(WAlTiacCTM3'?«0'U)^0EL)i 

SETNQTlNUSE(U»l)i 

STOPTIMINe(S*10233f 



UB|,C43«»(*P{DUP)) AND NQTCD; 
STREAM CREEL I 'HEEL {»REEL + 1»UBL); 



DH«DI*24i 0S»«3 0ECi 
•ENOI 
IF CU t«LA8ELA§£RATCH(LBL) 3 



LSS THEN abort; 



E ND 



DUMPDIR*TRU£; i<OUMP 
STARTIM|NGC5#U); 
ELSf % PARITY ERROR 



DIRECTORY 



PARERRt 



BEGIN 



IF Y,C7ll3 
BEGTN 



THEN 



% TAPE 



spacit; 

P(WAlTlOCH4<?bOOOCCTF3'PAO*U)*DEL); 
TAPFPARITYinTRUFJ ^ 



GO TO tapepar; 
end; 
diskparity>»true? 



E NDf 



end; 
end; 
% qf subroutine chlck 



SUBROUTINE lO; 

BFG tN — ^ 



IF IC THEN 

I0REQUEST(-(I0D[W3 5s(AROWCW3 INX P500000000)& 
SXZE[6:38» 10J&TINU[U3[3«3»53 ) OR g2Ol77Q0O0O^ 



EiSE 
BEGIN 



I OD t to-3'* i 1 OD t W J 3.&f ltt:f^f .If it' 



28^78000 



28*80000 
2S480l00 
2e » B Q 200 



007H1 



007411 
0076«l 
0Q77I3 



28^80300 
28*81000 
2 fl*H 2nOO 



008052 
008112 

ooeato 



28*83000 
28*8*000 
2ft*fl5QQQ 



0085*1 
006613 
0Q 87» ■t 



28*86000 
28*87000 
28186000 



0088V3 
0091 «0 
0Q9 3 «1 



28*89000 
28*90000 
28^ 910 00 



0093fg 
0094 *G 
00 9*11 



28*91100 
28*92000 
28*93000 



009850 
009913 
Ql0Q»3 



28*9*000 
28*95000 

2aa9'^5Qfl 



Ol00»3 
Ol03»0 
010 3*3 



28*96000 
28*96500 
26*97000 



Ol04«l 
Ol05'0 
Ol07>l 



28*97500 
28*98000 
28*99000 



0l09(0 

ouno 
onno 



28500000 
28S01000 
28502000 



0112 J 3 
0ll2»3 
QU?»3 



26503000 
2850*000 



0ll3»0 
011310 

Qn3«n 



28506000 
28507000 
28508000 



0113«0 
0113«1 
0115«2 



DlSKiaCiaDtk^3*-(ARUW[w3 INX 0*l3*CT*lF (T*L A^T-Q-N + i 3 LSS 
30 THEN 30xT ELSE 900),0-^N3i 

NfN + SO; 



28509000 
28510000 



28512000 
28513000 
2851*000 



011910 
0120*1 
012111 



$ SET OMIT « 



lirlPWfiifics-): 



2851*099 



012**0 
0129*2 
0133*2 






SUBROUTINE DUMPAROH; 
BFGIN 



jQ. ^ FIRE UP FIRST DISK READ 



28517000 T . 0135*0 
28518000 T 0133*0 

,2.B.Simg..9' J..... SiJSi.O, 



28120000 
28521000 
28322000 



IF 



B«-(N<N13 



SWAP BUFFERS 
THEN* CANNOT 



00 ROW WITH ONE READ 



28523000 
2652* 000 
28525000 



ii 



4^.,,,^. 

Ol35»0 
013613 



01*3*3 
01*5*0 
1 *5 * 3 



W: 



28 365000 



iiii 



iliiiiiiliiMiiiiiiiii^^ os ^ q) , 

'ACCIDENTAL ENTRY " AT'^'^PIM'i'x"' 






01*710 
01*910 

■ ■■ m 



m • 



>r 



8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 



20 
21 



22 
23 
24 

a 



26 

27 

28 

29 

10 

31? 

32 '.'i 

33 

34 

35 

36 

37" 

38 



39 

40 

41 

42 

43 ~ 

«4 

45 



46 
»7 

ta 

•9 
50 
B1 ; 



52 
53 



55 
56 
57? 



itislMt 



COMPLEXSLEEP((((lODLRCJ)ANU 
28^2 7 01 ACCIDENTAI ENTRY AT PlMlX 



lOyASKJi^O) OR OSED); 



IF DSED THEN ABORTJ 

N2«-N2 + 15;X COUNT NUMBER OF OPERATIONS COMPiETEO 

WIF ClQDtQJ AND I UP [13 ANC IQmASK)/Q THEN 1*W ELSE 



ccioDtn 
check; 

T F DTSkPaR I TY 



AND IOMASK)XO); 



OR TaPfPaHtTV TMfN CD TO prSPARf 



IC«-l-IODCW3.t7»n;% SWAP UMTS 
IF N<Ni THEN GO TO LOOPU ROW jS 
IF N2<»-30£N Thfn Sr7F»T; % rHAMfiF 



IF 100 CW] ,t<i4«lJ THEN GU 
IF N2<N THEN begin IoOC W ] ; cO ; RC « ! 
OISPAr; . F-NonoF nuMPflRnw 



NOT FINISHED 
SIZE FCifi j AST 



REC QH n 



TO tOOPU MORE WRiTiNG TO 00 
i-W;BJsOiGO To WATE;tND;XFIX ODD* 



StsCM[SPACE(30)n«i30C8»3asi0Ji 

TYPE:»CQMM0N.fFF3t _______^__ 



St29] jsCOMMONtCCFj; 

getasegment; 

STREAM(MID»sMID»fSCt].fl;sPRTLPlMlX.3 1U 



Begin ds»«»i6 lit"ooi«ctryooisk •';os«»25 LiT"0";snei,Oc miq; 

Sns>Sl + l;0Sla7 CHRJDStsS LITwQf lUEOOO" JDS« «24 ulT^O"; 



UMTNOS»StO].t2!63; 

Xj»[MtSPACE( 1023>]U1023[8! 38J lOJ; 

MAX»sro]*rCF3f 



ExP»«sce3,ce»23; 
gtrmax*sco3<o; 

Xr03i8gi4i 



u:a-i; 

GETQNF ' 



If oseo then abort; 

If I>26 THEN 0ETASEGMENTi 

If (Sen OR SlHn)<0 then StEKNAMCSCl3*SCl»l3»W«Xtj3»XCj*l3»Y> ElSe 



BEGIN 



XCJ3l»SCl]; 
XCJ^^13»=SCI^•13; 



End; 

if W^'O THEN 



BEGIN 



t«-q; 

K«- 



FO 



n N«.j- 



J-2 STEP-2 until 00 
IF (XCJ3 E«V XCN3)«N0T THEN 
IF {X(^*l3 EQV XCN»l3)aN0r THEN GO tO NEXTNAMEI 



IF GTRMAX THEN 
BEGIN 

JI8J+2; 






IF iTt»UlMCfaRYgrARCH C)^[JlJtlC3»^mT*X[JMr" M'3J) 

lSs 64 Then 

BEGI N _^^__^^^_ 



llil 



iilB 



GO 




N N0T0gMPED(43) ELSE 

iiiaiiiiiiaai.sife. 



If, I NEC 2 THEN KtllO 



EXTNAMt; 



28527002 T 0lb7l2 



28528000 
28529000 
28510000 



OI66IO 
0l69»0 
017011 



28531000 
28532000 
2653250Q 



28533000 
28534000 
2ftS35nQQ 



0l74«l 
0176J1 

Qi77;n 



017912 
018H2 
QI62M 



28536000 
28537000 

285 380.00. 



28539000 
28S40000 
28541000 



0185M 
1 8 7 J 

019210 



28542000 
28543000 
28544000 



0l92«l 
019211 
Q2Q5I3 



28545000 
28546000 
285470QQ 



020710 
0208 « 3 

0210».QL 



28548000 
28549000 
?9'^5000fl 



02ia^«2 
0218»2 
02?3»2 



0223«3 
0225»1 
Q2?9»n. 



assstooo 

28*52000 
2flSf3QgQ 



0230 » 2 
02 32*0 
Q233f2 



28554000 
28554500 
28555000 



28S55S00 
28556000 
28557000 



0234«3 
0236!3 
0237«3. 



023713 

024110 
024H0 



28558000 
28559000 
2 fl56 0n 00 



025H1 
0252«0 
02 5 3 *2 



28561000 
26562000 
26563000 



0256*0 
025613 
0256*3 



28564000 
28565000 
28566000 



28567000 
28568000 
28569Q00 



0257«2 
0258«0 
0258«3 



28569200 
2e569300 
28569400 

28570000 



0259*2 
0263*3 
0265*3 



0270*1 
0270*2 
027110 



28571000 T 
28571002 T 
28572000 T 



027211 



0275*2 
0279*2 
0280*3 



28574000 



0281*1 
0264*0 
0286*3 



T< 



2 
3 

4 
s 

6 
7 
8 
9 

10 

11 I 

12 

13 

14 ( 

15 

16 

17 I 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 i 

21 

28 

29 \ 

30 

31 

32 4 

33 

34 

35 { 

36 

37 

36< 

39 

40 

4,4 

42 

43 

44 4 

45 

46 

48 
49 

50 f 
51 
52 
S3 1 



55 

S6< 

57 



28577000 T 0292?0 



>T 



IF T 



GE9 64 THEN 



2857aoOO T 



0292'2 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



BEGIN 



If MCT+aJ/O THEN 
IF CUSERCQDEEPIMIXJ 



raV ABSCWCP3);tNQT THEN 



28580000 T 
28581000 T 
28582000 T 



0293 » 3 
Q29 5< 3 



IF (U3ERC0DECP1HIX] EQv ABS(MtT + 2n) NEQ NOT THEN % 
BEGIN 

HCpiRECTO RV$EARCH(*X[>J3fXCV^'Ua 3?^0£ .l}J 



2a583000 T 0299»0 
28584000 T 0302»3 
2 8585000 T 0303:i 



N0TDyMPED(4l)l 
GO TO NEXTNAMEl 



EMOi 



28586000 T 0306«0 
28588000 T 030010 
28589000 T 0308*2 



IF EXP NEQ THEN 
BEGIN 

IF EXP THEN 



28990000 T 
28S91000 T 



308»2 
030911 



29592000 T 3 09 1 3 



13 
14 
15 



BEGIN 



5TREAM(T»«OlA««CALcULATEPURGEC*MCT*33,t2»l03 ))J 
BEGIN SH«LnC A;DHa.LQC TJDS«»8 OrT EMfH ^ 



2aS93000 T 0310»0 
265940O0 T 03t0»2 
28595000 T 0314 It 



16 
17 
18 



END 



IF P gTR MCT+33,[12«183 THEN JJ'J+2 ElS^ 

P(DIRECTURYS£ARCH(-XtJ3*XCJ'»'U*l3)*OEL); 

ELSE 



28596000 T 
28597000 T 



031511 
0319M 



2 8 5 9 80 00 T 3 22»2 



19 

20 

21 



dEGIN 



IF MCT+43,Ul»n Then Ji«J*2 ELSE 
P(DlRECTQRYSEARCHC»XlJ3^XCJ<-n#l3i#DELai 



26599000 T 
28600000 T 
28601000 T 



0322»2 
0323»0 
0326*3 



22 
23 
24 
25 
26 



en d; 



end; 
END EtJJE j"=g + 2; 



28602000 T 0330«0 
28603000 T 0330»0 
26605000 T Q33in 



27 



nextname» 



IF (stn OR sci + n)<o then 1*1-2 else w*o; 

I F T G £Q 6 4 T H E N FQPfl E TSPA CFa J f 



28607000 T 033l«3 
28608000 T 033li3 
28609000 T 3 3710 



28 
29 

30 



End; 

IF X LSS I THEM LBM e;SS (S [ J ] * S [ I + i 1* -3M 5* 0/SPOUTUN IT'I >' 

IF sci»i->-2]xai4 Then 



28610000 T 
28612000 T 

28614000 T 



0339 »0 
0339*0 
0343«3 



31 
32 



IF J<(2*MAX) OR GTRMAX THEN GO GETONE ELSE 
tBt»»'CMCSPACE(30)3 3&30C8;38»lOJ^ 



2861S0O0 T 
28616000 T 
2861/000 T 



0345»3 
0348<0 
0348*3 



34 
35 



36 
37' 



j«--2; 

lblC03j=-max; 

LBL[iJ«-MinJ 



28618000 
28619000 
28620000 



0352*2 
0353»2 
03 5 5« 



34 
35 ( 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 

44 \ 

45 

46 

47 ( 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ' 

57 



38 

39 
40 
41 
42 
43 
44 
45 



LBLt283*0; 
STREAMCA^-MlOCTftlONE^l'WlD^-CMIOJ); 

BEGIN suuoc a;si*si*7;if sc»«o« then 



tlEGjN TALLY«.2;Sl«-MiD;SI«-Si*2;5CIF SC«" " THE^ JUMP qLT; 

si«.Si + i;TALLr*TALLY+i ) ; A«-T ally;di*oi + a; DS«-lIT "1 "; 
End Else begin dUoi-»-a;si»si>i6;ds«-add;end; 



28621000 
28622000 
28623000 



T 035611 
T 0357 J 2 
T Q359I0 



28624000 
28625000 
2 66 2 6000 



T 0360»0 
T 0362*0 

J O 364«0 






2862^000 
28626000 
28629000 



T 0365*1 

T 0365»2 

J 036 6*0 



47 

ts 

50 j 

sr; 

52 
K3 
M 

55 



getmcre* 



COMMON, CFF3*sTYPE; 

FOR K* 2 S T EP 2 UN T I L 26 DO 



28630000 
28631000 
28632000 



036 M 2 
0368*3 
0368*3 



56* 
57 I 



BEGIN 






LBLtK*l3*XCJ+l3; 



Qo wRnn i 



end; 






IF K«28 THEN 



2S634000 
26633000 
28636000 



T 037010 
T O37OIO 



28637000 
28638000 
2a6|9Q0O 



T 0374*0 
T 0376*2 
T 037<^ *2 



28641000 
21^42000 






28643000 T 0384*1 



BEGIN 



n 

2 

3 
4 
5 
6 
1 



...S..E.6-LB„k[??9J;. 



GO qetmore; 
end; 

FQRGF TS P A CEC l .Bt \i 



286^4000 T 
?66^i?0QQ T 



038S*0 

3a5f2 



286^6000 T 
2864f000 t 

PSftQflOQQ T 



038612 
0|87 iO 
Q 387 in 



LBMES5("LIBMaIN"#"D 
Ml(TJ=G£TSpACEtl2#C 

TF (J<-us e RcOd ecpimi 



ISK "^so^o^o^spoutunitmJ; 

X J)»AB3{N0T 0? THE N 



286<»9000 T 
28650000 T 
2fl6'3lO00 T 



0388«0 
0390«1 
3 95 *2 



9 
10 
11 
12 
13 
14 
IS 



BEGIN 



J4-0; 



28632000 T 
28653000 T 
28654000 T 



0397*2 
0398«0 
Oaf fill 



END ELSE K«-26; 
STHEAM(J»ClJMMON*T); 
BEGIN 



2865b000 T 
28656000 T 

28657000 T 



0399»2 
0402«3 

«Q4»0 



DS*8 in'*CC US 
0S«*29 UIT«;£X£ 
os»6 dec; DS»6 



ER«'';SI*.L0C J;Sl*5l + i;0S*7 CHRi 

CUTE libmain/disk;common«''> 

LIT"JEND.«-"f 



28658000 t 
28*59000 T 
28 660 Q 00 T 



O4O4IO 

oao6to 
OalO»0 



16 
17 
18 
19 



end; 

SET OMjT « NQTcPaCKETS) 
T^T&Pl M lxn6M2 «6 3SKE3>43«53 ; 



28661000 T 
28661099 T 
2 8*6 1 300 T 



04ll«l 
0«H«2 
04 1t»2 



20 
21 
22 

23 
24 

2S 

26 -J 

t^'i. 

28 

29 

M 

31 

32 

33 

34 

35 

36 

37" 

38 

39 a 

40 

41 

42 

43" 



IN0EPEN0ENTHUNNER<PC.CQNTR0LCARD)*T*192); 
$ SET OMiT « NQT(PACkCTS) 



28662000 T 
28662099 T 
P86630Q T 



OaU»l 
0415*2 

Qan*2 



End; 



GO getqne; 

PI4; % HARK ENn 



OF" mPECTORY 



IF J» 
BEGIN 



THEN 
STREAMtMlO^UtapsSPACEtiOU 



28664000 T 
28665000 T 
26666000 T 



0416»3 
04l7»l 
0417M- 



28667000 T 
28668000 T 
28669QQ0 T 



0418>2 
0<H9ll 
Oft to* 3 



BEGIN DSt-14 LlT«-N 

Sl« aSl + UoSJa^ 

ENQJ ^ 



ULL Library ♦♦;sii«LDc miq; 

CHh; DSSsLiT"*"; 



28670000 T 
28671000 T 
2B672Q00 T 



0422J3 
0425»0 
4 2 6«Q 



SPQUT(I); 

GO TO initiate; 



End; 



28673000 T 
28674000 T 
2 8*75000 T 



0426 «1 
0427t0 
0427;? 



tm*o& 

IF si 
BEGIN 



♦♦2«-"[i»37ni3;!i 

LSS 900 TH£i^i 



28676000 T 
28677000 T 
28678000 T 



0427»2 
0429«1 
0430»0 



TI»SPACE('J + 1); 
MOVECJ+WX»T); 

forgetspacecx); 



28679000 T 
28680000 T 
28*810(^0 T 



0430 » 2 
0433 »1 
043512 



XS5CMCT J3&CJ + 1K8538J lOj; 



End; 

rfel:«i; __ _ _„ 

LBLUtMCTAPeLABELCMID^FI 

IF (Ut«LA8ELASCRATCH<LBl 
STARTtMING(0#l8); 



0»«»FlLEOOO***l»l,lOO5n4loC8«38>lo3> 
)) LiiS THEN ABORT; 



28682000 T 
28*83000 T 
28684000 T 



0436«2 
O439I1 
0439M 



♦6 



28685000 T 
28686000 T 
2B687Q0Q T 



0440t0 
0444*1 
044810 



46 
47 
«8 



STARTiMiNg(5.UJ> 

P(WAITIQ(X4( J+1 )t8t38J10 3&P5000[CTF3*P40,U)#0EL); 

WR l T FNDT NnUA@ E l ^ 



28688000 T 
28689000 J 
2 8690000 T 



0449»0 
0450»0 
0453'3 



49 

so 

51 



AR0WlnlM[SPAC£C2n3&2i;8t 
AR0W|:03l«t'*t*PACEc900)3 3 
ARQWCi3«»CMtSPACi:t900)33 



38110]; 

&900C8t3eil03; 

>9Q0t8»38llO3; 



28*91000 T 
£8692000 T 
28693000 T 



0455»0 
0458*3 
0463*0 



52 
M 

54 



l0DJ*CMCSpACE(2n3&2t8*38:iOJ; 

j»«""2; 
DUMPING 8 c true; 



28694000 T 

28695000 T 
2R696000 T 



04*7*1 
0471*0 
04 72*0 



55 

56 • 






:':fiiiiiiiili«iiiiils 



^aM(A*(v)*2) div 2«B«-aBLC2n); 



,28»;9?:iliSia 
;iift6iiiii^«|l 

iliii^ 



Wl 



047511 



.5? 



BEG 



c end; 



477*2 



10 



12 
13 



16 
17 



20 
21 



23 
24 

26 



28 
29 



30 

31 1 



33 



34 

35 



36 

37* 



38 



«0 
41 
42 



43 
44 
45 



46 
47 
48 



49 

50 i! 



a 



se { 



LA8ELTA8LEtu]4.-LBLt2]; » tlsTER FILE ID FOR OL MESSAGE 
H:sLMLDlRECTqf^ySEARCHCxLJ3,X[j^l]y5n]&3Q[flt3a;lQ]; 



28701000 

287n2onu 



0478^2 

Q4fln«i 



Hr93l»<*PC0UPJ) AND 31J 

If NOLBL THEN NOiBUFAtSf EtSE 

REftI N : -_^__ ^^ 



26702100 
26702200 
28702300 



0484»2 
048612 



PCWAnitKLdL&PSOOQtCTFJ'P^O^UJ^DELJ; 
IF DS£D THEN abort; 
RfWAlTincrTMIfP^OtlDtllFDi 



287C3000 
28704000 

2a7o'ioon 



0492 «0 
0494«1 
049710 



if osed then abort, 
end; 

IF P(EHC933*L00*DUP)'»0 



UR P(XCH)>20 THEN 



28706000 
2Q706100 
2»7Q6SQQ 



049812 
05iBt»0 
QsOt'O 



BACK» 



GO TO badhdr; 
P(WAITigCH4«»5000tCTF3#e4o»U)*DEU); 
IF DSEC THEN ABORT; 



28706600 

2 8 7C 7000 
2 .fl7Q8n q 



FOR K*-! STEP 1 UNTIL 
IF HCK + 9];<0 THEN 
BEGIN 



HC9] DOX WRITE OUT FIuE* ROW BY ROW 



28709000 
28710000 
2ft?U0 QQ 



0ij03»2 
0504 11 
0*306'? 



OUMPAROt^; 

IF TAPEPARITY 

BEGIN 



THEN 



267U200 
26711300 



0509«0 
051 3 »0 



0515«0 
0516«0 
05K'3 



tapeparity»«false; 

GO 8aCk; 
ENOi 



2eif 11500 
28711600 
28 711 700 



0517' I 
0519«0 
052110 



IF DISKPARITY 
BEGIN 

spacit; 



THEN 



8A0H0R* 



IF OSED THEN ABORT; 
H*°H&20[8«38»103; 



2fl71l800 
287U900 
2871 2000 



28712190 
287i2l95 
26712200 



052110 
052l»3 
05 2 ?n 



0523>0 
0526S0 
0526*0 



p(waitio(h&p5000cctf3*p40»u),del); 
•^ritendinglabel; 

P(plRECTaRYSFARCHC'Xrj3>X[J->-l3>13)*DFL); 



NOTDUMPEDCIF DISKPARITY THEN 35 ELSE 43); 
FORGtTSPACE(H); 

diskparityi»false; 



26712210 
28712220 
287 1 2 22 5 



28712928 
28712230 
2ft7l2g33 



0528»0 
0530«1 
q.53l»0 



053313 

053610 
Q53oin 



GO T(j next; 
end; 

IF ST0PjD8»P1HIX 



THE^ stqpmcO); 



28712235 
28712500 
, 28 713000 



0540»3 
054310 
05^3*0 



end; 

forgetspacech); 

writendinglabel; 



28714000 
28715000 
28716Q00 



0545*0 
0545»2 
054612 



$ SET 

$ POP 



OMIT 

IF 

OMIT 



s PACKETS 
LIBMSG THEN 



28716999 
28717000 
28717001 



0548«0 
0548«0 
0548»3 



LBMESS(X[J3*XCJ*13*3#0*TINUCU3*UNITN0*LIBMSG); 

PCDlRCCTORYSEAReH("XCJJ*XCj"H3»l3)*DEL);< 

IF OUMPDitt THEN 



28717|00 
28716000 
2fl7ia|00 



0548t3 
055311 
055610 



BEGIN Xt03*«'ll4; Xll3«-vl*2; %FLAG xtOj AND OFFSET INTO XCU 
LBLt2],C30ll83»»0; XFlLEOOO 
PCWAlTlQ(LBL&ti5000[CTF3>g4O^U)^DEL); . 



28718110 
28718120 
2R7i,6i40 



0556»3 
0560 »1 

05<>?n 






287l8l50 
28718160 
287lBi7Q 



0565>0 
O56BIO 
QS69t2 



lODtOJ«-0J W«.i; SIZE«-X,C8«103; 
I0REQUESTCCI0DCW3*CX INX «»500000000H 

SiZ^r|:at38t|03i^TTNU^U3r3>3l53) OR «'20 1 7700000* 



Sii&iMiis 



llliiiiisiMlteiiliiiliil^*^ 



28718180 
28718182 
28 718194 






0572 «0 
0575 » 2 
Q5r7ll 



058013 

ossjto 



Af.CTDFNTAl ENTRV AT IIMIX 



IF DSED THEN ABORT; 



28718190 T 059110 



> 



check; 

IF NOT 



.lQDCh3 .,i:?7?l] THE.N 



NEXT« 



BEGIN WRItENDINGLABEl; DumPDIR*FAUSE end EtSE NOl.BU*TRUEi 

end; 
endxall fil£s now written ■____^_______ 



28718192 
. 2 8 7 l fll9a 



Q595J0 



28718200 
28718210 
28119000 



059611 
060513 
0605»3 



PCWAiTIGCCTM],ei|U,U)'OEU)i 

ST0PT1MINGC0M023)J 

STQPTIMINGC5M023);ai 



287 20000 
28721000 
2 6? ?20 Q 



SETNOTlNUSE{U»nJ 

IF TYPE»UNLOAD THEN 

FOR J»0 STEP 2 



WHILE Xl^l*¥lH DO 



28t2300G 
2672400Q 



T 06065 1 
T 0607»3 
T 0606 ' 3 



T 0609*3 

T 061013 
T 061 ll> 



10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

iO 

31 

32! 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



IF DlHtCT0RYSEARCh(-XCJ]#X[J+n*7)*3 THEN X t J + 2 ] t spi'*; 

$ SET OMiT * Packets 

IF UNITNOXO AND LABELT ABLE T UM TNO 3 ^^214 THEN 

" ■ II II .1.11 I I I J Hi.l>*»ilPI|i tw . M. ill-l»W» » <IPP<i^PW-l . ll!l . ll . ll . ll . ! Il . l l ll . ll . ll . ! ., ! .. l . l IIII .L I l — . l . l I . I ..|l|. ■■11 . 11 . . ■ . .III. . . I . I.I I III F' — ■!.,•■ — .... — .I,, '■'■' ..i. i.i....|i... .li.i.iii..- ■ . 1 .i.i — .1.1 



28726000 
28726999 
28727000 



T 0616J1 
T 0622«0 
T 0622}0 






i:ito.l*fii4j: 



28728000 
28720001 
28729000 



T 0624»0 
t 062513 
T Qftgsn 



End; % uf library dump 

PROCEnURE LIBRARY zero; 



287 30000 T 062611 
SIZE* 0627 
28800000 T OQOQ »XL 



WORDS 



BEGIN 



start of REl 



segment; disk 

28601000 
2flflo2ono 



address « 00706 
T 000010 

J oono^o 



Real type* s eg* i#o»k*ni*q#n*w*t* thing* ze^oing; 

ARRAY SC*]*Xt*]*HsULTC*J*BuFFADNt*]*lODC*]*Ht*]; 
L A BtL <iET 0NF*LO0P'WATF >AR n; 



28803000 
28804000 

28806000 



T 0000»0 
T 0000»0 

J QOQO»n 



DEFINE 0SEO«(TERHIx#tCF3»Pli*IIX)#; 

X***** ****************«***«*******************#* ******** 

SlBROUTINF GETASEa^tgNTJ 



28807000 
28808000 
2fl§QfflOQ 



T 0000 JO 
T 0000 »0 
T Q QQ QIQ 



BEGIN 



SEG«=S[29]; 
njSKt<AlTC"S«[CF3f3flfSEg); 



28810000 
28811000 

2 881 2 000 



T OOOl'O 

T OOOjlO 

_I Q0U2»n 



FORaETESPDi&KCSEG); 

i»«2; 

F N n; % QF & FT a SE ( jIMFNT 



28813000 
28814000 
28BiaoQQ 



T 000A»1 
T 0005»0 
J 000*^13 



%**********************************•******************** 

SUBROUTINE abort; 

BEGIN 



28816000 
28817000 

28818000 



T 0006»0 
T 0006*0 
J 0006>n 



IF ZEROING THEN 

BEGIN 

HU3.U3»23l««i; 



28621000 
28821500 
2aflg2000 



T 0006*0 

T 000611 

-I QQ9 6» 3 



HC4].C2M3«»o; 

DISKWAITCTHING.CCF ]* 3C* THING, CFF ]) ; 
FqRQETS P AC t ^H ?; . 



28822500 
28823000 
2S923' 300 



T 000911 
T OOH'B 
T OQH*Q 



:iilii'i#ii2*Mf .It-O' ::00:,. :GETAS:E&»*iitt#; 



28824000 
28824250 
28624500 



T 001510 
T 0019*0 
T 0016*2 



«6 
47 
48 
•9 
50 
51 
52 
53 
54 
55 

56: 



End; % of abort 

X******************************************************* 
SUBROUTINE lO; 



28827000 
28828000 

288.2^000, 



T 0019*0 
T 0019«l 
T 00t9«l 



#£i;fW 



iliiiliiliifiiiiiiii*«i|ii|^ 



RSuLTtwil'O; 

lOREOUEST(-IQDCW]&e377[25M0l83/ 

IQDCW3&(IF CT*»Ni-N) ISS 63 THEN 5l2*T ELSE 5l2-«-63) 



28830000 



28631500 






ICTFJ'CiN INX RSULT)); 



28831600 
26832000 
28832500 



T 002312 

T 0024»3 
•L 0026*3 



mmmmm 
^ miSi0m»mm 

288 34500 T 00 3412 



NI«N#63) 



pi!M:/MM/m!i^-//.. 



''iMMMii^iMi^M^i 



JJjJMIMMigii l l^ijglli i ft 






X**ifr************^**********^**^***** *********** ************* 



2 
3 

4 
5 
6 



SUBHOIJTINE ZEROAHGw; 
BEGIN 



26835000 T 003452 
2Rfl.l5500 T Q03'a«n 






*N0, Of SE6MTS/RQW 
XOISK ADDR OF ROW 
JBUFFER MQ. 



26836000 T 003510 
i>883«500 T 0036*0 
2flft37nQQ T Q037I2 



N«*0; 
lo; 



HINCLX OF SttiMTS 
XSWAP BUFFERS 



2863?500 T 
28838000 T 
2fl83asQ0 T 



003811 
0039«0 
00<tQ«Q 



7 
8 
9 
10 
11 
12 



IF N GEfl Nl THEN RSULT CI 3 « aRSULTt 1 3 OR IQMASK ELSE 
LOOP! lO; 
WATEl CQMPL£X8LE£PC(((R$ULTCfW3) AND I0MASK)X0) QR DSEDjf 



26839000 T 00*013 
28847000 T 0044»0 
28846000 T 004610 



28718188 ACCIDENTAL ENTRY AT PlMIX 

IF DSED THEN ABORT* 
W4-IF (RSULTC03 AND RSULT[1] 



AND iQMASKyXQ THEN 1*W ELSf 



28849000 T 0054«2 
28950 000 T 00 57» 



13 
14 
IS 
16 
17 



C(RSULTcn AND lOMASKj^'O); 
IF N<Nl THEN GO TO LOOPiX ROW IS NOT FINISHED 
COMPl£XSlEEP(C((RSUlT(:1-W33 AND IUMASk) NEQ 0) QR DSeD)j 



28851000 T 006110 
26652000 T 0063*0 
28652100 T 006411 



28848000 ACCIDENTAL ENTR¥ AT PlMlX 

IF DSED THEN 
, EN D ^n r ZFR Q A RQn 



ABORT; 



Sl«CMtSPACE<30)]3&30[8»38: 10 3; 
Xl»CMfSpAf!Efl023?3 3&l023ran8ti0 3; 
TuBri.roLiiLinM rrt i : 



28852200 T 
2 6 8 ^ . 3000 T 



007212 
007'!>IO 



19 
20 
21 



****•******«*****#****** 



2685<I000 T 0075M 
28855000 T 0075ll 
2fla560QQ T 00 flA «l 



22 

23 

24 

25 

2e;'j 

27; 

28 

29 

30 

31" 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

«2 

43 



45 
«6 

47 
18 
»9 

50:'^,;, 

5li||; 

62 

» 

54 

55iji 



typejscummqn.cffj; 

Sc2V3:=»COMM0N,[CF]; 
fiETASEfiMFNT,; ^ 



28857000 
28858000 
2 6 6 59000 



T 0088I0 
T 0089»l 
-T 009110 






it22iX/cXCll3 )l 



26860000 
28861000 

ZaaftZnQo 



T 0092*0 
T 0093*1 

J Qo9sn 



IF OS 

If i> 
xrJ38 



EO 
26 
aS[ 



THEN 
THEN 



abukt; 
getasegment; 



28863000 
288640Q0 
2aflft5nOQ 



T 0095 «1 
T 0098*0 

J oioo'.n 



xtJ+ni«stui3; 

J»'»J + 2> 

IF SCl»I»23Xgl4 then GO GETONEJ 



28666000 
26867000 



0101I2 

OiO4»0 
0lQ5*l 



I0DJ = Ci^CSPACE(8J3 3il2C8J38* lOJ; 
RSUl,T: = (2 INX ICD)8;i8[8J38»lO]; 
BUFFADR»a(4 INX IQO )&4 [ 8 « 38 < 10 3 ; 



28869000 
28870000 
2 ^6 71000 



Ol07*3 
0lll«2 
U 4 » 



iDOtO 
lODCl 



3»* 
1 



(BUFFADH INX )&1 [8 * 38* l03 i3C5« 46* 23 i 
(BUFFAOR INX 2 )&U 8 *38 i 103&3C 5*46*2 3 J 



26872000 
28873000 
26877000 



T 0i16*2 
T 0120*2 
Jf — 0l24*2 



ZEROI 

WHILE 
BEGIN 



NGI*1* 
XCg>J + 23X«'14 DO 



28878000 
28879000 
286,80000 



T Ol25»2 
T 0126* 1 
03.2 8 * 



H»»CMCTHlHgl»oiRECTORYSeARCh(XtW3»XcJ+i3*5)3 3&iOt8l38*lO]i 

IF OSEO THEN ABORTj 

IF THlNa»0 QR MCTHING»43. [43*23*3 THEN GO ARD^ 



•■a^siiiioo" 

2e'«t.ilf<3:, 






HC4 3«=(*PC0Up))&3C43S46«2 3&lt2»47: 13&SYSnDc4I46*2 3; 

OlSKWAIT(THlNG.[CF3*30#THlNG,[FF3)i 

L p ME SS^ X CJ3*XtJ* i3 >62#O>O^0M ? 






28882200 
26682400 
28 8830 . 



T 0140*1 
T 0144*3 
I QUkUSL 






if 



if If lliiPiiillil?;llif«".'itt^:T'"^^^ 'ROW ■ »Y • row' 



2888*000 
28885000 

26865500 



T 0l50»l 
T 0iS«l3 
T 01 58 IP 



end; 

Ht43.C43l23»«0; X NO LONGER SENSITIVE OR BeInG ZERQED 
DISKWAlT(TH|NG.CCF3*30^THINGtEFF3); 



28865600 
28886000 

2 8 68 79 00 



T 0l60«0 
T 0l60»2 
T 0163*0 



liiiiMiii^WiiMRiiiiWiiiiiiiiiM 



28888000 



iigliii«lii« 



end; 



28890000 T 0168*3 



• • 



rf 

2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 

19 ; 

20 , 
21 
22 
23 
24 
26 S 
26 



GC INITIATLJ 

E;N.D.f. .r.P.F. II B R A RY Z EHU 



26891000 
28fl9200Q 



016911 
Ql69»3 



$ SET OMIT B NOT(AUXMEH) 

CQMWFNT ERRQRMESSER tS CALLFD BY CRRQRFIXEft (!F OPTIUN 33 IS QU^ \Q 



Size* 0170 WORDS 
20999999 T 0000*0 
anooOfiQQ t OQQQtn 



TYPE OUT A PSEUDQ-T 
THING AS THE FIHST 

PRO CF D URE E RRORMES - jERCTVPE?; 



ERMlKAL MESSAGE. IT DOES 

PART gf terminalmessage; 
vaipU£ type; r£al type; 



AaOUT THE SAME 



30901000 
30902000 
30903000 



T 0000 10 
T 0000 VO 
JF Q Q Q«Q 



BfQlN iNTeaeR S#ADR#Br»SA 



START Qp ReL 



*Ht 



SEGMENT* OlSK 
30904000 
309Q& QQQ 



aoo^ess • 

T 0000 »0 



00712 



LABEU L; 

8F*GETSPACc( 10*0»0) 
Sn«-PRT[PlMlX>a3; 



+ 2; 



30906000 
30907000 
30906000 



0000 «0 
0000 «0 
00Q3U 



NT1*SDC03; 

AOR«-«CP«Tt<»lMlX,8 3].CCFJ; 
FOR S»l STCP 1 UNTIL NTl 00 



30»09000 
30910000 
3Q911Q00 



T 0005 »1 
T 0006»0 
J. 000813 



IF (Sa«-sdcS],ci 

IF MIS A- 1], LIB « 



8U^3)>1023 AND SaSADR 
15]+SAJADR THEN GO l; 



AND sdcs3>o Then 



s«-o; 



30912000 
30913000 
3 09H0 QQ 



T OOIO'O 

T 0015 « 2 

-I QQ22«0 



U» 



So^tMCSPACECTeRMSGSZ)^; 

ADR«>A09*'SAi 

DISkWaIT{*(SO I^X 01/TERMSGSZ#MESSAGETARI Ftl3.t22>263 W 



30915000 
30916000 
3 091 7000 



0022»3 
0026»l 
0Q27< ? 



N«-IF TVPEsl THEN 11 

7 ELSE IF 
STREAM(M»[SDCN33^J» 



EWSE IF TYPE=2 THEN V ELSE IP TYPE*^ THEN 
TYPE*8 THEN 13 ELSE 5; 
tJAK[PlMIx»Q33>PlHIXfS>ADR^X«-S/Q^BF); 



30918000 
30919000 

3o92ooon 



T 003l«0 
T 0035«3 
J 00^9L3_ 



BEGIN Sl^-Mjl Sl«'Sl + 2 

0I*'0l+7j DS*C 

: STt^ i $ I» ST4 l 



; DS*6 chR; BF*0I; OI^-LOc M; Si«.Sl + l; 

hr; dubf; os^-m chr; ds*8 tiT" Branch «; 

; nS»7 cwRJ nS*LiT"/"; 



30921000 
30922000 
30923000 



T 0043 » 3 

T 0045* 1 

J 0047 1 3 



29 
» 

31 '; 

J2-1' 

33 

34 

3S 

36 

37 ~ 



Sl«-SI + l; DS«-7 
DS«-20EC; BF4.D 
XcDS^b LIT", S 



CHH> 0S«-LIT"*«; si*uoc piMix; 
IJ iJl«-Dl-2; DS«.FiLL; Di«.BF; 

SI^ L QC S; pS»4 de c; P^<-5 llT't, a ».1L 



■■" } SI^ L QC S; pS»4 DEC/ P^' 
8F«.Un 0U0I-4i 0S*.3 FILL^ 
Dl-13; DS*.3 FILL); 



30924000 
30924500 
309 25000 



T 0049»0 
T 0050»1 
J O05H2 



os«.4 dec; 

DUBFJ DI* 
oi«-bf; DS» LI 



T"*"; 



30926000 
30927000 

:3092& QQQ 



T 0054 1 2 
T OOSila 
T Q056«2 



end; 
forgEtspacecsd); 

SPOuTe8CBF'0*ERRORMSG); 



30929000 

30929500 
30930000 



T 0057«1 
T 005712 
T 005e«l 



39 

40 
41 
42 
43 
44 
♦5 
46 
•7 
«8 

*9 
50 
61 
U 

a 

S4 

S5 

56 ; 



End errormesser; 
procedure errorpixehctype); value type; integer type; 



30931000 T 0059«0 

SiZe« 0060 WORDS 
31000000 T 0000*0 



ADDRESS • 
T 0000«0 
T 0000»0 



Comment loukS fuh rln-time-ehror action labels in a.gql 

AND HAnDlEs them, RETUf^MNG ONLY IF NO LABEL GIVEN; 



START OF REl 

PROGRAMS* 



BEGIN ARRAY AIT t*3*PRTD C * 3 ; 

NAME AODB; 
REAL l» G0T# AORiADORyLABLEJ 



segment; Disk 

3l001oO0 
31002000 



00714 



31003000 
3100*000 
31005000 



^0000 10 
T 0000 »0 
T 0000 10 



checkstackspace; 

IF 
IF 



TYPE »2 THENXOvRfLW 
JARCPlMIx#23.[3tl3 THEN 



*r ^Mni,r*rnA>cJtt.J'Ji,j inc. in ^ 

«pt«iiWi»f*|MJii.:i2o:)^0''T.HeN. ■.. , 

iiiiiiliiiiiliilii^lii^^ 



31005010 
31005050 
3i005i00 



t oooojo 

T 0005»3 
T 0006«2 



31005200 
3i00530a 
31005310 



T OOO8I2 
T OOlJlO 
T 001413 



BEGIN SI«-I;Sl«.Sl-2iOI*Dl + 6;DS*2 CHR END; 
IF G0T.t45»33*5 THEN MC ADR- 33*«^7777777777777; 
M[ ADR- 2 3*^77777777777777 7; 



ilffiliilii^iliPFr2l*fl 



31005320 
31005330 
31005350 



31005400 

ili 



T 0017M 
T OOI8I2 
T 0022»t 



^mSiii'^ 



TrTT 






■Mli 



3lW 



7«3 



W2l 



Jj 



n 

2 
3 

4 
5 
6 
7 



wHILt (AIT4-PRTD [AITNDX]) 

h;AKEPRESCNTC[H'RTD [AI 



,PBIT=0 DO 
INOX]] INX 0); 



31007000 

3iQoanoo 



0028 
0Q3t 



«3 



UAITtOj+i; 

00 I*l*l UNTIKCGOT*- CA00R«-AIT 
«TYPFri ORCT*J>^^^ a^ 



tlJ),OWNBlT AND ( AOR.CCF) 
LQQK rOB FNTRY 



31009000 
31010000 
31QU0QQ 



0036 
0037 
0040 



10 
»2 



IF GOT THEN it! WILL REINITIATE 
BEGIN iF (LABLE«-M[ ADR.MOMDXO 
IF LABLEM5 THEN 



THE GUY, SO SET HIM UP 
THEN 



31012000 
31013000 
3ini30! S Q 



T 0043 

T 0044 

■J 0047 



»3 

«0 
10- 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



IF LAiiE*fiLKCNTRs(PRTD£i6 

BtGiN IF PRTO tCURBLK 
BE GI N PBT D COURR 



3*€LA8LE.M0M^0))ThEN 
ONIR 3>LABL£ .BLKCNTR THtN 
t.KCNTffJ«-LABLF.BLKCNTR*lj 



3lOillO0 
*1 01 4 000 

aioi'sooo 



t O0«i 
T 0051 
T 0053 



11 

*3 
L3- 



asr; 
end; if(adgr«-la6LE.m 

LABLE«>lDM«-AnnR» 



OM)aO THEN 
PRTO[l03fMQMt2J 



3i0l6000 
31017000 

3 10 17 



T 005612 
T 0057«0 

1710 T 00^8 ' 3 



$ SET OMIT « PA0KET5 



A0CiR*AOO«&A0RC33«33t 
f F tfRRORMtfi mPH 



153; 



3i 017200 
3 1 017209 
31617210 



0062 

006 3 
0061 



»2 
1 3 



$ POP UMIT 



ERRORMESSERCTYPE); 

IF PRTDElARLFtCCFlj.PBTTsO THFN 



31017211 
31017220 

31017300 



T 006fl 

T 0064 

_I 006^ 



«2 
«2 



>9 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 T 

32 

33 

34 

35 

36 

37" 

38 

39 

«0 

41 

42 

*3 



MAK£PRES£NT(CiR 
DO UNtlLC*(AOOfi*HyNT 
AODR Cl3«-><CPHTa 



TDtLABLf:tCCF333.CCF3); 
{AOOR*l)))tCU33*4; 

[93 INX NOT 03 J 



31017400 
31018000 

31Q190QQ 



T 0067 

T 0070 

T 0073 



«3 
M 
i2_ 



ACDR [23«-MtPRTD 

(LABLE)[l8il8;l5]ipRTD [( 

PRTD [aj»P(DUP*L 



t833&0[10« 10«23& 
LABLE).CCF3H33j33Jl5]; 

Op J ^UPQf^ INX 2)i:33»33M5]; 



3i020000 

3l02l000 
31022000 



T 0076 

T 00'' 9 
T 0082 



«3 
13 

to 



GO INITIATE; 



end; end; 
End errorfixer; 



31023000 
31024000 
31 Q2500 Q 



T 0084 
T 0085 
I QMi 



»2 

10 



PROCEDURE JOBmE;sScmIX,q,A,B,C,D); VALUE mix,q,a,b,c,D;x 



START OF RE| 



32000000 

s£ g^ ln t; disk 



StZE' 00 
f 0000 



86 WORDS 
10 



ADOf^FSS ' 00717 



REAL MIX*Q*A'B»C»D;X 

comment » this procedure ca 
That i^ to be pre 



N BE USED to BUILD AND SPOuT A MESSAGE 
CEEDED 9Y a <^QB SPECIFIER> i^HlCH iT 



32000100 
32000110 
32000120 



0000 
0000 
0000 



to 

»0 
»0_ 



Builds automatically for the mix given^ 

BEGIN real BUF,TU 
SET omit s NOT(PaCKETS) 



32000130 
32000200 
3gO0O? 49 



T 0000 
T 0000 
J. OQ O Q 



«0 

»0 



LA8EL exit; 

BUF ♦ (GETSPACE<9#0#0)*2); 

IF MIX. « THEN 



32000280 
32000 300 
3 PO 00 A 00 



T 0000 
T 0000 
I OOQg 



10 

io 



BEGIN TJaSPACE(3C);DlS 
STREAM(M»«MtT+10 
BEGIN DSl*2LlT"0 



Kl«AIT(-T#30#0); 

♦ 5xSYSNQ3*F J»»M C T* I l + S^SYSNO 3 *8UF ) ; 

J " ; S 1 J blocm; S I »gSl-»i;DS;»7CHR; 



32000500 
32000510 
32000520 



T 0003 
T 0007 
T 0013 



»2 
»3 

»2 



46 

47 
«8 
49 
BO- 

B1 J 
52 

a 

S4 

55 
96 



OSt* 

FOftOETSPAC 



LIT'V";SIiaSI + i;0S»»7CHR;DSI»3LlT''« 0"; 
ECT);Ti«CBuF*2)ft4[30>45i33;x ^ 



32000530 
32000540 
32000600 



OOH 
0016 
00 U 



13 
12 



end elsex 

if JARROWtMIXiXO 

begin; StRlamcc* 



THEN 
0»R» IF CT» PRY0R[MIX3)<0 THEN T ELSE T tNx 
|p|::p^A;:V':,i-. If .^|^iip§|0:3*0 ■: THIN. ■■,JAR.t«rx#30 3 



0» 



32000700 
32000750 
320 00800 



3tiifi::i«- 

32000850 



0019 
0019 
002 1 



13 
«3 

UL 



w 

m 
m 









DI «• DI-6; 
OS *■ LIT "I 
IF SCs***" T 



DS 

"; 

HEN 



«■ 5 
Si 



Mll; di ♦ buf; di «• 01+7;* 



j; 



32001000 
32001100 
32001120 



T 0032 
T 0033 
T 0033 



»0 
»0 
13 



BEGIN Si ♦ SUl; DS ♦ 7 CHRI OS <• 

SI ♦ SI + M OS » 7 chr; OS ♦ 

§ 1 t K^Q A* ^t »:S l »t ; OS » 



LIT " "; 
LIT "/"J 

7 chR; 



3200U40 
32001160 
3 2001,1 ^0 



T 0034 
T 0035 
T 036 



»1 
11 
11. 



EiND ELSE 



32001200 T 003710 



• • 



bEGiN 



SI 



si + i; 



us 

JIS- 



7 



chk; 
CHRi 



OS 



LIT V 



32901220 

3,gnGV240 



0037«1 
003811 



end; 
ds ♦ ixt "«♦•; si ♦ lqc 
c » DiJ nT «• riT *2i ns 



mix; OS «■ 2 

*• 3 FTLLIK 



DECl* 



32001260 
32001300 



003813 
003813 
00 3 4i f 



END STHEAM/ 
T ts POLiSh; 
i SET UMIT M NQT(PACKFTS) 



3200U5Q T 
3200U75 T 
3200U99 T 



004012 

0040*3 
Q04l«l 



END EUSE 

BEGIN F8RG£TSPACE(BUF); 

GO TO exit; 



X NO SUCH Mix 



32901550 T 
32001575 T 
3g001AQ0 T 



004111 
00«1«1 



10 

11 

12 

13 

14 

IS' 

16 

17 

18 



end; 

STREAM(A*-CA3*2«-0/T);% 
REGIN SI «• a; PS «■ LTT 



:lll 



32001625 T 
32001700 T 
3?QQlflOQ T 



0043»0 
OO^'SIO 
0Q4A»1 



4<tF SC jt " + « THEN 

iJESiN Tauuy * 7; si .- Si ♦!; 

6(LI IF SC « "0" THENX 



32001900 T 
32001910 T 
32101920 T 



004510 
004313 
0Q46<1 



BEGIN TALLY «. 
END ElSt JUMP 

z *■ tally; OS 



TALLY + 63' Si > Si ♦ i; 

OUT); I 

*■ I chr;% 



32002000 T 
32002050 T 
32002 070 T 



0047 «0 
0047 « 2 
046 «-2L 



<9 

21 



ENfi 



STBgAMi* 






♦ 8);i 



32002090 T 0049*1 
32002100 T 0050»0 
320022Q0 T 0050*2 



22 



24 

2fi| 



J8:r 



27 , 

M 

29 

30 



EX IT J 

EML 



SPOUTERCBUf & QC9:9S9]*UNlTN0f n; 
jaBMFSS;% 



32002300 
32B02350 
3 2002 4 00 



0050I3 
0052'2 
005? «.2- 



PRQCEOURE MIXpRINTCa); vAluE Q' REAl Qi 



StZe* 0053 WORDS 
32100O00 T OOOOiO 
START Of Rel SEfiMENTl DISK AOD«eSS» 00719 



ccmmenT this phocedure Invokes 

OF EACH ACTIVE MIx;X 
BFGI N R EAL l»li 



gOBHESS To TyPE THE JOB SPECIFIERS 



32100010 T 0000*0 
32100020 T 0000*0 
3 21 Q0100 T 0000*0 



31 g 

32 I; 
33 



FOR 1*1 STEP 1 UNTIL MIXMAX DO 

IF JARci#*3 "0 Then* 

BEGIN j88Mt5SU*Q*»0>-0»-0*'0); 



T *• 1 end;x 



32100200 T 0000*0 
32100300 T 0002*0 
32100350 T 0003*0 



34 

3S 
36 

37" 

38 

39 



if not t thenx nlll mix 
begin; stREam(t*-t«-g£tspace(2,o,0)+2); 
spbut(t & q[9:9:9] );x 



DS«-ULIT " NULL Mlx«-";x 



32100400 T 
32100500 T 

32100600 T 



0009*? 
0010 |6 

0015*1 



END NULL Mix; 
END MiXPRlNT'X 



32100700 T 0017*0 
32100800 T 0017*0 
St2E< 0018 WORDS 



40 
41 
42 



$ SET UMIT » NOTCDATACOM AND DCSPO ) 
PROCECURE DDLlTTLE(aK»T*A#B#Z); VALUE T»A*B; 



REAL DK'T'A'B'ii; 



START OF REL 



34999999 

36001000 

segment; DISK 



T 0000*0 
T 0000*0 
ADDRESS w Q0720 



BEGIN COMMENT FILE «&a; 
LABEL E#L; REAL t; NAME 
DEFINf XgREFLVEPlMlx3i» 



N«i2; 
DS»TEHMlX.CcF3iiPlf<lXf; 



36002000 T 0000*0 
36003000 T 0000*0 
36004Q00 T 00 0* 



(6 
47 
18 



IF OK THEN GO E; 

L» FlLEMESS(A'B»Nt03'NCn»N[2]»Nt3]#Nt43)i 

X»"T&iC2*47tl]; COMPLExSLEEP(X>0 OR Q*OK OR 



OS); 



36005000 T 0000*0 
36006000 T 0001*1 
36007000 T 0006*2 



50 
61 1 
52 
53 
54 



28852100 ACCIDENTAL ENTRY At PlMlX 

IF OS THEN SO ti ir NOT THEN If NOT WMY§i.£^PCT) THEN GO H 

Et NT6*X; X»Q ":■;••• 



36008000 T 
3 6 O09 0QO T 



0017*2 
0021*2 



END OF DOLITTlE; 

REAL PROCEDURE FlNDQUTpUT(MlD/FIU»REEL/cOATE*CycLE*TYPE^FoRMS»KlND J j 



36010000 T 0023*0 

SIZE» 0024 WORDS 
370 00000 T 0060*0 



START OF REL Simmt^mm AWlIil • 00721 



55 

56 



::isS 



&MKfii(-MiMii&$:k'i 



B £■ Q I ^ i>j jf- Q £ PI (J 1 L , G ^ Y ^ Qo J y , e 5 jw, GOT c ; 



iiOiM:s^,is;i;:Nai. 



57) 



37003000 T 0000*0 



# • 



>r 



17 
IB 
19 



22 
23 
24 
2G 
26 
27 



29 



34 

35 

36 

J7" 

38 

39 

40 

41 

42 



47 
48 



49 
50 
51 



S2 



55 
56 



REAL u; 

LABFL EXlT/SW^QN*nWTf ARpUiNU#nuKin>X/RQUND.CLATMTMHERE*Sl]MEMH£HF; 



3/003100 
370Q4nOQ 



0000»0 
Q.OQQ«n 



REAL MiDaMlOJ XFAKE OUT CUMPIUER 
$ SET OM^tT • ifOKPACKETS) 
LABgL W3I 



REAL SUBROUTINE [JSED' DS£D*T tRM IX . [ 33 « 153»P iM IX; X 
LABEL CP*MT,SU»PP*CKFM*OOITOvER; 
DEFINE PiMTOG=(TYPEaO OR TYPE GEQ ?0)»i 



37004100 

3rooai9v 

37QQ5nQQ 



QOOOlO 
0000 1 
OQQO«f> 



%P 



swiTCi typesw*cp*/<ound*mt»5u#«quno»su>round*pp»pp#mt; 

REAL SUBROUTINE printer;* 

BEGIN IF LAB£LTAeLEC203»0 THEN BEQIN U*20j P(l) £nD ElSQ 



37006000 
3700/000 
37007100 



0000 
0002 
ono? 



%P 



_Em 



IF lABElTABlE[2U = 

printer^-gotl^p;* 
printeb;* 



then begin u<-2i; PCD end Else p(oJ;* 



REAL subroutine PTPUNCH;X 

6E6IN IF LA8ELTABlE£26)»0 THEN BEQIN U*26; PCI) END 

If LAa£LTAaLEi293»o Then Segin u*29; pci) end 



Elsex 

ELSE p (o);x 



PTPUNCH«-GOTP«-P;« 
END PTPUNCHjSI 
REAL TWT2*T3;* 



"REAL SUBROUTINE PUNCH) X 

eeaiN IF LA8EuTA8LEt223«0 THEN BEQlN U*22;p(l) END EtSE P(0)i 
PUNCH*GOTC»PJ 



END PUNCh; 

REAL SUBROUTINE MAGTAPE;X 

BEGIN IF NOTCGUTL OR gOTB 



OR gOTc) THENit 



BEGIN IF TWO THENX 

Begin for u*o step i until i5 oox 

IF CMULTITABL£I:U3 EQV TnaNOT ThENX 



IF LABELTABLECU]<0 THENX 

IF RDCTA8LECU3.[8»6]3P1MIX ThENX 

IF (T3»PRNTABtECU])<0 THENX 



IF MtMtT3,tl5U53-33 INX 

BEGIN Pen; GO owT ENo;x 



SJ.CfllUl THEN* 



ENu;» 



FOR U«-0 bTEP 1 UNTIL la OOX 
IF LABELTABLEtU] = FHEiM BEGIN 



end;x 



PCi); GO QWT END'X 



vp'co>';x" ■ ■ 

OWT I MAGTAPE*QOTT*P; X 
END MAGTAPEIX 



SUBROUTINE BAOFm; 
BEGIN 

Tl4-^iETSPACE(lO*0*0)>2; 



XbUILD AND SPUUT BAD FM MESSAGE X 



XRhR 
XRHR 



STREAM(A*TINutU3»MX<-PlHIx*Tn; 
8EGIN DS*i9 LIT "INVALID INPUT 

si*loc mx; os»2 uec; os*2 



UNIT •♦; 
LlT"FM»; 



XRHR 
XRhR 
XRHR 



e n d; 



si<-loc a; sifrSifia; i)S4.3 chr; 
DS*LiT ••♦♦•; oi«-oi-a; ds«-fill; 
SPOUT (Ti?; 



ENP 



LA8eLTAaUtU3*PH4; 

RRRMECH4>RHi^MeCH AND 

BAOFrt SUBftOUTINl 



xrhR 

XRHR 



READY*R£ADY AND CU«-NOT Tl/vO(U>); 
u; SAVEW0R04.SAVEW0RD AND u; XRHR 
_^ XRHR 



REAL SUBROUTINE BKUPTAPE;* 
BEGIN IF NQTCGOTL OR GOTO TH^N 
FOR U»0 STEP 1 UNTIL 15 POX 



If CUA8C«iTAeLE£U3 £«V T3>»NgT THENX 
IF H4ULTUA8t.etU3 EfiV T2J«N0T THENX 
flratN PLiii go AftOUNQ EkQit 



p ( ) ; X 



37008000 
37009000 
37010000 



0002 
0002 
0003 



37OU0OO 
37012000 
37013000 



0005 
0009 
QOtO 



37OHOOO 
37015000 
370^6000 



0010 
00 1 1 
00 13 



37017000 
37O18OOO 
37019Q00 



0017 
0018 
OQ lfl 



37019 1 00 
37019200 

370 19300 



0018 
0019 

jmzz 



370l9«00 
37020000 

370 210 



37022000 
37023000 
3 70 2 t o Q Q 



0023 
0023 
00 2 4 



0025 
0026 
0028 »Q 



37025000 

37026000 

370?7000 



0029«3 
003l»l 

003'< «1 



37028000 
37029000 
37030000 



0035»1 
0039»2 
0Q<t3»Q 



37031000 
37032000 
37033000 



37034000 
37O3SOOO 
37036000 



0043S0 
0044«0 



37O361OO 
37036200 
37036300 



004812 
0048 13 
00491 2 



004913 
0050«0 
0050«0 



37036400 
37036500 
37036600 



005211 
0053»3 
005612 



37036800 
37036900 
370370Q0 



37037100 
37037200 
3703/300 



37038000 
37039000 
370A0Q0Q 



0057»2 
0058H 

0059Jt 



006011 
006410 
006 612 



0066«3 
0067«0 
006810 



37041000 
37042000 
370^3000 



T 
T 



007010 
007113 
007,4 1 



37044000 T 0077«2 



• • 



n 

2 
3 

4 
S 
6 
7 



AROUNn* aKUPTAPt*Gr]TB«-P;X 
E.m B.K..UP T A^E.; ^ 



$ SET OMiT • NQT(PaCKETS) 

IF TYPE>1 AND rYPEX4 AND 
ROUNn» IF TYP£»1 QH fyPg^n OR 



370ab000 T 
.170/iftOOO T 



0077«3 



TYPE^6 AND TYPE<i5 THEN GO SQMEWHErEj 
(TYPE>16 AND TYP£<19) THEN 



37046004 T 
37046020 T 
37046Q4Q T 



007813 
0078«3 

0Qe6 « 



IF PRINTER THEN BEGIN 
IF TYPE=0 QH CTYPE>20 
IF PUNCH THEN BEGIN Kl 



IF TYPE-4 OR TYPE*6 OR 
(TYPE GEO 20 AnO NOT T 
BEGIN TUO; T2»IF TYPE 



KIND*-!; GO CKFM END* 
AND TYPE) THEN 
ND»6; GQ CKFM ENU; 



XP 



TYP£»16 OR TYPE*18 
YPE,C46ll3) THEN 
GEQ 20 THEN "PUTMCP 



OR 



37046060 T 

37046070 T 
37Q46Q7S T 



0089 » 3 

0093«0 
0Q'^5«1 



ELSE '^PBTMCP **; 



37046080 T 
37046090 t 
370 4 6100 T 



009910 
010213 
Q1Q 5I0 



10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

28 

27 

28 

29 

30 

Si" 

32 

33 

34 

35 

36 

37" 

38 



T3«.Pi222l2342546 
IF BKUPTAPE THEN 
IF MAGTAPE THEN 



a47; 
GO THEfiE; 



XP 
XP 



37046110 T 
37046120 T 
37046^40 T 



O1O9IO 
010913 
U 1, » 3 



Claimt' 



8E«IN MULTlTAaLECuJ«'T2; 

RRRMECHi-TWOCUJ OR R 
If' REELgQ THEN REEL 



labeltableCu3«--t3; 

rrmech; 
til. 



XP 

XP 



37046160 T 
37046170 T 
37946175 T 



oiuto 

OlUU 

oiiato 



TUGETSPACE(iU#0,0) + 4; XP 

STHtAMCUtsTlNUCU]#N»sPRNTABLECU3,C30Jl8 3* 
A4-REEL*B«-DATE/C»CYCLE>D»0*PN«.TYPE GEq 20* 



37O4618O T 
37046190 T 
37046192 T 



O12OIO 
0l22«l 
0^24»0 



BEGIN 



T* 
0S*12L 

PN 



Ti-2); 

IT" NEW 

to*ou 



PBT ON" 
PI*DI*'6 



; si«"lQC \ji si*si+5; 

; DS»2LIT*'UT*'; DI»0)J 



XP 



37046194 T 
37046200 T 
37046205 T 



0l25«3 
0126>3 
0129»0 



DS<-3 CHR;ds«'25lIT"«- LABEL OPBTMCP OBACK-yP 
PNCU*Di; OI«"DI"H; DS*2UIT"UT"; 0I«-D)i 

SI »g LOG a; OS i» 3 dec; 



"iXP 



37046210 J 
37046212 T 
37a46?15 T 



013U0 
Ol34«3 
0l36«3 



Si:ai>i + 3;DS»«5CHR^SnaSj+7'0ll«0l + irDSl' 
13CDS»82 LlT«0«);OI«sDI-ll;Sl»«LOC N; 

nstg^ nee; ^ 



'ChR' 



37946217 T 
3704 6220 T 

37846221 y 



13711 
Ol38l2 
014010 



end; 

PCWAlTiaCTliaC8«38tl0]&5[2lU5»3]'0#U)*D£L); 
SP0UT(Tl"2); 



XP 
XP 



37046240 T 
37O4626O T 
37046?70 T 



0140>1 
0i40»2 
0l44»0 



THERE I 



Tl.Cllin««? 

pcwaitioccti 
labeltablecu 



1737; 

3'0»u)*deL); 

3»Cll53»g20j KIN0»7; GO EXIT 



XP 
_XP_ 



37046280 T 
37O463OO T 
37946320 t 



0145M 
0l47»0 
014813 



IF 



end; end; 

(TYPE GEQ 
BEG I N 



lis AND TYPE l£Q 18) QR JYPE GEQ 22 THEN 



XP 



37046340 T 
37046350 j 

37O4636O T 



0lb2'2 

015610 

0l5fl»3 



* SET OMIT » NOT(PACKETS) 

BEGIN 
% SET OMIT a NDTfPACKETS) 



37846369 ? 
37046450 T 
37046459 T 



0l59»l 

Oi5«»l 
015 9 M 



40 

41 

42 

43 ^ 

44 

46 , 

«6 

47 

48 

49 

50 

51 

52 

» 

S4 

55 

56 '.; 

57 s 



T3«'NEXTCDNUM(1); 
T2»=00i; 



e nd ; 



37046470 T 
37046ij80 T 
37046490 T 



0lb9»l 
0l60«2 

016H1 



KiN'0r«i2;' ■■.■: 



D^*-8 LlT»'0e* 

05 

SI 



37O465OO T 
37946520 y 
3704 65 30 T 



016111 
016211 
OI66IQ 



«»7 LIT''84 
ta LOC T3;S 



1.013'';dS*24 LIT«0''; 

ooooo'';dsi»io lit^o"; 
I>»Si*4; DS:«4 chr; 



'MmMmmmm 



37046S40 T 
37046560 T 
37O4656O T 



0l66>0 
0170*2 
0I^3»1 



0Sl«3 OECi 



37O4659O T 
37046600 T 
37046620 T 



O174IO 
Ol74»2 
0175«3 



S SET OMiT 



» NqTcS 
MtTl + 
GO EX 



hA 
IT 



REDISK) 
♦MIO&CTYPE 



GEQ 22)[3l47tl3; X CP 6K UP TOG 



XP 



37046624 T 
37046630 T 
37046640 T 



018011 
OI80II 
Ol83<3 



liiil 



FliEMESSC 



m 



F TYPE<2 THEN « "ELSE IF TYPE (lEQ 20 THEN 






XP 



■■■■3f©it<|ii!ir?p' 



0184»1 
018411 
Olgy»3 



37046700 T 0l9ll0 



m • 



2 
3 
4 
5 
6 



"PUT" ELSE. "PbT")C30: jOMBJ^ 

CU' TYPE<2 TH£N "RQD " ELS E " mT RQQ" ? f MID^FIP* 



370^6710 T 
370<<<>720 T 



0194)2 



REEL#CDAT£«CYCi.E)i REPLYtPlMIX3» »-VWY&VOUt 36» 42l6]; 
CCMPiEXSieEP(((If Ct\PE'6 aND TYPE^gO) THEN If PNTOQ THEN 

PUNCH ELSE PRINTEa ELSE 03 OR REPlYCPIWIX} 



37046740 T 0199*2 
37046760 T 020310 
37046770 f 0203*0 



36007000 ACCIDENTAL ENTRY AT 



>o oRciF TYPE>i Then bkuptape 

D3EDn; IF DSED THEN GO X; 
DSEU 



OR MAGTAPE ELSE 0) QR 



37046780 T OgOj'O 
37046800 T 0203«0 



IF NOTCGOTB OR GOTT OR GOTl OR GOTO THEN 
BEGIN IF NOT WHYSLEEPC V«Y&vOUt 361 42 I 6] ) THEN GO W3i 
IF PNTUG THfcN BEGIN U«-fi£PLY CPJM IX 3 . [FF3 f GO CP 



ENP J 



37046820 T 0224»3 
37046840 T 0226«3 
37046850 T 022912 



10 

11 

12 



OUKlc: 



TYPE<-iF Cl«-REPLY[Hll^Ix3»tFF])»l THEN 4 ELSE 

IF U=2 Then I else if U=3 then 6 eL5£ lb; 
KEPLY[PlHIX3»o; GO ROUNPJ 



XP 



_XP_ 



37046860 j 
37046880 T 
37046900 y 



0242:o 
0245J2 
250M 



13 
14 
15 



ENDi REPLYtPlMlX3*o; 

IF GoTB then GO THERE ELSE IF GOTT 

tF GOTC THEN KlND«-6 ELSE KtND*1J 



THEN GO CLAIMT ELSE 



%P 



3 7 04 6920 T 
37046940 T 

378 ft 695Q T 



025210 
02S3>1 

^Q25A-l-2 



16 

17 
18 



CKFMJ IF FORMS THEN 

BEGIN LABELTABLECU3«--FlDi 

00LITTLFCFALSF> 



MULTlTABLEtU3*MlD; 



XP 



37946960 T 0258«2 
37046980 T 0258 « 3 
370 47000 T 0262»0 



19 
20 
21 



AL. 



VWY&V0K[36J42I63&V0UC30«42»63&VFMC2*I«2I63# 
,,. FM"«TiNU[U3tl2«30»183#"RQO "jMiO)) 
NT6»VDK THFN GO LXTTl . 



3/047010 T 
37047020 T 
37Qfl7iQQ T 



026212 
0265«3 
QgdfliO 



22 

23 

24 

25 .:■ , 

28 

27 

28 

29 

30 



KlNO*-LAt3ELTABLEtU3«-MULTlTABLECU3*GOTL«-U«-0; 

iF NOT nSED THEN IF NT6,CCF3=VFM THEN 

I F CU^NT6 . [FF33A20 ANp 1 ^21 TH FN 



XP 



^RhR 



37O475CO T 
37047600 T 
3704760*3 T 



0269»1 
0273 »1 
0276«n 



BEGIN BAOFM; go ROU.ND END ElSE 
BEGIN LAaELTABLECUJ*-FlD; 
MUlTITARLFCUJtMinf KlNQtUNlTCUl 



Ll f4 3 f 



XRHR 
XRHR 
*RHR 



37047610 T 0279»1 
37047625 T 02e4»0 

370a7ft5Q T oaQftin 



FNO; 



GO 
END ElH 

GO x; 



exit; 

BEGIN 



HEPLYCPIMIX3*nT6; go oukid; 



XRHR 

end; xrhr 



Jt£- 



37047660 T 
37047670 T 
37n<'7700 T 



0269»0 
028912 
029H3 



31 
32 
33 



Somewhere: if not forms then gO sw; 

D0LlTTLE(FALSE»VWY&VFMC36t42t6 3*"#FM 
IF NOT OSEP THEN 



RCD«'*0#MID>; UI»NT6,tFF3J 



37047800 T 0292tl 
37046000 T 0293jO 
37046100 T 029710 



34 

35 

36 

37" 

38 

39 



IF U LSS 16 THEN 

IF PRNTABLELU3 .[1 J l3 

fiu TO x; 



THEN ELSE GO TO SOMe^^hERe; 



37O482OO T 
37048300 T 

37048 4 00 T 



0298«1 
0299«2 
Q30l«2 



SW» GO TO TYPESWLTTPE3;X 
CP« TYPE*"IF Usl THEN 21 ELSE IF 
IF U«5 THEN ELSE 22^ 



Us3 Then 20 else 

REPLYtPlMlX3*o; GO ROUNQJ 



37056000 T 
37058000 T 

3705 9 QOO T 



030310 
0309»0 

Q3ia»o 



40 
41 
42 



PPI DOLlTTLF(PTPUNCH*VWY»"#PP 
37046800 ACCIDENTAL ENTRY AT PTPuNCH 
Sm Tl«-FlO.[6tl83/X 



RQD"*o#MiD); GO x; 



37085000 T 031712 
3709 60 T Q326«Q 



43 
44 
45 
W 
47 
48 
49 
50 
51 
52 
M 

a 

55 ■< 
5«'> 



FOR U*0 STEP 1 UNTIL 31 DO* 
IF TINUtU3,t30H83»Tl THEN 60 
GQ TO MTn 



ONIX 



37097000 T 
37098000 T 
37099000 T 



032711 
0328*0 
33 2?t 



46 

4« 

47 < 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

564 

B7 



ONt DaHTTLE(LABELTA8LE[UJaO*VWY^"#,,, 

37085000 ACCIDENTAL ENTRY AT 
"ROD "»MI0)J GO XJ 



"&TU12«30I183# 



3710P000 T 0332' 3 
371000 1 T 03 39»1 



37100000 






37112000 
3rll3000 



034310 
034313 



IF USED THEN UU TO X; 

IF (Tl«.pRNTABLEtU3,[lS«l53)^0 ThENX 

BEGIN FILECL0SE£T1&3C188 33«15]);X 



37121000 T 
37122000 T 
37123000 T 



0350»0 
035l»3 

0353»3 



mk 



iiiiiimiiWi 
iiit«iiilia«iiiai»iisiiiii»ia^^^^^ 

BEG IN KIND*UN 1 t,C U 3 . 11 » 4 3 ; 



53.C39l43*i;X 



.iiiiiiiiiii; 



0360t0 



37173000 T 0362»2 



h 



lab£Ltable[u3*-fid; MuLTii able:cu]*mio;x 

RDCTABLF[U]«-P(DUP^L0D)&RELL[l4»36>10]&CDATEr2A»3HUJ 



end; EXITI 



iCYCLEC«lUH7]; 
FIN00UTPUT*U 



3717^000 



0365«3 



37174200 
37175000 
^yi7ftOOQ 



037013 
037310 

0373*0 



REAL PRUCEDURE F IND INPuT t Ml D*F lD*RtEU,CDATt * C YCl£#CDBOL, UL'OP /wODE'FN ) ; 

ST A RT QF R Et 



BFfiTK RCAt 



VALUE MI0*FID#R£EL#CDATE*CYCLE, COBOL* QF,MODE#rNn 
8EAL M ID/ FID' REEL.' COATE# CYCLE* COBOL *UL»OF# MODE' FN jX 
Tl.T3«tl*L0.ht*rTRST,IL; 



SiZe» 0375 WORDS 
37177000 T 0000«0 
segment; dtSk AnnRt^ss » n073a 



REAL A'CUBQL^ 
INTEGER S, count; 

INTFQFP U§A$I«IL^ 



37I78OOO 
37179000 
37lRQnOO 






16 
17 
18 



ARRAY rp8»L0i:*3; 

LABEL LOOK'SEE'SRCHOUT; 

LABEL START*WhY^SXtT<X'Y/REAOALABEL'REW*£Xn; 



371 801 00 
37180200 
37I6O3OO 



OOOOtO 
000010 
OQQQtn 



000010 

ooooro 

ooon^n 



LABEL QNN#DUN/FaIL' 
DEFINE UNLABELED * IJL*; 



37180400 
37180500 
37180600 



0000»0 
0000»0 
OOOQtO 



19 

20 



REAL SUBROUTINE DSED; DSE0*-TlrMIX, C 33 < 153*PiM iX jX 

SURROgitNE CH ECKT E^^MI X; % LET CaLLfR ATlFNn hIS RfSPQNSI rIL I TlfS . 



37180650 
37180700 
371 8 0990 . 



0000 «0 
0000»0 
000Q« Q 



Z3 
25 



BEGIN 

IF DSED 

BEG I N . 



37181000 
37185300 
37185310 



ooooto 

000213 

00 02 < a 



THEN 



o 



28 >; 

27 S 

28 

29 

10 

31" 

32 



IF CJAHrPiMlX/OJ EQV 
(JAKCP1MIX,U E«V 
BEfiTN 



''LIBMAIN")bNOT AND 
•♦DISK «)»N0T THEN 



37185320 
37185330 
37185340 



ENO 



u»=-i; 

GO TCI exit; 

El^F fiO TQ TNITTATF? 



37185350 
37165360 
37185370 



0003»0 
0003»0 
000410 



0004*2 
0006*3 
0009*1 



ENOi 

end; 



37185380 
37185390 
37185400 



0009*3 
0010*3 
00U.*0 



CHECKTERMIX 



34 

36 



36 

37" 



Real subroutine slaRCh^x 

BEGIN CGUnT*0; IF NOT dSeu 
set OMIT s NOT(PACKETS) 



37185410 
37185420 
37185990 



THEN 



3e 



SET OMIT » PACKETS 

BEGIN IF fL0»aJAHtPiMlX#61.t2t63) GEO 32 
BEGIN Hlf LQfcQ; qq TQ FAIL; ENQj 



37186000 
37187000 
37187099 



0015*0 
0015*0 
Qfll«>H 



THEN Hn»L0 ELSE 



40 
41 
42 



POP GMIT 
LQOKJ 



37187999 
37188000 
37188100 



0015*1 
0016*0 
0018*1 



0018*1 
0018*1 
0022*2 



FQH U«.LU STEP I UNTIL HI DO* 

IK (LABELTABLECU3 EQV FIDJsNQT tHENX 

ir (MULTITABLEEUJ EOV MIDJ«N0T THEN* 

IF CCH#R0CTABLECu3).tl4H'0jsR£EL) OR (REEL«0) tHENx 

IF €Tl*t24*l73"CDATE) OR (CQATEgO) THEN X 



37188101 
37189000 
37190000 



0024*3 
0024*3 
002610 



•8 



S SET OMIT 



IF CTl.C4l«7]aCYCLE) 
BEGIN 
NOT(PaCKEIS) 



OR (CYCLEaO) THENX 



37191000 
37192000 
37193000 



FAltl. 






'liili:f liiiiii:|:ifi:>,;^ti::^^ % ch > i 



37194000 
37195000 
37195009 



0027*3 
0030*0 

0033«g 



0036*1 
00 3910 
00 39*2 



S3 



56 
58 



$ SET OMlT 5 NOT(PaCKETS) 

IF LO » HI THEN IF COUNT » 1 THEN 
IF LQ«0 THEN IF (LU* «J AR [P iM IX* 63 






0041*1 
0043*2 



ONN* 



BEGIN L0l»32i 
IF L0«32 THEN 



IF L0»23 THtN 



HI»«»PSEyOOMAxTi 



GO SEE ELSE 
.[2*63)s23 OH L0»24 



37195099 
37195200 
37195250 

h .■.. ' ^ ' 5a. ' : ' jjm; ' »! .! ,iB5". ' . ' . 



END ELSE 



BEG IN 



U»23; HI*»24J END ELSE 



371952«0 
3719*300 



0043*2 
0043*2 
0043 *g 



LQJ» 0; HllsiSi END ELSE GO TO OuN; 




37195400 T 0057*1 



n^ 



12 



^5? 



h- 



DUNt 



GO TO 



ludk; 

IF 



CYCLE. LltlJ THFN % PgT 



BEGIN 

IF COUNT«0 ThEN if FI0.C1»53<3 

BEGIN FIQ.Cl>5Urifl.Clt53*lJ 



Then 



La*0; HI«-15/ GO tOOK- 
tND ELSE FIU.[1J5]<-U 
GO SHCHUUTj 



end; 

IF COUNT' 

IF MTn^n 



'0 THEN 
THEN* 



IF NOT CDATL.CUl] THEN X NOT LIBmAIN/DISK 

FUK U^-O 3TEP 1 UNTIL 15 DQ% 

IF (MULTITARI.FCUI EHV MID^rNHT THFNH 



16 
17 
18 
19 
20 



IF (RDCTABLECUi ,t2AU73*CDATE) 

IF l..ABELTA8LEtU3>0 THENX 

BEGIN C0U^T«.CQU^iT4^l; 



OR CCDATCO) THEN 



P(U*XCH)i 
Ei\U ELSE% 
IF R0CTABLECU].[e;6J=PlMiX 



imhJL 



22 



IF (Tl*Mi:MCPRNTAeiECU3.US!»l53*33 INX 53),C41|l3 

IF Tia«3«l3 OR Tl.t^OliJsO THENX 
BEGIN CQUKT<-CQUNT^i; t»ClJ«XGH) EnDI 



THEN 



24 
25 



See* 

end; 

SHCHOUT; 



END 



search*s<-count>o; 

SEARCH/* 



27 
28 



29 

30 



31 . 

32 ; 



REAL SUBKOUTlNt. RESEARCH; 
BEGIN 
SET OMIT a NOT PACKETS 



33 



P(SEARCh); 

DO PCDEL) UNTIL ( COuNT» kCOUNT-I ) LSS O; 

RESEARCH»S; 



34 

3S 



36 

37" 



END research; 

REAL SUBROUTINE HEEu;^ 



38 



AND «»367J^0 THEN 



39 



BEGIN IF (HI«-wAITl0CTl*LQ&?377C 18J33I 153*U) 

IF (HI AND NOT i,0)/0 THEN 
BEGIN BLAsratU); SETNOTlNUbECu^O); ST0PTIMING(FN*l023?i 



41 
42 



end;* 



FiLEMESb(-"PARITY ••,"0N ,,, "ST iNy [U 3 [ 24 « 30 S 183 , » 

MlD^F jd^reel*cdate*cycle);» 



IF DSED THEN 

BeaiN 

SeTNOTINUSECU/ 



0)J 



w 



bT0PTIMING(FN*10;i3); 

checktehmix; 
end; 



3719b«5C 



0C60»2 
O O^l' O 



37195550 
37195600 
3 719565Q 



006113 
006211 
006413 



37195700 
37195750 
37l95aQQ 



ooee'o 

0070'0 
Q 07 2M 



37195850 
37196a00 
37197000 



37197500 
37198000 
37199000 



007213 
007213 

0073»g 



0074»3 
0076? 1 
0078 to 



37 1 99 i 00 
37200000 
37?010flO 



37202000 
37203000 
372 040 00 



0079*3 

0002' 3 
0084il 



49 
SO 






Bl 



S2 



55 



SUBROUTINE SEARCHCQM; X FILE SEARCH FOR COM 30 
BEGIN PCDED; 

IF NUT SEARCH THEN U»g-1 ELSE 



itiiiiiiiiiiiiiiiiiiiiuiiiii; 



countj=if caUNT>8 Then a else counT; 



37205000 
37206000 
372Q700 



0086 «0 
0086*2 
QQ66«2 



37207500 
37208000 
37208^ )00 



0088(2 
0093'2 
0Q9AM 



0l00«3 
0l00«3 



37209000 
37210000 
37210090 



37210100 
37210150 
37210170 



010013 
0l02»l 

Qiq?»2 



010212 
Ol03»0 
010310 



37210200 
37210250 
37210300 



3721O4OO 

37210990 
372 11 000 



010310 
010410 
0l06»^ 



37212000 
37213000 
372HQ00 



Ol07«0 

Ol07»l 
0107»1 



37215000 
37216000 
37217000 



0l08»0 
01U»1 
011311 



37218000 
372181OO 
37216200 



0ll6>2 
OII8I3 
l2p»l 



372183OO 
37218400 
37219900 



0J20I1 
012110 
t 2 i«2 



37220000 
37221000 
1722 1 90 



0122«2 
0123«2 
0l25»0 



3722I1OO 
3722U20 
3722 H 4Q 



012910 
012512 
OigilO 






012610 
0l28»0 



013310 
0i33t? 



37221220 T 0i35»0 



T1^ 



fjHILt. (COUNT!=CtjUNT-l) 



GtQ UO 



IF Tl 
BEGIN 



37221240 
37 221 26< ) 



0137«3 
9HQ«0 



THEN 
Ti«g0f MCAltI30llgri»TINUrU3« t30«l63; 



37221280 
37221300 
3722 1 32 



140*2 
Ot«0«3 
Ol»lM 



E.ND LLSE 
BgGiN 



372213'»0 T 
3722I36O T 

37 2? neQ T 



0l«5»2 
OH6J3 
0H6«3 



Tli = i; MU3, £121183 i«TINUCU3.C3on83; 



end; 



tlNDJ 



37221 a 00 T 
37221420 T 
372 ?1 4# T 



Ot«7tl 
0l5l«2 
Ql5M? 



10 
11 



END' 

,,Gn f^it; ^ 



37221460 T Qi52«0 
37221480 T OlbSlO 
37221500 T Ol'53»0 



13 
15 



ST ART t X 



37221520 T Oib3»2 
37221990 T Ol53»3 
37g,220QQ T Ql53»3 



16 
17 
18 



IF UL<a THEN i»LAHChCGM ELi?E 

IF UL THE^J GU TO WHY ELSE * 

IF NOT SEARCH THEN5K 



37222100 T 
37222500 T 

3722 3 Q Q T 



01 56 » 2 
015910 
Ql 59« 3 



19 

20 
21 



WHYS BEGIN F1LeMeSS('*#N0 F1E"» 0' M I d» FlD'^EEl.' CDATE* CVCUE ); 

Fl«ST»»VUK4VWYt36J4ii»6]8VUL.C30»42»6 34vlLC24i42l63; 

IF COeOL TH E N 



37224000 T 0l62»l 
37225000 J 0i65»0 
372 25 Q50 T l 6S «3 



22 

23 
24 
2B 

26.; 
2'i 



FlRST:zFIRSTi.{v0FXDF)Cia»42!6H(VFRxUL)Cl2«42J6]; 
REPLY[HlMiX]«-'FiRST<ilC2«47 8 l3; 
COMPLEXSLEEFCHESEAHCH pR ( REPLY t PlMlX 3>0 ) qh paEQ); 



37225100 
37226000 
37227000 



0i69«0 
Oi73»l 
0175»3 



37113000 ACCIDENTAL ENTRY AT DSED 

CHECKTEHMix; 
.: IF S THEN S»SEARCH 



ELSE 



37228000 
3 7 22 9 OOP 



oies'i 

0184<0 



29 
30 



BEGIN IF NUT WhYSLEEPCF I RST ) THEN GO TO I^HY; 

I^ (T2t=CTl:=HEPLYCPlMlX3).CFF3) QTR 64 
BEGIN STREAMCT2t ); 



THEN 



IL 
MIP/FII) 



37229500 T 0i86«2 
37230000 T OI89II 
37230250 T 0l92»0 



31 
32 
33 
34 
35 
36 
37" 



BEGIN Slt«T2; 
LL» SHaSi + i; 
Sl»»Sn>i; 



IF SCX^L" 



Then qo to ll; 



37230500 T 
3 72 30 750 T 
372 31000 T 



Ol9 3»2 
Ol93»3 
0l94» 3 



end; 
T2«=p; 

NAMElDCHliiT2); 



MlD»gHi; NAMEIDCHI/T2?; 



37231250 T 
37231500 T 
37232000 T 



0j95<l 
Oi95«2 
0l96»0 



NAMElOCHl»T2)f FID»*HII 
F0RG£TSPACE{Tl.CrF3*l); 

GO TO Yj 



37232250 T 
37232500 T 
37832750 T 



019613 
0200*2 
020211 



40 

41 

42 

43 ~ 

44 

45 

46 

47 

•8 



EhO; 

IF T 

IF N 



1»VQK THEN GO TO Y; 

GT (lLJ=TltCCF3sVlL) THEN 



% QF/ FR 



37233000 T 
3723325C T 
37233500 j_ 



0202«3 
0202«3 
020410 



BEGIN U»»-i; 

REPLYCPiMIX3»*0; 
GO TO EXIT^ 



37233750 T 
37234000 T 
37234250 T 



0206*0 
0207*2 
0208*3 



Ei\o; 

UNLABELED«--LAbELTA8LElU«-Tl.Cl8«l5 3 J*<?314n 
P(U); 



37234500 T 
37235000 T 
37235^00 T 



0209*1 
0209* 1 
0212*1 



49 
so 

51 Jj 
52 

53 
S4 

55 

56 j 

f'5 



C0UNT«*i; 

IF LAeELTA9UECU3»0 THEN 

8EG.1N MULTITA8U£CU3*»MID^ 



37235^50 T 
37 2 35500 T 
372357S0 t 



0212*2 
0213*1 
021411 



uabeltable[ij]!»fid; 

END ELSE 

Begin MiOJ=MULTlTABLECU3.[6t423; 



37236000 T 
37236250 T 
37236500 T 



0216*0 
0217*1 
021711 



FID«»UABELTA8LECl;3.C6«423; 



..^.^«^.,^..,..*«^.,..^,,,.,,.^...^.^_ 






02 20 10 
0222*1 



37239000 T 0222«1 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 



20 
21 



22 

23 



24 
26 



28:;; 

27; 

28 
29 

30 

31 j^ 

32 

33 



34 

35 
36 

37" 
38 



39 
40 
41 
42 



43 
44 
45 
46 
47 
•8 



49 

SO; 

51;:/ 
52 

a 

M 

56 1 

B8'' 



^; 



END;x 

IF c:quNT>i THtN 



SxITJ BEGIN FILfMES5("*0UP ","FIL 

WHILE CCUUNT«-COuNT-l?iO DO 
RFtiTN IF ru«-PWl6 THEN IF MTQ^O 



♦♦*MlD#FlD#REEU#CDATE#CYCtE)' 



THEN 



IF 



{ Tl«-PHlNTAOLt[U]tCl5»15 3 )^0 THEN 
FIlECluSE(TU6'l2C18«33!li]); 
STHLAyCX«-lTINuCUJUD«-S»6ETSPACE(ln*Q»a)4-2); 



BEGIN Sl«.x; S14-SI + S; dS*8 lit " DUP ON "i 
DS*3 CHRi DS«-LIT *'*'*'* 

x«-pn 



end; 
Ti«-p; 

IF U>32 



TUFN IF CTDROWCU ■323;<0 THEN 



STREAM (OK*ClOTABLE£U •32#2)>Tt)^ 
BEGIN Ol*-Oi-l; DS*6 LIT "VOECK 

si«.L£]C dk; si«.si*i.; ds..? chri 



SPOUT(S); 



ENO^ 



E ND , 



37227000 



ArCIDFNTAl 



REPLYCPlMlXlls -VWYSVOKC36I42»6 3&VILC30!'»2I6 3; 

complexsleeP(oS£o or CRePLYcP1MIX3>0)); 
£ NT R Y A T Q __ 



CHECKTEHMIXJ 

IF (T1:=KEPLYCP1MIXU.C33S15J»V1L 
BEGIN HEPLYrPlMIX]»0; 



Then 



If Tl.tFF] > 64 
PCTi,[ib:i53); 
GO TO Xi 



THEN GO SXIT; 



TT 



Xi 



end; 

IF NOT WHYSLEEP(VWY&V0Kc36J42»63&VlLt3OU2»63 ) THEN 
BEGIN S;aSEARCH;GO axIT END; 

Replycpimixjuo; qo to start; ^ ^——^ 



end; 



LABELTABLECU*PJ.[1«5]«-P20i 
IF NOT UNLABELED THEN 
BEGIN FPBtaPRTLPlMlX^33; 



FPBCF?I3*»MI0; 
rPBCFN+lJ««FlD; 



end; 



IF u Lss 16 Then 

IF MID^C THEN 

B EGIN I F C T I*-P^^NTA9U[M38[15M5J?/0 



TH E Nit 






RRRMLCH«-TWQ(U) CR RRKMECH; STARTlMiNG C FN» U ) ^ 

IF UNLABELED OR IL OH CYCLE«tl«l3 THEN GO EXIT; 

Tl » (GEISPACE(11^0rO)"H2UlQ[flt3atl03&MQDEC2H^7tl3X 



RgADALABFLt IF REED ^ THEN IF FIRST THEN* 



3724000C 



0223«2 



372A0200 

37240300 
37a^0/LQQ 



0224)1 
O227«0 
022'?»1 



37240500 
37240600 

37240700 



0231 « 2 
0234«0 
235; 3 



37240800 
37240900 
37240910 



023911 
02«ltO 
0241'3 



37241000 

37241010 
372 41Q 2 



0242? 
024211 



37241030 
37241040 
37?iHnSQ 



0245 » 2 
0248*1 



37241060 
3 7241100 
37241200 



0250M 
025012 
Q25l«l 



37241300 T 
37241400 T 



0254 10 
02S7I2 



37241500 
37241510 

37?alSi?Q 



02641 1 
0265«0 
0267*0 



3724152b 
37341530 



0268(3 
0a70»2 

Qgym 



37241550 
37241600 

37241610 



027113 
027l»3 
0274t3 



37241700 
37241600 
37241810 



0277*0 
0278*3 
0278*3 



37241900 

37242000 
37242100 



0278*3 

0281*2 
0282*0 



37242200 
37142300 
37842400 



0264*0 

0285*1 
0387*0 



37242600 
37242800 

37S43fl00 



37244000 
37245000 
37 g46flQQ 



0287*0 
0287*3 
0269*0 



02* 112 
0293»i 
0297*3 



37248000 
37248500 



37150(^00 

37251004) 
37252000 



0297*3 

0300*2 
030310 



REW* 



BEGIN FIHST*WAITIOC?4200000000,0,U); GO REAQALABEl END ELSE 
BEGIN SEINOTINUSECU^U; FORQETSPACECT 1 , [ 33* l53 ) ; 

STUPTiMING(FN#1023); 60 TO START ENDI 



37253000 
37254000 
37255000 



030610 
0908*1 
10 91 3 



liiiiiKiiiiilwwiiiiiiSiii^^ 
'>im&mmmimmmmmmx!mmmmmmi:mammm: 



0312*1 
0316*0 



.f««iiiiiiiiii»iiiP 



IF 4 SC=DC THEN TALLY«*1 ELSE 



37255400 T 0323*3 



rf 

2 
3 

4 
S 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



21 
22 



23 
24 



2S 

26;; 
27 1 
28 
29 
» 



31 ,S 



33 
34 
35 



37 
38 



39 

40 
41 
42 



45 
•6 



»7 
•8 

W'f 
50 

Bii 

52 

a 

J4 

S5 
S6 

!) 



k 



uegin siisii; 
y» = Tally; 



IF H SC»DC THEN TALLV»«2; ENq^ 



end; 



IF(USASIt»p)>0 Then USASnAPE(Tl,tCF]»USASl*2*U#0); 
STREAMCM»0<F»0^R»0#D*O>C»Q*S»Tl INX DM 

BEiilN SI4.S; DI*-LQC i^f DS<-2 ^^OS; DS*3 QCJ i% 
061 = 5 OCT;DS{=ii OCT; 



37255500 T 
3725i?70Q T 
37255800 T 
37255900 T 
37gS6rtQQ T 



032A»3 
Q325«3 



IF {F»CyCLE or CYCt£«»0) AND (P( xCH )«CDAtE OR CDATEaO) AnOx 
(PCXCHJ'REEL OR ReEU«0)AND {(P(XCH) eOV FIOJ'NQT 0) aNd» 
((P(XCH) EQV MIDXNQT 0) THENX __^^__ ^ 



37257000 

37258OOO 
37 259QQ0 



032610 
0326>1 
Q33Qtn 



BEGIN 

end;x 



fuRgetspace(Tu[33»i5]}; Ti*e 3^0000005;% 
lo<-o;ti«-«eed; go to exit;x 



3-7260000 
37261000 
37862000 



0332«3 
033313 
0-13/4tl 



IF FIflST THEN QO REW;X 
t0i««>60' 00 UNTlU (FlRST»«REEO).U2«l3^ DO UNTIL REE0,Cfl2li3; 
IF USASI>0 Then do UnTR R£E0»[42a3 else FlRSTt»R£Eo; 



37263000 
37264000 
37265Q0g 



0334t2 

033810 

-03iLii3_ 



0343«2 
0346«0 
O 350»P 



EXITt 



La«-e'*o; 
end;* 

F1NDINP1JT< 



Go readalabel; 



37266000 
372670dO 
37267050 



03S0»0 
035l»0 
0357«0 



•un 



END FiNUlNFUTlX 

PROCEDURf STARTIMINGCFN>U)J VALUE FN/U; RfAL FN.u;X 



3/267100 

37268000 
3726900Q 



0362a2 
0363 « 3 
0363» X 



BEGIN ARRAY FRBq*]; INTEGER I*j;* 
FPH«.PRTrPtMTX» Jl;!f 



star! of REl 



37270000 T 036<»»3 

SIZE" 0366 

37271000 T 0QQ0*n 



WORDS 



IF U<32 THEN 
BEGIN IF FPBCFN*43aO THEN 
BEGIN IF fI»FPBrFK*3 l.t3Al6lwn 



segment; diSk 

37272000 
3727:^000 



THENit 



IF I NE<i U + 1 OR FP8CFN+2],C8M0J NeQ RdcT ABUEC^ J , C U « lO] 

THEN 

IF f l4.FPB.raMQ3)<riO?3»FTRLNr,) Thfn 



37273100 
37274000 
37275ono 



ADDRESS m 
T OOOO'O 
J OOOOfO 



00747 



8e$IN J*GETSPACECI+eTRLNG*2#l)+2;* 
SET OMiT • ShAR£OISK 



37276000 
37276010 
37276100 



0002»1 
0003«0 
OOQSIQ 



0008»0 
0011«2 
0012'^ 



POP 
SET 



OMIT 

QMIT s 



37277000 
37277999 
3797Bfinn 



001513 
0019»0 
QQ19I0 



NOT 



ShAREDlSK 

MgVE(ETRLNG>[FPB[FN3],J*I);x 
FDRGETSpACECFPB#t33»l5 3);X 
NFOnPlMIX-UxNOX]*- 



37278001 
37278099 
3 7278? on 



P«TcPiMiX>33»FPB*tWcJ3Utl*ETRlNflU8l 381103 i» 

FPB[FN*43<-0; FPBtFN + 3 3 ♦ C24I 12 J^O;^ 

end;x 

FPB[FN♦43»FPB[F^^^4]-CLQCK^P(RTR3;a; 

FP0tfN+33,t36«63*U-HU ' ~ 

If U lSS %6 THEN* ROC 4 PRN LOG ENTRIES 

BESIN ; 



37279000 

37279100 
37280000 



0020«3 
0020 « 3 
008,0 > 3 



37281000 
37282000 
37283000 



0023»0 
002412 
002610 



STrEAM(RI»R0CTaBLE[J3 .CU:10 3*D»*RDCTaBLECU3 ,[241173* 

Cl»RDCTABLECU3.C4l»73^Tl»CFPBtFN +2J3); 
BEGIN SH»LOc R;0Si»3UECJ0Sl»5DEC;DS> abEC ENpj 



37264000 
372»4t00 
37264110 



0030»3 
0035«2 

q 3 5«? 



m^n&smSMMWMI^^WMSBS^ 



37284120 
3 72 8413 
3 7284140 



0039f0 
004212 
g043 <l 



0043t3 
0046 »0 
004811 



Begin if (T*FPBtFN+43 )so 



liisifWS 



THEN 






BEGIN FPBCFN + 4J«-I+CLQCK + H(HTH); I«-FPBCFN+3 J , C 36 I 6 j«i i 

FP6[Fn*33 .[24I123»PCDUP) . [24 » 123* ( J4.TINU [1 J . Ci8 U23 ); 

ir I<1« T:HeN . 

,,. jr J>0 THEN FlUMESSff IQ^iJlNUtn . 

/itgMt»ie3#'*ERRgH$f">FP§CFN?»FP9CrN*n/J>0#0)j 



37285100 
37285200 
37285300 



005311 



TiNu[n.i:i6si23«-o; 



37285105 T 
If265310 T 

3728^400 T 



0053SI 

0055«3 
006i«2 



006613 
006?fa 
007010 



0073«3 



11 



# • 



>T 



16 
17 
18 



19 
20 



22 
23 
24 

25 

28:; 
27 li 
28 
29 
90 



31 
J2 



34 
36 

36 
37": 



39 



41 
«2 



46 

47 



49 4; 
50:'» 



52 



55',? 
56 ii 



two tNO ENu timing; 



REAL PROCEDURE 0lSKAU0RESS(HlD#Fltl'FP83# A>H» 10); 
VAtUL MlD*riDfFPbJ#A>HMO; 



REAL MlD»FlD*FPd3,AW0; 
ARRAY HL*]; 
BFGIK LABFL EHF > f Of 2 i 



% (SHM) 
START OF REl 
% CShM) 



3728bb00 T 0076«1 

SIZE' Qn?'9 WURQS 



% (bHM) 



37286000 
SEQiENTi DISK 
3 7216 f 00 



T 000010 
ADORE SS» 
T Q fO QIQ 



00750 



INTEGER i; 
REAL T* V; 
IF A^n THrNS! 



37286200 
37286300 
37?fl7000 



BEGIN T«-(A DIV Hi U t 30 « 12 J )><h tO ] , [42 « 6 J ; X 

IF HL9] LEG IJ'CIF h[l]«0 THEN ELSE T DIV H[13) THEN 

GO TU euf; 



37287250 
37287500 

37?aflono 



OOOO'O 

0000 «o 
ononio 



0000 »0 

000010 

onoflio 



If HCI »*I+103»0 THEN % 
IF 10 THEN GO TC EOF ELSE 
IF I0»2 THEN 



BEGIN 

T» = i; 

GO TQ 



NEW ROW NEEDED. 
* EOF ON A READ. 
1 CALLED FROM FILEQPEN 



37289000 
37290000 
37290100 



000|«3 
0005' 2 

ocio»n 



m. 



X DONT EXPAND THE FILE T^T, 



37291000 
37291200 
3y2Ql4QQ 



0010»2 
0012*2 
onl3ii 



tors; 



END 
ELSE 
IF Ht^] 



37291600 
37291800 

37292000 



00 14 « 3 
0015 ?1 

Q016»0 



THE N 



P(DlRECT0RYSEARCHc^M10#FI0* 
ELSE X NOT 
BEGIN 



t IN DlREClnRY^ UpnATF HFAnfR, 



37292200 
37292400 
372 92600 



-H&UCTFn'DEL) 
IN DIRECTOHY, 



0016»2 
001612 
Q1 6«? 



IF CV«aFPB3.C18l53 ) GTr 

V|»(IF V 6TR 20 THEN 

IF (VI»FPR3.[16t2]i GTR 



% (SHM? 



VJaCiF V GTR 2 THEN ELSE V) 
Ml'Qi % NU SPEED OR eU SPECIFIED 
HC13 i= PETUSERDlSKfHfanvU 



THEN X EU SPECIFIED % (ShM) 
ELSE -V) ELSE X CSHM) 

THEN X SPEFU SPEr.lFTfn XtSkM? 



37292800 
37293000 
3729 32 10 



ELSE 



37293220 

37293230 
37293340 



0017«2 
0020 « 3 
0020»3 



002l«l 

002310 
0Qg6»g 



end; 

T^HCn + I^T MOD 
STREftMCD^tTl); 



(SHM) 
(ShM) 

(9hM), 



Htn;x 

BEGIN SI«.D; 0S4.« dec ENQJii 



X (ShM) 



37293250 
37293260 
37293270 



EnFt 

EQF2» 



END ELSE* 

T«-o;x 



37293330 
37294000 
372950Q0 



0028'3 
0032'0 
Q0 33«l 



0035t2 
003512 
0038U 



oiskaddress«-t;x 

END OiSKadDRESSjX 



37296000 
37297000 

37 2 975 0Q 



0039«3 
0039«3 

Q0 4l t n 



PROCEDURE SETNQTINUSE(U#RWL); VALUE U*RWL; REAL U*RWL; 
BEGIN REAL l*Ji 



37298000 T 004UO 
37299000 T 004ll3 

STZg» 0043 WORDS 



START OF REl 



IF U<16 Then P(WAITiO(*4200000000*«»377#U)*DEL); 

St,EEP(CT0aU£3*5TATUS«ASK); 

RRR»<ECH»C<I»TWO(U)) AND SAVEWQRD) QR (<I»N0T I) AnD RRRMECH)i» 



37302000 

segment; disk 

37303000 



T OOOO'O 

address a 

T 0000«0 



00752 



BEGiIN 



READY^REAOY 
IF RWL THEN 



AND i;x 



37303200 

37104000 
37105000 



000010 
0003*1 
0004*3 



IWiliililiiiiBilPlWflfiiRlilill^ 



37306000 
37312000 
37313Q00 



BEGIN Sl«-Sj Sl«.Sl + 5; DS*LIT ••#'•; DS<t-3 CHR;X 

03*6 LIT •• rw/l "; SI4.LOC m; si«-si + i; 
DS»7 chr; ds«-lit *' »} si«-si»i; DS4.7 chr; 



37314000 
37114100 
37 I I 42 



0008«3 
0010*0 



«i 



EN0;X 



ai^iii 



i^MWiMiiiliiiiSit:;iiiW' :, ■ . . 



37315000 
37316000 
373 t 6 i 00 



0010*3 

ooia»2 



37116200 



0019*3 
0021*0 

.Q , .Qg.2 , » . 2 , 



iiiii«Wii 



0023*3 
0026*0 

002fl * Q 



37317000 T 0028*2 



56 ' 

57 



• • 



h 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

\'2 

13" 

14 

IS 

16 

17 

18 

19 

20 

21 

n 



23 
24 
25 
26 

27 i) 
28 



29 

30 

31 > 

J2:J 



33 
94 

3S 

36 

37 ~ 

38 

39 

40 

41 

42 



45 
46 
47 
•8 



49 



SI 
52 
53 
54 



55 :. 

56 ' 



SPGUTCJ); 



END ElSe LABeiTASLEtUS^S'lU; 

MULT ITABiEtU3*fiOCTABtECUr*Oi 
ir U<16 THEN PaNTABL£IU3»Q I 



37318000 



0028«3 
0029;y) 



END SeTNOTIMUSE; 
PRQCEnURE BLASTQ(U); 



37319000 
37319010 
37319n2Q 



0030*3 
0034*1 
Q Q36 *g 



37319100 T 0039»0 

SIZE» 0040 WORDS 
3/320000 T OQOO'n 



VALUE 



Ui HEAL U; 



REAL I*x; 

BOOLEAN Subroutine 
RE a IN 



START OF Rti SEGMENT) OiSk ADDRESS • 00754 

37 321000 T OOOOiO 

37a92fiOQ f omatn 



CHECKID> 



CHECK 10 » * ( I * «UK I T tXi 3 ) , 1 5 1 81/0 CJR ( J . CI 4 I U aN Q X ,Cl 3 » 5 J ^ f 3 1 ) ; 
If CHrCKlO THEN CQMPLgXSLrgPCNOT CHrcKlQjJ 



37323000 
37323100 
3/323200, 



37241400 



37323300 

37 323400 
37ag4nQfl 



ACCIDENTAL ENTRY AT ChLCMO 

Ir I.tl6«l3 ThE^ * SKIP I/O IN PROCESS 
. RFC, IN n=NFl AG(LOCATQUgCXtaI,EFF]nf . 



0000*0 
0000*0 
0001 «p 



0001*0 
0005*3 



fkd 



L0CAT«UE[X],[FF3*«e>777 7 7; 
UNlTCUJ.ECFJtsX; 
FLSE . 



37326000 
37 3?7UQ0 



0014*1 
-00151-0- 



UNIT[U] ,[5*433 :-Ci\UT 0).C18*30]i 
WHILE (I*sI,[FFJ)/977777 DO 
BFGIN R£TURNIOSHACECn; 



37328000 
37129000 
37330000 



i:sNFLAGCL0CATilUE[I3); 
END* 

En d B i, A$Tq j ;i t 



37331000 

37332000 

37333000 



00 1 71 3 
0019*3 
0021*3 



0021*3 
0027»1 
2 9*? 



37 334000 
37335000 
37 336000 



00 32 t 3 
00 34*0 
0036 * 



PROCEDURE BUlLDLABEtCLAaLE*MlD,FlD,REEL#CDATE,CYCLE,PFAGT,PTN,BLKO^E,!S 

____^ START OF KEi 



BSlZ£#RSl2e)JX 
VALUE LA8LE,Ml0,FI0>RfEL»C0ATE#CYCLEfPFAeT#PTN#BLK0DE# 
BSlZE*HSlZe;X 



Size* 0037 words 

37337000 T 0000*0 

segment; disk address . nQ7S6 



array lablE[*j;x 

KLAL Mio,fID'RE£L'CDaTE»CYcLE'PFaCT*PTN#bI-KODE*» 

bsize.hsize;* 



37338000 
37339000 
3734Q0Q0 



0000*0 
0000*0 
OQOQ*n 



begin;streamcd«"CPfacT3); begin 5i*o; 

prACT«-CALCULATEPURGE£PFACT))X 
STREAM(S*CMl03>LABLE);ai 



Sl«.SI+5; DS«-3 OCT EN0'» 



3734I0OO 
37342000 

37343000 



BEGIN DS+'e LIT " LABEL "/ SUS; dS«-2 WDS;s 

DS«-3 DECi 0S«-5 DEO DS«.2 DEC/ SUSl + i/ OS4.5 CHR/* 
DS<-H LiT '^O"; dS«-5 DECj Sl«-Sl -»7; DS»CHRjit 



37344000 
37345000 
37346000 



0000*0 
0000*0 

0000*0 



DS*5 OECJ DS«^5 DEC/ DS*!! LIT "O"* 

e:nd;x • 

IF (BSlZE«'LA|i£«C8*l03)>lQ THENl 
STREAM(J*.JARi^OW[PlMiX3»n«-[LABLEC103 3 );X 



37347000 
37348000 
37349000 



0000*0 
0001*3 
0003*0 



37350000 T 
37351000 T 
37352000 T 



0004*1 
0006*0 
0007*1 



0010*0 
0012*1 
0012*2 



BEGIN SI«"j; SI*SI + l; DS«-LIT " •«. 

^Sji-si + i; ds*-Lit "/"/ ds«-7 



os«-7 chr;x 
chR; i2(dS«-2 lit " ");* 



37353000 
37354000 
37855000 



End END guilolabelU 

$ set omit « PACKETS 



0014*2 
0016*2 
0017*3 



PROCEDURE FILEME5SCI'K»M»F#K*D*C J; 
VALUE l*K»H>F»HfOpCi _^ 



37356000 T 0019*3 

StZC* 0021 WORDS 
37356999 T 0000*0 






37357000 T 0000*0 

START OF HEl segment; disk ADDRESS « 

37357100 T 0000*0 



00757 



BEGIN REAL I*Li% 



37367200 T 
37357201 T 
37357299 T 



0000*0 
OOOOIO 
0000*0 



44 ' 

46 

46 

47 I 

48 

49 

50 ( 

51 

52 

53 < 

54 

55 

S6( 

57 



37359000 T 0000*0 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



L*GET5>PACt:(12»0'0)+2;iK 
STRFAM(2n»[n^J«-[JAREPlMIX^*n#PlMIX>L); 



37360000 T 0000«0 
37|iM0QQ T QOQSn 



BEGIN Sl*i; 

IF SC«!" + " THEN BEGIN TAILY4-1; OS*HT "* 
BEGIN S l«- ST4i ; IF SC ^" » ^ TH EN DStL TT " 



»y bi*si*i 

^ FN Dil 



END ElSEX 



37162000 T 0005 »0 
37343000 T OOOSil 

;^7 164000 T onono 



DS*? CHH; DiJ«-LIt 
2HJI*-UQC It IF 8 



SC^QC THEN BEGIN Dl*-li Sl«-SI-7; qS*? CHR;* 

DS» U IT " **f l, »Q I E NDi^» 



37165000 T 
37366000 T 
37367000 T 



000e< 1 

0009'! 

O Ol ltO 



Di*Lf si«-si + i; DS*7 chr; os*uit " "i u*di;* 

StOI^LOC Z; if 8 SCJ'DC THEN BEGIN OI*l; Sl*SI»8; dS*7 DEC; 

LoDi; Di*Di*yj DS«,6 fill; 



37368000 T 
37369000 T 
3737QnQQ T 



0012^0 
0013»2 
QQ15M 



Dl*lf DS*LIT 



; L<.ui; 



di»l; di»di-i; ds^-lit 



£N0)> 



:% 



37371000 T 
37372000 T 
37375000 T 



0016«0 
0017 «0 
0017»1 



13 
14 
IS 



z*tally; si*loc z; 5I«-si+7;x 

IF SC»"0" THEN B£GII>« 5l«.J; Sl*SI + l; oS*-? CHRI OS*llT •♦/";« 
SI«.SI^1J DS»7 CHR; DS»LIT '**";i 



37 376(300 T OOI8M 
3717 7000 T 00l«tO 

37 37eQQ0 T OQgfl*^ 



16 
17 



19 
20 



SULOC PlMiX; 0S*2 UECi 

L«-oi; Di*-Di-2; ps«-FiLL,; out end; 



OS»LIT 



'}% 



37379000 
37379500 

373fl0nQ0 



ENO;X 

IF P THEN BEGIN TERMINATED P IMI X); 

SPOUTERfL/Q^TYPE); . 



TtRMllMALMESSAGE(-t) EN0;I 



37381000 
37382000 
37383000 



T 0021 « 3 
T 0022 M 

J 0023 »1 



0023»3 
aC24l0 
Q026»l 



22 

23 

24 

25 

26 

27 ij 

28 

29 

30 



END FILEMESS;% 

PROCEDURE FlLLBuFFEKSCCUHHtNT^KjiNAL^CQBLL.NH); 



3738^*000 T 0027»0 

SIZE' 0028 WORDS 
37385000 T OOOOlO 



VALUE CUHR£NT#FINAL,C080L#NR; 
REAL ' CuRRENT^FlNAUfCOBOL^NRj 



START OF REL 



SEGMENT* DISK 

37385500 

37 286000 



adqRess « 

J 0000«0 
J QQQQtQ 



00758 



BEGIN ARRAY LOCATC*)n 

INTEGER I»J*K*D;% 
INTEGER FlRSTLQC'j^PRF.VLOC = K»CURLaCgD; 



37387000 T 
37388000 T 
37188100 T 



0000«0 
0000«0 
OOOO'O 



31 4 

32 

33 

34 

3S 



REAL T^IOCAT/ 
REAL Ti; 
REAL NF.Tl+1* 



X MUST BE AT THE TOP UF THE STACK 



37S882OO T 
37388250 T 
37188275 T 



0000*0 
000010 
OOOQtO 



LABEL LIinK; 

REAL BSIZEsCUHKENT/NsFlNAL'UsCOBQL^ALPHAaNR; 

IF ALPHA<512THEN ^ 



37388300 T 0000»0 
37388400 X 0000»0 
3y388f?00 T OOOOtQ 



37 

38 

39 ;,. 



BEGIN 

P(NR-(C080L GTR 0)>' 

IF COBOL THEN FlNAH sCURRCNTi 



% INITIALIZE NF 



37388600 T 000211 
37388700 T 0002»3 
373a8fl00 T QOOA»0 



«0 
41 
42 



J«-FINAL,C33» lijJ-K*CURRENT.i;33U5];X 
D*2&(N0T CURRENT)[i:22:i];* 
L0CAT»M[KfD3i NR«-NR-1J% 



37389000 T 0005«2 
37390000 T OOOS'l 
37391 0QQ T QQ l OM 



43 



«B 



FOR Ul STEP I UNTIL NF 0Q» 

BEQIN lORE«UESTCFLAG(FlNAL)»CuRRENT#LUCAT)iX 
MfLQCAT3*MfLOCAT3<tOC26t36t73 AND NQTfM OR I0MaSK3J> 



37392000 T 0013*2 
37393000 T 0015*0 
3739 00 QQ T 0016*^ 



46 
«7 
«8 



IF NOT COBOL THEN 

IF I"! THEN IF P(FINAl-iC3«5]*DUP)*6 OR PCXCH)»7 TheN 

B£GIN 



3739A025 T 
3739^050 T 
3739 ^1 00 T 



0021 « 3 
OO22I1 



•9 
50 

B) i 






37 19 M 50 T 



mmmM 

003g*1 



52 
54 



BEGIN DI •• LDC n; SI *■ BbF f BACCCSI * SI+4); 
IF a SC^DC THEN GO OWT; 

^.p' i .""... kflcl^N;; .j , ac(;;x s;i^^^^^«.;; ju^^2;^; , ;ds 4. n qq i -, 



37394260 T 
37394280 T 
37 394 300 T 



0035«1 
00 36*3 
Q037f2 



56';» 

56 5 



lisiii^iliiiiiliiiiiili»^ 
jpiiii^iMiiipiisiiMis^ 



ii:?Sll#I| DI ♦ OX-l,;; 






0039*0 

oo«o*o 

0040*9 



NDIV64CSI * Sl-32; SI «■ Sl-32); SI «• Sl-N> Si ♦■ Si + 4; 



37394450 T 0041JI 



• • 



>T 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 

20 



21 
22 



23 
24 



25 
28 



27 
28 



29 

30 



SIS 
32^ 



33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 



49 

50 



51 
52 
53 
54 



55 

56 



'52_ 



F^ nv 



GO on; 



f Sif32; Si «• ST432); st «• Sf*N; 



ONS 

OWT« 

FMQ STREAWi 



DI * LCC l; OS •• 4 OCT J 



3739A460 
373 9a'3QQ 



0043H 



11 *■ Pf 

IF P(UUP)sC 



37394550 
37394560 
37 394ft 00 



00«5I1 
004513 
004 5 1 3 



OR PCXCHJ/Tl ThtN TERMi NATEC Pi Ml X&lOfl t CTp 3 ) ; 



IF NR>0 THEN STREAMCNR,T*HCL0CAT3,L.QCAT)n 

BEGIN Si*LOCATJ SI*SI*8l OS«-NR WDS;X 
3I»L0C 13 DS*-WDS ENDjit 



373'>4650 
37394700 



END 



CUrtHENT.L33«l53«-K«-MtK + D].Cl8Jl33;» 
FINAL. C3i» 16UK+J;% 

END ELSt 



37395000 
37396000 
37397000 



00 46 50 
0046*2 

Qosn«n 



0050»0 
0053«3 
0054 ».^ 



BEGIN 

T*-ALPHA&Utl2»42<63 OR Hi% 

FOR I«-N-l STEH -1 UNTIL 



37398000 
37399000 
374nOnQn 



0055 « 2 
0059M 

006ltn 



00% 



BtGiN MtALf^HA+i ] <• ( CURL0C«-GtTiip ACE( BS UE + 4 ,2, 1 )+2j+2; 
SET OMiT s NOKBREAKOUT) 

IF FlRSTLOC-0 THEN F iRS TLOC»CURLOC; X 



37401000 
37404000 
37405000 



LINK! 



MCCuRL0C+l3*0' M0VE{BSl2E+uCU«L0C+i#CURL0C+2)i 

MCCURtOC3«-rLAGCT)&{PREVLUC + 2)tl8t33«153;X 
MtCuRL0C-»'BSIZE*3 3»FUA6(T)&CPRiVLQC*BSIZE-»Ui:t8i33 j i^l ;J 



37406000 

37406099 
37407000 



0063M 
0063«3 
0066*0 



prlvloc^curlucm 
end;% 
IF i«(-i} Then begin cuRLnc^FiRSTuOcj go to link f-Npj jt 



37408000 T 
37412000 T 
37413000 T 



0070*1 

0075*1 
0075* 1 



0077*1 
0082*1 

095 * 



END END FILL OR GET BUFFERS/ 
REAL PROCEDURE F I l£H£aDER( MlD,FID,NRO><S ,SI zE,BLEN.RlEN*S }; it 



37414000 
37415000 
37416000 



0089*1 
0090*0 
0090* ? 



37417000 t 0093*1 

SlZE» 0094 WORDS 
31418000 T 0000 *0 



Value mid'F1u*\rows*size#blen*rlen'S;x 

REAL MID/FIU;ai 



INTEGER NR0WS*SiZE'8LEN#Rl£N»S;« 
BEGIN REAL Q^LPERkSPER; ARRAY TsUC*!* 

INTEGER Ni>Rl>Li#Wj _^ 



START OF kel segment; Disk address « 

37419000 T 0000*0 
374^0000 T OOOQtn 



00762 



i SET OMIT s NOT ShAREUlSK 

LABEL TlFlLL^t^lT; 
SPER«-(BLEN-»29) DIV 30;>li 



37421000 
37422000 
37422100 



IF s. [42*63*0 Then rlen>bleni* 

SET OMIT s ShAREDISk 

. QtBStr.l3*33J 



37422199 

37422300 
37424000 



0000*0 

0000*0 
0000*0 



S POP OMiT 

$ SET OMIT s NOT SHAREQlSK 
LPER«-BLEN DIV HLENiX 



37425000 
37425499 

37425500 



OOOOJO 
0000*0 
0000*0 



IF (NROWS+SIZElaO THEN» 
BEGIN 

IF CNl|wS£CURlTYCHECKCMlD>rlO/USERCODEEPlMlX3»Q)) LSS tHEN 



37425501 
37425599 
37426000 



0003*3 
0006*1 
0006lt 



$ SET DMn s NOT SHAREDISK 

GO TO exit; 

S SET OMiT s NOT SHAREDISK 



37«27000 
37428000 
37428100 



0007*2 
0007*2 
0007*2 



0008*3 
0010*0 

ofioia 



Tt»Nl&P(,T#tJOO#XCH)tCTFJ; 
S SET OMIT ■ NOT SHAREOlSK 

Ni«-T{y3^-i; 



37428i9S> T 
37428300 t 
37428399 T 



0013*1 
0013*1 
O01 3» 3 



lF(Ll*TC03ai*14])»0 
Rl<-T[0] .C30I 12J; 
n «-M DiV Rl X T[Qj.[42;6]x30 ^■N1 



THEN Ll«-30; 

MOD RlxLi; 



37429000 
37429099 
37430000 



0013*3 
0015*2 
0Q15 < g . 



T 1 F I L L * 



TC7J* W* W OJV 30 DIV SPERxLPER 

♦CW OIV 30 nm SPERX30 ^ M MQO 30 ♦ RLEN*1 ) 
DIV RLEN^^U 



3743I0OO 
37432000 
374330O Q 



0017*0 
0020*] 
QQ2l * 3 



Ttrj^CTCti] fJiV SPER)** SPER; 



37434000 
3^439000 
37436#00 



0026f 1 

ooeeto 

003210 



< 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 

13 

14 i 

15 

16 

17 \ 

18 

19 

20 { 

21 



37437000 T 0034*2 



22 

23 ( 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 4 

36 

37 

38 i 

39 

40 

41 < 

42 

43 

44 f 

45 

46 

48 
49 
50 t 

51 
52 

53 ' 
54 
55 
56 % 

3 



w 



T[4] ! = (*H(DUP})r40[llU?': 1] GR 
END l l H ^ 



i; 



37437500 T 0037»0 
3743VOQO T 0040 »n 



2 
3 

4 
6 
6 

■; 

8 
9 
10 
11 
12 



SET OMIT •SHARED I SK 

BEGIN Ti*M Of CSETSPACEC30*8#13*e»36O0OO7O0OO2)l 
^ STRFAMtT?; RE6TN 6Q(0S»fl LTT "0'*? fhnlX 



37439999 T 0040»0 
374«0000 T OOMlO 
37<lfttOQQ T 004311 



S POP OMIT 

$ SET OMjT s NOT ShAREDISK 
T[33»XCLQCK*P(RTR); 



37441001 T 
37441099 T 
37441500 T 



0045«3 
0045»3 
0045* 1 



TC7] ♦ -i; 

T[n»«T[83la{CSl2E + <l.PER*n)OIV 

Tr93 «■ NRQWS; 



LPERjx sper; 



37442000 T 0047 » 2 
37443000 T 0049 «0 

3 74 4400 T 053 8 1 



end;* 

TC03 «-SpER4LPtRC30«36jl2J(iBLEN[l5i33»l5 3&RLENClJ34ll4j; 

FIL EH | -:ao£ R «• iNFtAQtTj; . „ ^ 



37445000 T 00S4«2 
374«6qoo T 00^412 
374470 QQ T 0058»3 



13 

14 
IS 



EXIT! 

ENO FltlHEAOtR/* 



37447500 T O0eO»0 
37448000 T 006010 
-^ SiZ Ei 62 WO RDS 



16 
17 
IS 



PROCEDURE PURGEIT(U); VALUE u; INTEGER Ui% 
BEGIN ARRAY LABlE»* 1 C * J j % 



star! of REl 



37449000 

segment; diSk 

37 . 450000 



T OOOO'O 
ADDRESS , 60765 

T QQQQ 'O 



19 
20 
21 



REAL HCW* + 0#EaF«*2n 
REAL M5CW»-2; 
P(O#0)l 



37451000 T OOOO'O 
3745I5OO T 0000«0 
37453Q0Q T OQOQtQ 



22 
23 
24 



P(WAirlO(?4 200000000, ^37 7 *U)^ DEL); 

LABLE«-CMt(iETSPACE(10»0/0)+<i3 3 8,lOr.8«38S l03&5t2l»45J33i:< 
BUlLDLABELCLAdLE,0»"X"#l,O>WO/PRNTABLECg3.[3O»18 3^0»0>O3;ill 



37453100 T 0000»2 
37454000 T OOOg'O 
37455000 T 0006«3 



2S 
26 
27 
28 
29 
30 



P(WAITlO(LABLE»«P37700000#U3»UEl.J** 
EOF «■«!» 17 37000000000000;* 
PCWAlTlO(cEOF3>g377QOQOO#U)#OEL)n 



37456000 T 
37457000 T 
37456 Q00 T 



0011*0 
0012' 3 
QQl3»a 



FQRG£TSPACE(LABLE.C33J15 3i; 

S£TN0TINUSECU*0); 
KIL lV[MSCw3?; 



37463000 T 0015«0 
37464000 T 0016«2 
37465000 T 0Q17«2 



31 

32 

33 

34 

3S 

36 

37 ~ 

38 

39 

to 

41 
42 
43 
44 
45 
<6 
♦7 
18 



END PuRGEir;x 

PRQCrOuRE KRtlNCHEBCH); ARRAY HL*3; 



37466000 T 0018»1 

Size* 0022 words 
37500000 t culqjuo 



BEGIN DEFINE EsHC7 3# , RLshC 1 3» ,RPB«H tO J . C 30 1 12 3# * 

MAXRO V^ $ = h [ 93 »* 



START Of HEL 



SEGMENT; DISK 
37501000 

375 01 5 00 



ADDRESS * 00766 

X ooooto 

_I 0000*0 



BCL*HC0 3.C42J6 3#,BRL«Ht8 3#; 
ARRAY AC*]; 
LABFL FnRGET«FXTT«AGArN*nnNFJ 



37502000 
37504000 
,3750500 



T 0000»0 
T 000010 

J Qnonin 



Integer nb*nbr; 

REAL I»J*K'T; 
A»*[MtSPA,g|:(4U3H40C 6»3flU 03 ; 



37506000 
37307000 
37^08000 



T OOOO'O 
T 0000*0 
J 0000*0 



•«o^>E?«#|:|*il^cF3^.i>-A ) i ■ 



37509000 
37510000 
375 11000 



0005*2 

oooaia 

0OtQ<Q 



NBR*sRL OIV BCL; 

IF RL NeQ BHL TtiEN 

FOR H»10 STEP 1 UUTli 29 00 



37512000 
37513000 
3ni4Q09 



375t5000 

.tiiiiiiii: 

3rS l»00Q 



0012*1 
0014*2 
QQ15V3 



•9 

50 J 

51 '!: 
S2 
53 
54 



.$':.;.'S:et... OM|;i:/,#.^iiAiiaiiii|li#i::;^^^ 






$ SET OMiT s 



NOT SHAREDISK 

brh«rl; 

if nb lss nbr then 



37516050 

37517000 
37 5 g0000 



0023*3 
0023*3 
0025*1 

;;;T^ ' . ' ^ ■':! ..^; ' ,; ' .WT! ^ n^^■^ ' ■ 



56 . 



BEttIN At03l.HCNT2l»l03; 



.vtt:ii«iiSs 

3752 1 &00 



0Q26I0 



GO TO forget; 



37521300 T 0032*1 



h 



10 

11 

12 
13 
14 
IS 
16 
17 
IB 
19 
20 



21 
22 
23 
24 

26:''* 



29 

30 



31 i 

J2| 

33 

34 

35 

36 



37 
38 



40 
41 



42 
43 



4S 
4fi 
♦7 
«8 



SO 
51 
52 
53 



S4 

5B 



5« 

5'f 






D-t-NRRx^O; 



Again* ifcnti'snbr oiv jj*o 

IF CNT2I«N8 OIV Mi) 
. IF NBR WQD J»0 ThLN 



THEN 60 TO DONE; 

GTR 19 THEN GO TO oaNE* 



37S2U00 
375??nQ0 



DPNLI 



BEGIN IF (NT3;=NTl»<NT2+NTl) LSS T ThEN 

BEGIN K»=vi; r«*NT3; NT4S5NT2+1 EnD; 

end; _^ 

GO TO again; 

IF K»l THFN go 



37S23000 
37Sa«000 

ay &a snog 



0032»3 
0n32U 



0035 « 2 
003713 
0Q4Qto 



37526000 
37527000 
375?6000 



T O exit; 



10/ 



NT2i*nB DIV NBR 

Kl«=«l OIV k; 

FOR It»iO STEI=- 1 UNTII NT^ 



37529000 
37530000 
37530t00 



JiiL 



Begin if cntiishciJ'RD gtr o then 

FOR J»«l STEP I tNTlU K 00 
Af f T*lC)XK^J*ni»NTWJxRLJ 



37530200 
37531000 
375 32 QO0 



00^1»1 
0044i0 



004711 
004812 
049 *0 



005011 
0052»0 

05^? .Q. 



enb; 

FOR KlsNT« 
IF MAXRnWS 



37533000 
37534000 
37515000 



0055»0 
0057*1 



FCRGETJ 
SET OMIT 



STEP 1 UNTIL 19 DO A[K] J«o; 
lSS CM5>»fNT4 X20 W^T41 THfm MAXaawSr 
NEQ NBR THEN 



Jvlai. 



IF NB+I 

shareoisk 

FORGETl]SFRni.SK{ArNTft*lH.Hl . f MTP-Q 3 xBR^ »Nt4>.R| \ f 

$ SET OMIT » NOT Shareoisk 

MOVE(20,A#[HC10]]); 

HRHaHL? 



37536000 
37538000 
37538'SOO 



0065 5 3 

0068«0 

M1212- 



37139000 

37541995 
375a2QQQ 



0076»3 
0078J0 
QQ7fllQ 



EXITI 



F0R6ETSpACE(A)J 



37542005 
37543000 
3 7 5^14 000 



0083*2 
00e3»2 
08 5*2 



ENO* 



PROCEDURE DISkFIIEOPE-NC ALPHA); vALUE AlPHa; INTEGER ALPHA; 
BEGIN REAL RCWa*0>MSCws-2; 



37545000 T 0087*0 
37546000 T 0068*0 

Si7Ea 0089 WORDS 



REAL IOM«IOMaSK#iOHASK«*i; 

INTEGER N8urs«*2#FNUM« + 3,RLEN«+4,TYPE« + 5,I0«i+6,BLEN»+7pU»'*8* 

KINOg-»9»M 0D£»4i0>niHEC»:fll#F0RMSa*lg#cQB0L«4.l3* 

UNLABELEDs*14/QPTlONALa+15,CNTCTL»*l6; 
REAL Tl«+17*T2«+18#MASKs+l9#STATE«+20; 
REAL MFlDs^2l,FlD = *22; I NTEGER REEL s-t-23 , CDATF«»24 ,C YCLEa-t-25 ; 



3S0OO000 T 0000 »0 
START OF REl segment; disk ADDRESS » 
3ffOQlnOQ T Qoonin 



60769 



38002000 T 

38003000 T 
3B0O4Q0O T 



ARRAY FlB«+26[*J*FPes+27[*3;x 
INTEGER ACCESS»+28*FlB7»+29i 
LABEL AGN*EXIT; 



38005000 
38006000 
38007000 



0000»0 
0000*0 

oooo«n 



0000*0 
0000*0 
0000*0 



ARRAY HEADE«»+30C*3;X 
REAL T0G*+3i;X 
SUBROUTINE DISK SETUP; it 



36008000 
38009000 
3ftQ09iQQ 



0000*0 
000010 
QQQOtn 



BEGIN IF 
BEGIN 



STATC»C42»n THEN* 



38010000 
36010100 
38O U0OO 



$ SET OMi r 



IF NFLAS(FlBCl4 3»FtAG<FKEHEADER(MFI0 

sharedisk 



s NOT 

»rlD8;FlBCb3[U45«n#FIBt8],[20*5] 
*FlBce3 .[^5»23J»BlEN/HLEN^STATE)))<6 THEN 

;■■■ ''^^ viftiifct'liiSM:;, ;^ 

,..^^4...„..^........^.^^..^., .,,.,... .. 

ENO; 



38012000 
38013000 
38013100 



0000*0 
0000*0 
0000*0 



38013199 
38013300 
38013400 



0001*0 
0001*3 
0002*1 



0003*0 
000 3*0 
0005*0 



IF FlBC8]a20|28Jx0 THEN FPBC FNUM 42 3 . [ 18 >30 ]*DATE El^E 

BiiaalgglpiiiiMai ; .. .. 

BEGIN SI*=L0C H; DS*«8 DEC; ENoIx 



38013500 
30fl35lO 
380l35t9 

38013600 

38013700 
36013900 
38014000 
38014100 
360l4g00 
38014300 



0009*1 

ooioto 

0010*3 



T 

T 
T 



0010*3 

0011*1 
0011*1 
0016*1 
001613 
0017*3 



2 { 
3 

4 

si 



8 \ 
9 

10 
111 

12 

13 

,4< 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 { 

24 

25 

26 i 

27 

28 

29 % 

30 

31 

324 

33 

34 

35 % 

36 

37 

38 f 

39 

40 

41 I 

42 

43 

44 % 



0019*2 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 

.3 



m 



n 

2 
3 
4 



to 



12 

13 



16 
17 



19 
20 
21 



23 
24 
2B 
26 

28 
29 



30 



33 

34 



96 

37' 



39 



41 
42 
43' 



46 



W 



AGNJ IF COATE ^t:<«l AND CDATL NEQ HE ADER C 33 , [ 30 « 1 8 J THEN 
BEGlN:t WKITE DATE CHECK MESSAGF 



38014400 T 0020»1 
3aOH'^QO T Q021V? 



DOLITTuecFAtSE* 

VWY&v0F[36«42s63SV0Kr30t4ai63# 
"IHDAT CW*'>" »OQOOO''&TgCiaii8l303*MriD)J 



36014600 
3R0l«dl0 



002311 
0023* 3 



% SET OMIT s NOT SHAREDISK 



If TEHMIX.CCF]«P1MIX THEN 
BEGIN 

F[iHGFTSPACF(DlRFCTORYSFARC.H(MFU)^FlD* 



38014700 
38014800 
39014'3Q0 



0028>0 
002911 

on?9n 



■ 6 TO 



FI8t53,C13»3UlO)); 
INITIATEJ 



38014949 
38015000 
3fl0l5lfln 



0030^3 

003013 
003213 



ENDi* 

IF P(NT6*DUP)=VgK 

G U A&N 



OH PCxCH) = VOF THEN CDAT£«'0; 



sm. 



ENCn VERIFICATION 

FPB£FNuM+23.C18«303«8T2;X BCL DATE 
QLO FILFS;* , 



STAHTIMINGCFNUM* 18);* 
FPB:*PRTCPlt^IXv33; 



« STARTIMING MOVES TmE FPB 



HEADER^FlBt 143;X 
KIND4'4; u«>'i6;x 
MQ Qe«-Q;:t 



% SET UMIT 



IF NUT COBOL THEN UNLAB£LED«-1 ; % 

CNTcTL*t3l-EN<1023'X 

? N O T S HrtREDTSK , 



iF Fl8t83,C20»263»0 THEN % NOT CREATING 

IF HEA0ERt83<CC8LeN+29) OlV 30) THEN XBUKSI^E > ROWSiZ£ 

REGIN BLEN4.HEADERC<f3xani FnHGETSPACEtHEADEB INX n)i 



P(OlREcTORVaEARCH(-MFID'FlD'STATE.tl3»3 3+10)'D£t)^ 
Fl8Cl4]«-HEA0ER«-FLAG(FlLtHEADER(MFI0#HD«;FlBt53Cl j45Jl],o»0» 

^LEN^RLEN^STATF)); 



Fl8Cl8].t3il53*-BLEN; 

end; 

if cqbql>0 and cfibc 13 j t c22 » 1] 



OR TYP£glO OR TYPEa26) THEN 



BEGIN 



enq; 



cJbolj*3; 

8LEN »a 3LEN 



%IF COBOL-IO OR CUBOL-RANuOM 
* RlEN; % THEN CHANGE BUFpSlZE TU 

% 6UFFSIZE * RECSIZE 



GET8UFFEHSUIF CNTCfi. THEN BLENX 

EtSE CCBtEN+29) DIV 30)x30)+l^X 
NBUFStU* ALPHA MX 



IF COBOL = 3 THEN 
BEGIN CObOL I» l; 

BLEN i» BLEN •• RlEn; 



*IF COBOL-IO OR COBOL-HaNDUM 

X THEN CHANGE BUFFSiZe TO 

% BUFFSIZE - RECSIZE 






<1(1F CNTClL THEN BUEN ELSe 1023 ) C8 « 38 i 10 3a; 
&TlNUt ie3C3?3;53 QR M OR lOMASKU 
FlB[163,C2tl3l»(HEAUER.[3H23 AND (IQ + nJ^O; 



•9 , 

50 S 



BFIli; 



iittiiiiiiiiiiiiiiiitiiiiiii.* 
i|«l«i»isiliiiiii»l5«^^^ 



S3 
S4 



55 t 

58 I 



FIB[19]*<IF OIReC THEN bLEN-RLeN+I ELSE I) 

INX FlB[16J«iO[27J27l63; 
IF STaTe,[46»23/0 Then FlBEi93.l6» 103*RLEN^* 

mmmmimmsmBmmBmmmmiiMmm^mmmM^fm o y p 3^ 3 v ■ o r' . . •;/■ 

T2*IF COBOL THEN O ELSE riBCl93a33l 153»FIBC 163 , t 33*15 J; 

FIBC 1037[ 3«l5]««MtALPHA]-2; XHEAD OF BUFFER RING 



38015200 
38015400 

38Ql5'a00 



00 3311 
00 33M 

Q03ft»2 



38015600 
3B015700 
3801 iBOQ 



003710 
003910 



38015900 
38015950 
.3801.6000 



0042 «0 
00 43 JO 
0044*2 



30020000 
38021000 
38022000 



0044*2 
0045*2 
004710 



38 023000 
38024000 
38024Q0 4 



0047*3 
0049*2 
0050 » 3 



38024010 
38024020 

380 240 30 



38024040 
38024050 
16024060 



0050*3 
0052*1 

0054*3 



0058*1 
0061*0 
0064*0 



38024070 
38024080 
3602^100 



0066*1 
0068* 3 
0068*3 



38024200 
380 24 300 
380?4400 



38025000 
36026000 
3R0S»7nQO 



0072*3 
0074*0 
0Q7S*1 



38027100 
38027200 
38027300 



0075*1 
0Q76»l 
QQ79I1 



0080J1 
0081*0 
0082*1 



38027400 
30028000 
3a0g9000 



0063*2 
0083*2 
0066*1 



36030000 

38031000 
36032000 



0088*1 

0090*3 
0094*1 



38033000 
38|?3§000 
3603?ll<?0 



009910 
0lQ2t2 

'Oltltg 



38036000 
38037000 
36036000 



36039000 
38040000 



106*2 
0111*3 
Oll4*0 



O-Ujfl 



3804110C T 0129^2 



• • 



FOR MASK«-0 STEP 1 UhTlL iMBOFS-l 
MrALPHAiMASK3»(PCnijH»LQn)»T?>)i>; 



0U% 



&P(FLAG(FlBCl9-ABS(3xCOBOi)3)#XCH)[CTC3j 
ri8cl6J»«FlBH6] OR m; 

riBrs i .t ^s n3»Qi 



380/H2000 

3ao<<3nQQ 



38044000 
38045000 
360ft'>lQC 



0133M 
Ql37t2 



013913 
Ol43«l 
0U5^ 



IF PCCFldC i^]J,uOO).tFFjsi3 JHEN F IB [ 53 t t 1 1 ' 23 *1^ * INPUT ONLY, 
IF HEADt«C4],C10U3 AND NOT 10 THEN 
P T LEML^SC-^ C ODF "/"F lLF " »MF in >Fl Dy OHli 0?J 



3a045i05 T 0l<t7«3 
38945110 T 0l52«2 
3600120 T OlS/jH 



SET UMIT » MOTCPACKETS) 

END OlSKSeiUPJ* 
PCRrW>MSCW*STF); 



380A5149 T 0l57«l 
38046000 T OlS7tl 
38Qfl70QQ T QlftOtn 



to 
11 

12 



RCWtsRCW<iP(XCH3tCTC3; 
DISKSETUP; 

TF rnnnL<» tH£n * acjust 



UPPER HnUNH FOR CriBOL 6fi 



38048000 T 
38049000 T 
38Q49200 T 



0161 SO 
0162«1 
0163 ^0 



13 
14 
IS 



BEGIN MASK ♦ (IF lO AND 
THEN HEADERC73 
US£ CC(HEA0ERC0J 



NGT FiB[l33.C22ll3 

X HEAQERCll) nIV 



38049300 T 
38049400 T 
3q049sQQ T 



0l63»3 
0l64»3 
Ql6Al 1 



16 
17 
18 



HEAUERtC3.[42J63 ) X HEADERt03,[30J123) - 1); 
IF FIB[3]so OR FIBL3]>MASK THEN FI BC 3 J«-MASKi *UESSUR OF 2 LVILS 

ENu; „ 



38049600 T 
38049700 T 
3RO49S O T 



0168«3 
017113 
1 76M 



19 

20 
21 



IF P(TYPE,0UP)«10 OR P<XCH)«26 THEN 
BEGIN 
IF C090L<^ THCN % ALGOL QR CQBOL 68 



38050000 T 
38051000 T 
3 flO52 Q00 T 



0176J1 
0l78?l 
Ol78«3 



22 
23 
24 



Fn« M;*5K 4. bTcP 1 UKTIL NBUFS"! dO 
IF CGBUL THEN M[ M t AlPHA + MASk 3 iNX NOT 2} «■ NUT 
ELSF. MrALPHA-t-MASK3«.PfDUP#L0D)&l[?7»47> 



XU- 



38053000 T 0l79»2 
38053500 T 0l84«l 
3805 4000 T Om7«3 



2Bifj 

26,': 

27 
28 
29 

30 



FlBi:63*FlBt7]*o;X 

Fl8Cl73«'IF 10 THEN ELSE BLENiX 

FNn llSf 



3805500C T 
36056000 T 
380^7000 T 



Ol93»0 

0i95»l 
Ql9fl«0 



BEGIN 



T24.(MFig*-FlBClbJ ).[33Vl53;* 
FlH^«-FitJ[73; 



38058000 T 0198»0 
38059000 T 0i98l2 
36060000 T 2 00? ? 



Jit 

32 :' 

33 

34 
35 
36 

37' 

38 

39 

40 

41 

42 

43" 

44 

45 

•6 

47 

•8 

49 

SO 

51 

a 
a 

S4 

S5 

96; 

Pi 



IF COBOL THENX 

BE6IN IF C08Ql,>0 THEN 
IF NOT (PieygQ 



OR FlBtl33. £22*13) ThEN 



38061000 T 
38062000 T 
38062500 T 



O2O1 l2 
020lt3 

0203*0 



BEGIN FIB7 «- FIB7 - i; 

lPTIQNAL «• NBUFS - i; 
END ElS£ optional «• NBUFS - 



38063000 T 
38063500 T 
380f'4000 T 



0205»3 
0207«2 
0208»3 



ELSE BEGIN X COBOL 66 
OPTIQNAir *• NBUFS - i; 
IF OIREC THEN FIB7 * FIBC73 «■ FIBC33; 



38064200 T 
380 64 400 T 
38064600 T 



0209 12 
0211*0 
021211 



END^ 
FXD*FIBC16];* 

MASK«-0;X 






38065000 T 
38066000 T 
38067000 T 



0215*0 
0215»0 
0216*0 



38068000 T 
38069000 T 
38070000 T 



0216*3 
021613 
0218«a 



END'X 
IF CST 
IF MfA 



aTe. [46123X0 AND NOT COBOL) OR lO TH£N 
LPHA3tC2>n THEN 



380n000 T 
38072000 T 

3e . 07 , 3Q00 X,. , 



0221*0 
0221*0 

P22|;2 



.;F»M;:«iiiliiiil'iMfiiliifl^^ ■,;■'.■■■■■;,■ 






0225*2 
O g 27* 3 



FORMS* a( ( HE AD£RL0].C30« 12 3xTl)&DIR£Ct 1*4711 3 )*FIb7* 
HEADER' ia&(NOT HEADERt43)C46l47«l3)) > 1 THe^ 
BEG IK 



38075500 T 
38076000 T 
3 607650P , T , 



0230*2 
0233*0 
023,7'? 



10)iSSXiSiii 



msmnxsmmxmm'iim^&m^^^m'^ .• .O'.' t'hen 



IMSMMM 



•iMUiitSSMiSiMimm 






11 



BEGIN 



38078500 T 0245*1 



2 
3 
4 
S 
6 
7 
8 



10 

11 

12 

13 

14 

tl5_ 

16 

17 

18 



19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 



39 

40 

41 

42 

43 "" 

44 

•5 , 

46 

47 

•8 

49 

SO 

5r< 

52 
iS 
i* 
55 
56 



TEiHMlNATtCPlMiX); 
T£:MMNAU MESSA G t :t3Q?/ 



38079000 
3fl07»'iOO 



0245' 3 



iHOi 

lOREQUEST(FUAGtFlD)*MFID&lE24«47«U/MtT2-aJ); 
MrALPHAJtaFl AGfMFin)&Org6lgAt73 AND NOT 



38080000 

38080500 
3AQ«inQ0 



024711 
02«fti 
OgSMn 



CM QR iomask); 

END ELSE 



< for, IF INPUTS FULl HQR IF OUTPT 



38081250 
38061500 
38061750 



0253«1 
0255 «0 
Q25'^«0 



MCAiPHA3»9PCDyP#L0D)&lC27l47tl3 ANO NOT Hi 
IF COfiOt<0 THEN MCM| ALPHA J JNX NOT 23 * 

(IF FQHMSaO THEN FORMS DIVFlHllll FLSL NOT 0)j 



30 082 000 
38082400 
3fl0ftg«^QQ 



0SS7 1 
026110 
Q 2 t<t*? 



3TREAM(N«-NbUK^-1*T«-Ml ALPHA]* ALPHA )#X 

BEGIN si«-alpha; iii«-Si+6; DS4.N wos;x 



38083000 
38084000 
38065000 



0268«1 
0270«3 
02/1 > 3 



■■■■ £NDM" 

MFl0,C33tl5i*.T2*MtT2»23.tl8»l5]n 
FlD.t33«l5 3*T2»WASKlX 



38086000 
38067000 
38088000 



0272 ti 
027 2< 2 
0276 »i 



END/% 

IF (NBUFS-i)XOpTiQNAL THEN F I BC 16] , [ 33 U5 3 ♦-M [ AL PH A ] 

FQRMS»CF0RmS<-FI87 i>/|OD HE ADER [ 03 » C 3 Q 8 12 ] ? xRi.EnJ' 



3o0a9000 T 
38090000 T 
38091000 T 



0278V0 
0280* 1 
0284 ;.1 



SLEEPCCMtALPHA] J»I0MASK);X 
IF CObOU t THEN % NOT COBOL 68 

IF FliJi:i3],[22tl3THEN M [ ALPhA ] , [ 33» l53 »FlB C l63 fNX 1 ELSfr 



38092000 
38092900 
38093000 



T 



MLALPHAJ.C3 3:ib]4-FIH[16 J,C33!15] + FQRMS + 1;x 

IF (NouFS-DXOPTlUNAL AND lO AND NOT F IB [ 1 3] . [ 22 » 1 3 
FIB[ 17 ]«-0 LLi3E 



028713 
0289 » 3 
0290 » 2 



THEN 



Fl8Cl7J»-IF OIREC THEN F0RM3 + RLEN* 

£Li>E BLEN-FORMSiX 



38094000 
38095000 
3h 9 60 00 



0295»2 
0300»0 
O3 03«l 



end; 



38097000 
38098000 
3ft099Q0Q 



0305«0 
307'0 
0300 H 



EXITl 

PCP&HCW[CTC]'0*RDS'0*xCH»H<iP[CTF3^bTF); 
END DtSKFILEGPENJ 



38099100 
38100000 

3 8 101000 



0309« 1 
030911 
031 ??? 



PROCEDURE OTHERpILEOf'ENlNtAi.PHA); VALUE ALPhA; INTEGER ALPHA; 



START OF HEi 



SIZE* 0313 WORDS 
38102000 T 0000»0 
segment; DISK ADDRESS c 00780 



BEGIN REAL RCW« + 0»Mi3CiN = -2; 

REAL IOMsZQMASk* IQMASks+i; 
INTEGER NBuFSa■^2,FNUM = ^^3*RLENs■t.4,TyPEg■«'5*IDs^^6#BLE^s^t^7*Us^^e* 



KIN0a+9i»M0QEs*lQ*DiREC=» + ll»FORMSa'f 12j.C080Ls4 13* 
UNLABEL£Ds+14#0PTl0NAL»+l5*CNTCTLs+16; 
REAL Tis»17#T2»*1B*WaSK«.H9*STaTE«420; 



38102100 T 
38102200 T 
3r1 02300 T 



0000 SO 
0000«0 
OOOo:q 



REAL MFlDs + 21*FlD = + 22; iNTE^iER 
ARRAY FlB«+26t*]#FPBs+2 7[*J'X 
INTEGER ACCESS=*28*FIB7s429; 



REEL=+2 3,CDATEs+24,CYCLEs+25; 



38102fl00 
38102500 
3 8108 600 



38102700 
38102800 
38102900 



0000»0 
0000 10 
OOQOtO 



0000«0 
0000 JO 
0000 8 



ARRAY HEA0E8»+30C*3;X 

REAL T0G«» + 3i; 
REAL USASl«NTl# RHEAQaHEAOER; 



38103000 T 
3el03j00 T 

38 ^ 3 200 T 



0000«0 
0000*0 
0Q00*Q 



LABEL FlN0*DCN*DC19; 
SUBROUTINE TYPEQPEN;X 
BEGIN 






38103300 
3al03400 
,3.RiQ35QQ 



38103600 
38103700 
38lQJflQQ 



0000*0 
0000 »0 

OQQI'Q 
§«0i«0 
0|03t3 
0006 *» 



IF Tl THEN 



$ PGP QMIT 



BEGIN NT2>=0; 



38103900 
38104000 
38104100 



0006«2 
0006«3 
U 006 M 



IF U<16 TH&N 
STftEAM(Sl«PRNTA0Le£U3,t3OU83* Oi»CNT23); 

eCG iN SI* Lo c S i $, «• e deci x. 



38104200 T 
3fl404300 T 



000816 
OOOfll^ 

Oflttin 



CI *- Dl-7; OS «• 6 FILL' 



38104500 T 001U2 



• • 



2 

3 
A 
S 
6 
7 



end; 



TINUCUH6{30»183# NT2^ F'PBtFNUMj* FPBtFNUw + lJ* 
IF Kli\Ds2 OR K1ND*9 THEN P( REEL.CDATE ) ELSE 

P(O^O)* Pf cYcLL> td; 



3810^600 



38104800 T 
38iQ«900 T 
3fl 105000 T 



0012»0 
O0l«iU 



0012U 
OQl Z 1 1 



end; 

SUbRQUTlNL 



ENU> 



HFED/^ 



3810S1OU T 
38105200 T 

3aiQ^3Qg 



I- 



0(J20!0 
0020»0 
00 2?«Q 



4 

5 

6 

7 

8 < 

9 
10 

11 

12 

13 

14 

15 

16 

17 < 

18 

19 

20 ( 

21 

22 

23 < 

24 

26 

26 ' 

27 

28 

29l 

30 

31 

32l 

33 

34 

35 < 

36 

37 

3e I 

39 

40 

41 I 

42 

43 

44 ' 

45 

46 

47 < 

48 

49 

50 ^ 

51 

52 

53 < 

54 

55 

56 I 

5? 



BEGIN IF (T2«-wAiT 

IF (T2 AND- 

HEGtN STQFT 



lO(Ti*(MAbK OR e40)&«»377CCTF3*y) AND ^367)^0 ThEN 

NOT MASK3X0 THEN 

lMTNGfFNUM»iQ23); BLASTQ(U); SETNOT INUSE (U» ) / 



3810S40Q t 
38105500 T 
3«1Q56QQ T 



0022 '0 
002S»2 



10 

11 

12 

13~ 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

» 

90 

J1* 

32 

33 

34 

35 

36 

37 ~ 

38 



FILEMF.SS(-"PARITY "*»UN .,♦ "&T INU CU n24 « 30 J 1 8 3* 
KFID*FIU,HEEL*CDATE#CYCLE)/X 



EMD;»i 



38105700 T 
38105800 T 
38105900 T 



003t'0 

00 3311 
003/<t3 



IF TEHMlXttC 
BEGIN SrOPT 

GC TO 



F3«P1MIX THEN 
IMiNgCfNUW* 1023); 

initiate; 



SeTNOTiNUS£(U*0); 



38106000 t 
38106 1 00 T 
3ftlQ6gOQ T 



003«»3 
0036 »0 
0Q3flt9 



end; 
END heed;* 

REAL ■iUBRUUTlNE 



CnTl8IT3«-io 
&IUC2 
&<IF 



CNTLBITS;% 



MASK&MOt)tt2i:47:n&oiR£CC22M7UHCNTCTi,t23»47Jl j 
4I47J13&C^1ND»7 OR KlND>9 AND KINDS Jg) C20 U? « 1 3 
KiNUzlOR MND»70R KINDgl2THEN^20£LSE 0)t27 t4 2i63; 



38106300 T 
3fll06«00 T 
38 1 Q 6 500 T 



38106600 T 
38106700 T 
38106600 T 



0039«0 
0039J0 
.QM21Q- 



00*2 »e 

00d«»2 
004910 



SUBROUTINE LABtLAR 
Mf'f 1«'ALPHA' 



EAn 

23*M OR CGETSPAC£(CT1*-M[T13 .CB»103 )+4#2M ) + 
<tTl[ftt3fl;io3&cNTLBITSCl8«16«153;ill 



^) 



38106900 T 
38107000 T 

^ffl07100 T 



0054«0 
0056J0 
00618 3 



PCALPHA); » OETeH»^INe IF BRANCH TQ DCl9 

P(RCH#MSCW#STF); 

RCW|gMCW&PCXCh)CCTC3; 



38109000 T 
38110000 T 
3flll0500 T 



0065>1 
006611 
006711 



IF Ps2 THEN GO DCl9; 
IF STATE. C4l!lJ THENX 
BEGIN U«-FlB[l53.i:25t5j;% 



38111000 T 
38111500 T 
3 8 11 2000 T 



0068S2 
0069«2 
00?OM 



END ELSE* 

BEGIN IF (U«-FINDI 



NPUT(MFI0'FID'REEL'CDaTE*CYClE'C080L'UnlaBE 
OPTIQNAl#MODE»FNUM))<0 THENa; 



LED* 



38112500 T 
30113000 t 
3R11 350Q T 



007211 
007211 
00741^ 



BEGIN F1B[5 
STARTIMINGC 
FP6:»PRTCPi 



3.C39S43*9; GO Tq 
FNUM^IF U>31 THEN 
MIX#33; % 



FIND end;x 

Ifl ELSE u); 
staRtiming May 



haVe moved it. 



38114000 T 
36114500 T 
38115000 T 



0076«3 
0080J1 
00B3»i 



KIND»*IF U GTR 31 THEN U ELSE UNITtU3 . C 1 l4 3 j 

typeopen;* 

IF U<16 THEN BEGIN RRRMECH«-TWO( U) OR RRRMECH; 



38 111 1 00 T 
38115500 T 
18116000 T 



0064 13 

0088 »1 
0089 »0 



40 

41 

42 

43' 

44 

45 

46 

47 

18 

«9 

50 

SI 

52 

53 

54 

55 

56 

57 



PHNTABLEtU3,Cl5S 15 3 ♦■ALPHA ; X 



ENj;% 



TG^< 



38116500 T 
3bU7(jOO T 
38117500 T 



0092»0 
0094«2 
0094»? 



IF CTl*RUCTA8LECU3.tl4»i03)X0 THEN REEL*Ti; 
STATE. C39«43*0;X 



E N D fit 



38118000 T 
38116500 T 
3eU9Q Q^ T 



0094' 2 
00971 3 
0099 fg 



IF KiNDsO THENX 

BEGIN IF U=23 THEN BEGIN 

li-LSE BEGIN 



tureadeRa; 
ti*R£a d erb; 



ReadeRa«-o 
R E A DER6 «-0 



enqx 



38119500 T 
38120000 T 

3.6,1.20 5 QQ. T 



0099<2 
OlOOSl 

PIQ . 3« 2 



MtALPHA''a3f*CMtTl334lO[8»38» 1034 I C24»47 » IJ; X 

MtTl-43.t3Ua3«=PlMIX;ai 

MODEImOi* 



361210043 T 
38121500 T 
36122000 T 



Oi05»2 
OllOiO 



END 



cntctl«=direcj«o;x 

IF BLEN<Tl«.cMODf.+ l)xlO 

ELSE* 



THEN BLEN4.Ti;X 



38122500 T 
38123000 T 
38123500 T 



0114*0 
0U5«1 

oue«3 



Qil8«3 
0120(0 
012112 



IF KIND»2 THEIs* = 
BEGIN IF NOT UNLABEtEO 
IF QIREC AND NOT 



THEN BEfilNX 
FIBU63>C22tU 

faFGiN IF NOT ST ATE. C 40: l3 



THEN 



38124000 T 
36124500 T 
Sei8?.O0O T 



THEN BEGINSS 



38125500 T 012351 



10 

11 

12 
'3 
14 
15 
16 
17 



18 
19 



20 

22 
23 



24 

26.; 

27 S 

28 

29 

30 

31" 



32 
33 



34 

36 



36 

37" 

38 



39 
40 
41 
42 



45 
46 
47 
48 



49 g 
50| 



51 {; 

S2 






55 J; 

56 i 



Tl«-5&3[23J^6t2J 



OH h;% 



MAi>KJ»«»60; DO 
00 REEO UNTIL 

MAaK»o; rled; 



HEED UNTIL 

T2,[a2»i3; 



END> 

CMCTL*-!' LABELAREAiX 

THsNFLaG(H[ALPhA«2] ii% 



T2,C<t2ll3; 



IF DIREC THEN T 1 : sT 1 . C8U0]-1 INX TUX 

MASKt«e<»o; reed; 

5THEi»M<Y»aOtX«»0>Xl>=O^X2:'iO>Z»*Tl}; 



BttSIN DI:=LOC x; DS: = 2« LIT "VOL iHDR ihDH2E0F i£0F2C0V 1"; 

ui»=Lnc; x; 

6(TALLYtgTALLV»i; 



sit»z; 

IF « SCsOC THEN 
JUWP OUT TO H); 



b: 



tally:=o; 
Y:aTALI Y? 



ENOI 
IF CUSA5U»P)>0 THEN 
USASlTAPECTl.[CK].USASI.a* U>DIRLC} Ft RF 



IF MCTl 
BEGIN 
REEO/ 



INX 6],i24;6Jsl THEN 






m. m; 



end; 

IF T2 



NEU P40 Then 
CNTCTL»QIKEC 



00 REED UNTIL T2,CA2»n ELSE 
^TEP 1 UNTIL P DOai DIREC = 



OR 1 



.ma. 



P(WAniQ(P47A00000054CNOT OIREC n22« 47! U* P37 7#U )» DEW );X08 

eno;x 

CNTcTL*BLENSl023Ji6 



END ELSEii 
IF KiNDaS) THENX 
.BEGIN UNLABELLD<-CNTCTL«-i;:b 






BEGIN Ti<-ciDRLWCU-32J,tl8J 15J; 
ClDRQl^[U-32],CieJ15J«-0; 
M[ALPHA-2 3i=[M[TlJ]<tl0[6:3etl0l&l[2AM7ll];ai 



MtTl-i»3.t3»ia3l«PlMlX;x 

MODet«QiX 

ChtTcTLt»OIflEC»»n;i 



FIB[133,C1593«-NbUfS*-1; F IBt 133 . C 10 I 9 3 «-1 ; 
IF BIEN<10 THEN BLEN*10; 

ENg E,1,SE 



■•o:cN:»'«S^i:iiii»l:ilillf 
iiliiiiiiiiiiiii 






GO find; 



IF NOT FlB[183,[iJl3 OR P THEN 

QETbUFFERS(BLEN#NBUFS#U# ALPHA); 






u:s3o; KiN0»*i3; 



*"«« 



38126000 



38127000 
38127500 
3Rl2anQO 



Ol25«l 
0127«? 



0i29«0 

0132U 
013411 



38128500 

38129000 

3fli2950Q 



38130000 
38130500 
36131000 



0i36»0 

0136S0 
Ql3H'0 



Ol«0»l 
0l43»l 
OlA5«0 



33131500 
38132000 

3fln2'iQ0 



0i47»0 

0l50«2 

15Q»3 



38133000 
38133500 

381 ^<tnQn 



3813450 
38135000 

381 a'isnn 



Oisni 

Ol5H2 
Ql5a?0 



38136000 
3ftl36500 
38137000 



0l52»3 
0l53«0 

Ql53?0 



38137500 
38138000 

38138500 



OiSjIi 
013312 
OlSqig 



38139000 
38139500 

aaiftOonn 



0157M 

016051 
0lft0<3 



38140500 
38141000 

38141500 



0162»0 
O162I3 

otftain 



38142000 
38142500 
38143000 



0l65«3 
0165. '3 
Ql69;t 



0l7i»0 
0l76»0 
01 7(&»0 



3814J500 
38144000 
38144500 



1 7 7 1 1 
0177«1 
1791 3 



38145000 

3814S500 
3B146Q00 



0181»2 

Qiagii 

018211 



38146500 
38147000 
38147500 



018312 
0186! I 

oieaM 



38148000 
3614850{) 
3Blfl900n 



0j93«i 
0l9$lg 
019711 



38149500 T 
38150000 T 
galSO'SOQ .1 



3eiSioOQ 

38151500 

38151800 



38151900 
38152000 

381 52 1 . 9, 



0l98»2 

0204»0 

9206 '0 
QZUTO 

0209f2 
0209*3 



38152250 
38152500 



0211«0 
0212<2 

MAMJL 




38157000 T 0217ti 



T< 



2 
3 

4 
5 { 

6 
7 

8 I 

9 

10 

'1 I 

12 

13 

H( 

15 

16 



IS 

19 

20 j 

21 

22 

23 ( 

24 

25 

26 { 

27 

26 

29 { 

30 

31 

32 i 

33 

34 

35 { 

36 

37 

38 4 

39 



42 
43 
44 < 
45 
46 

47 < 
46 
49 

sol 

SI 
52 

53 I 
54 
56 

5«4 
vi57 



• • 



>r 



10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 

21 
22 
23 
24 

26. 



26;,; 
27;; 



29 

M 
31 ~ 
32 
33 



34 
36 
36 
37" 



38 
39 



41 
42 



45 
«6 
»7 
W 



19 

SO 



51 g 
S2 
53 
54 



55 
S6 



riBCl3j,Ci:V]4. N8UFS4-2; 

FiB[l8]t = C*P(DLP)U(BLF.N<aRLEN)[.l:i3;i5]&BLEN[CTF3> 



IF MFI0>0 THEN 

BEGIN ; 
STREAW(A»0»B»Q»MFIQ^FlD>C»Oil 



36157500 
38 156000 



BE6I^ 

^l*- LUC KFID' Dl*- 

a(c*- si> a(iF sc>o 



38158500 
38159000 
3fll5 9 l Q 9 



021H«3 
0??it«3 



0225*1 
022610 
Oggft«i> 



UOC A' 

THEN ;f S(;< 9 



THE N TAl.uy<- TA L lY^l 



SI* 

end; 



ELSE JUMP OUT ELSE JUMP OUT^ Sl* Sj+i); 

c; c*- tally; os* c dct; tally* O; si* lQc fio)> 



38160000 
38160500 
3 fll^ lQ0Q 



flD* Pi 
MflD*-Pi 



38161500 
38162000 
38162500 



0228J2 
0228*2 
02 29*0 



0230*3 
0233»0 
03 3^*^ 



FINOM 



MCALPHA-2J* 0«iMFIDC9»aai«3&FlD[lA»4/»t43; 
PCP&RCWtCTC3^0»RDS*C»XCH^PdPCCTF]>STF); 



38163000 
38163500 
3816^000 



END cther file open in; 

PROCEnuRE DTHERFlLEaPENOUTfALPHA}; vALUE AlPhA; tNTEGEH AlPmAj 



38164S0Q 
38191500 
38192000 



0235*0 
0235*2 
0236*0 



0236;o 
0240*0 
0240*0 



BEGIN REAL RCW»*0;mSCW«»-2; 

REAL IQMalQMASK* IQMASK»*i; 



START UF KE|. 



38192500 T 0242*2 
SUE» 024 3 

3a?oQOQo T oo,un,».a- 



WORDS 



INTEGER NduFSs + 'i#FNUM = -»-3,RLLN = + 4,TYPE = +5»I0s + 6»BLEN*+/*Us*8J 
KIND-+V*MOqE=+1O,0IHEC=+U'FOrMS=+12#C0BOL=+i3, 
IINI ARELLns-t-la.riPTrGNAI =-Hq.rMT(:T( s4^6; 



SESlENt; DISK ADDRESS « 00789 

38200100 T 0000*0 
3fl2O0?OQ T QOQn*n 



REAL Ti = + 17*T2«*l8»MASKa + l9*STATE«»+20; 

REAL MFlO»+21#f l0* + 22; INTEGER REELa + 23,CDATE* + 24 ,c YCLEe*25; 

ARRAY f^nm.yf>f*l.fi'B:ij.27[*li% 



3a200300 T 
38200400 T 
3 fl ?0Q50 T 



INTEGER ACCtS5=+28,FIB75+29; 
ARRAY HEADE8=+3U[*jn 
RFAL Tnfi = t3i; 



38200600 
38200700 

iaaooenn 



ooou»o 

0000*0 
00 0*0 - 



0000*0 
0000*0 

nonoio 



REAL U3ASI=NT1* RHE AQaHE AU£H; 
LABEL lPS^FINDoUCN'PBS; 
■SijBRnuTTNiE TYPEQPFrv;a; 



38200900 
38201000 
36201100 



0000*0 
0000*0 
0000*0 



BEGIM 

Tl J = U]PNi-iES3 AND ( ( T 1 : = JAR C P 1 MIX* 03 ) >0 Qf< 
COPNf^LSS AND Tl<0))j 



38201200 
38201300 

3R2nUn(} 



0000*0 
0000*0 
000 0*0 



38201500 
382cl60G 
3H201700 



$ SET OMIT 
t POP QMIT 



* PACKETS 
IF Tl THEN 



BEdlN NT2J=0; 

IF U<i6 ThLN 
STREAM(St=PRNTABL£i:UJ.[30t 183* 



38201800 
38201900 
38202000 



0001*0 
0001 *0 
0003*3 



BEGIN 

end; 



SI * LOG Si DS «■ 8 dec; 
DI ♦ DI-7; DS ♦ 6 FILL^ 



D*=CNT2J )i 



IT 
% 
% 



38202100 
38202200 
38202300 



0006*2 
0006*2 

0006*3 



FILEMESSAGE((" OUT'')& 

TINUCUJ Lo:i0* 18J* NT2* fPbCfNUMJ, FPBCFNUM + iJ, 
If r<lND=2 OR KIND89 THEN P( REEL* CD ATE ) ELSE 



38202400 T 
38202500 T 
38202600 T 



000h«3 
0008*0 
0008*3 



trnM 



ENo; 



lliiil*IliiBiSPiiir 



3fl2C2700 
38202800 

30202900 



0011*0 
0011*2 
0012'0 



001211 
0012* 1 
0012*1 



SUBROUTINE REED;X 
BEGIN IF (T2*-WAITia(Tl*(MASK OR ?40 ) &f 377LCTF ] *U ) AND P367)j'0 THEN 
IF CT2 AND NOT MASK )i««0 THEN 



38203000 T 
38203100 T 
38203200 T 



0012*1 
0020*0 
OOSOfO 



BEGIN $TOPTlMING(rNUM*t023); BLA5T«(U)> SETNOtINUSEC U,o:)* 

F|L|i£»3{««S»AH|T,Y •^^♦'ON ,., "&T INU£UU24 * 30 » 183 ,X 
. ■ WfI0#FlO»SE£L*C0:ATE#CYCUE?i» 



38203300 
38203400 

38203500 



end;j5 



38203#(JO 
38203800 



0022*0 
0022*0 
0025*2 



38203900 T 



0027*3 

0034*3 



.57 



h- 



1 

2 
3 
4 
5 
6 
7 
8 
9 

to 

11 
12 



13 

14 



15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
iO 

31 ^^ 

32 ■■■■. 
33 
34 
35 
36 

37^ 
36 
39 
40 



41 
42 

»3' 



45 
46 
47 



W 



SO 
SI 



S2 

sa 

54 



56 ' 



IF TERMlX.[CF]=PiMIX THEN 
8EG1N S1UPTlMlN.UrNUMM023); 



GO TO initiate; 



SE:T\QTlNUSF(U*g?; 



gNn 



B EEn/ it 



REAL SUBRUgTlNt CNTLBITS;* 

CNTu^IT6«-IQMASK<iM0DtC2i:47!i3&DIRE.Ct22«/|7Jl3&cNTCTLC23U7:i j 
&l'jr2^U7; 1 ]<t(MNf3s7 PR KfN0>9 ANn K TND< 1 ? ) f ?0 » />/ t n 



«{IF KIND 

SUBROUTINE LABEliAREAU 

MrTl»ALPHA-2l«.M 



:1QR KINU»7QR KIiS(D«12THEn?20elSE 0)C27t42«63; 
QR CGgTSPACrCCTl»MfTn.rBMQ]w^# 3,1^^0 1 



&rU8:3aJiaucNTL8iTS[ieiie»ib3;x 

PCRCW'MSCW^STFJ; 

RCW;sRCW&PCXCHnCTC]; \ 



If STATE.C4i»tT THEN* 
BEQIN U«-FlBCl5j»C25t53n 



S SFT OMIT 



BEGIN T2SaFPBCFNUM+3J; X SaVES COPIES FtjR BACK 

IF (U:=FlNDOUTPUTCi'^FiD*FlU>REEL*CDATE/CYCLE*TYPE 

g NnT PACKETS 



UP 



*FORMS,KINO))>^0 THEN 
BEGIN FlBC14],C3«l53«.u; 
FPflfFNUM»21.[lflt:»Q3»nATF; 



IF MCP^NOT(-O) Then MtU + 2]«-USERC0DECPlMlXJ; 
l-lCU + 3]«-XCL0CK + P(HTR); 
T i tsSFACE(30?? 



$ SET OMIT 
S POP UMiT 



MQVEC30,u*Tni 

bTKEAMCDATE»Bi«Tl+3); 

BEGIN i>Ii»LQc DAT £;oSis8ncT;Dii«oi*fl;nSi»2LiTM*gHfEMD; 

McTl+lJ*(XCL0CK+PCHTR))&(M[Tl+3])[6»30U83; 

M[Tl+4]:= 0&SYSNGt'*«a6:2]&l[2M7! 13; 

M[Ti + 5J«-(*P(DijP))&U2:47n J; XABORTEO PBO TOG. 

RJE ANU DaTACOM 

pco); 



$ SET OMIT = NurCRjE AND DaTACOM) 

M[U+634-P(XCH); 
MlU"U{=EUF(It-- TYPL NEQ 



"PBd •• EUSE 
FORGETSPACECTDJ 

$ SET OMiT a Packets 



AND TYPE LSS 20 THEN 



•PUD 



•SMCU+63,Tl-l); 



$ PGP OMIT 



IF HBDHEL OR OPNMESS THEN 
FILEMESSaGlC(IF TYpE GEQ 20 UR 



TYPE«0 THEN "pUp.,*." 






(PBDREL OR OPNMESS)); 
i3TARTIMINGCFNUM,U«-lb); 
FPBtgPR7[PiMiX/3]J % STARTIMING MAY HAVE MQVEn iT. 



END ELSE 

IF u im THtm xosEo 

8ESIN FtatS3,t39<<ijl»9j 



BEGIN 

STARTlMING(FNbM*U);X 
FPB|=PRT[PlMlX*3J; 



00 FIND £N0 else; 



% HATCH OUT FOR STARtIMING. 



IF Ttrets Qft TyPEwf 0« type»9 then unlabelep«-i;x 
ir u<i6 Then bcsin nftRMEcHfcfKocu) or rrrmech; 



PRNTABLE[U:i,C15«15j«-ALPHA;il 



3820/1000 

3a2Q4lOQ 



003<»»3 
0036»0 



3820^200 
3fl20«300 



003e»2 
003910 
0Q3Qin 



38204500 
38204(j00 

36204700 



38204800 
38204900 
38205000 



0042 «0 
0042'0 

Q044>2 



0049l>0 

0054t0 
OQSft»n 



3820blO0 
382J0000 
38?U)500 



38211500 
38212000 
^8212500 



006113 
0065«1 
0067to 



38213000 
38213500 
38214000 



0068»1 
0069»0 
007110 



38215500 
38216000 
^821^500 



00 7110 
00731^0 
0074t2 



38217000 
38217500 
38218000 



0@74l2 
0076»2 
0079tP 



38218500 

36219000 
3fl2l9%00 



0082»2 
0087n 
0089»3 



0092«0 
009312 
0095IO 



38220000 
38220500 

3ff2?1000 



38221500 
38222000 
3B2g2500 



38223000 
38226500 
38227000 



0096«2 
0X01»1 
Ol05«l 



Ql0d(2 
0108»2 
0t0fl»3 



38227500 
38228000 
38228500 



010813 
0l08»3 
OllO>3 



38229000 
38229500 
38230000 



011410 
0U8I2 
0119H 



0119>1 

012110 
0l2l»0 



38830500 
38231000 
38231500 



38232000 
38232500 

38233000 



012110 
0l2l«0 

012H0 



36233500 
38234000 
36234500 



012110 
Ol3l»l 
Ol32 «3 



38235000 
38235500 
3e236000 



013411 
013411 
0l40t3 



Ol4<»»l 

014413 
014513 



382 36500 
3»237000 
38137500 



Ol«7ll 
014810 



3823800C T 0l55«0 



1^ 

M 

3 

4 

M 

6 

7 



9 
10 



• • 



2 
3 
4 
S 
« 
7 
8 
9 
10 
11 
12 
13 
14 
15 






limd; 



IF KINDS6 THEN* 
BEGIN 8L£N«^J0J 
FlBCia3l»(*P(OUP))&BLENrcTC3&BLEN[CTfI&RLENc3t33»l53; 



38236500 
3, 8 2 3,?, 00,0,, 



0157:2 



38139500 

382«0000 
3fl 24asO Q 



01STI2 
015811 

oisy*? 



MOO£*-OlHEC«-CNTCTL«-Oi» 
END EliiE* 
I F KINP = 1 THE N* 



38241000 T 0l63»0 
382^41500 T 0i6^>3 
362^2000 T Ql6^»3 



LPS! 



BEGIN MOOE^DIKEC^CNTCTL+O;* 
IF NOT COBOL THt.N M C ALPhA*23»Q& 15[8» 381 ^03; X 



38242500 T 0i66«0 
36243000 T 0l68»l 
3ftga3«>0Q T 0l 6 6M 



END Et.SE* 

IF KIN0»>12 THEN 

BE mN TYPf .«-I F CTVPE/0 



ANn TYPe; < 20) TH E N 1 5 FL SE 2 2^ 



38244000 T 
3e24«500 T 
38245000 T 



0172H 
0172H 
0l73«? 



P8S» M00E*0IREC«'0; FI8C1 33 . C I :y J«-N8UFS*CNTCTt*l ; FIBC 13 3 » HO |9 3*1 ; 

BUEN*IF TYPt"i20 TheN lO ELSt IF BtEN>l7 THEN l7 EUSe b'^EN) 
MCTl*ttETSPACEC92,3,l)-»2l»MtTl-l J»tMLAt PHAn&(tU2UCTr3 & 



38345500 T 
38246000 T 
3fl24ft500 f 



01f7i3 

oiasio 

018 9*3 



16 
17 
IB 



U L 1 2 ' 4 2 « 6 J ^ 
0lSKlQ(RhEAD'-Ti-75,ll,jARtPlMlX^6 3»[CF]); 

MrAiPHA3>sTl*2; ^ 



38247000 T 
38247500 T 
36246000 T 



0i95«2 
0i97»2 

020l*.O- 



19 
20 
21 



FI8CU3*£*P(0UP))&CTU2)CCTc3&(Tl+56)CCTF3; 

FlBtl83*C*P(Gyp))&8l£NCCTC348LENCCTF3&BLENC03t33»l53' 
STRFAMfn»T1*l>i Pf3AtnS«.ft LTT«n*M?I 



38248500 T 020310 
38^49000 T 0206«2 
36?fl95QQ T Q2lQ>n 



22 
23 
24 



FIBC5 3,[FF3^CmCt1 + 91J*-FIBC5 j.CFK3 4.ni8;47 Jl3) + l; 
SUttP(LHMEAU?rIUMASr\); 

HFAI .)t:R' = i ;M C Tl 33(;92[ei 3e!l0i ; 



36250000 T 
38250500 T 
3 8 25 1Q00 T 



0213J3 
0220'0 
0221/2 



28* 

28 
29 

M 



HEA0£fi£743*MFlD; 

HEA0ERCrS3«-FIDi 

HEAOERta?3*-FORM5j 



38251500 T 
38252000 T 

3fl 251 500.:! 



0223*3 
022510 
022 6 ^ l 



HLADtRC88jSsTjt,tl5«8]> % CQPIES 

riEADERC763*-ABSC^iAR[PlMlX»03)' 
HEA n t ;Ri;77J<-A6S,(jARCPlMlXMi? ; 



38253000 T 

38253500 T 
382 54 000 T 



0227»2 
022911 
02 3l» g 



J2 
33 



GO TO LPi»; 
END EUSE 
IF KlND^y THEN* 



BEGIN TYPr^-IF 
IF sVPBt then 

GU TO PBiJ/ 



tTYPE^O AND 1YPe<20) TheN 6 eLSe 20; 
SAVEWOROI'TWOCU) OR SAvEwURD; 



38254500 T 
38255000 T 
38255500 T 



0233«3 
0234«1 
023411 



34 
35 
36 

J7" 

38 

39 



38256000 T 0235«2 
38256500 y 0239J3 

38257000 T 024 2»J_ 



END ELSE* 

IF KIN0»2 THEN* 

BEGIN IF PRNTABLECU340 



THEN GO TO DCN;* 



3825/500 T 
38258000 T 
38256500 T 



024311 
024311 



40 
41 
42 



CNTcTL«-MUDEiX 

END ELSE* 

IF KlND»8 THEN* 



^«Wi«f';;?ill»fiCL,:l'.0*.C^^NTeTLt' t'l « • 
;'.r:^?y:;::tiiM*«i?.*j;?*,.:- ;■■■■ . 



3825900C T 
38259500 T 
3b260C0C1 T 



0246«2 
0247H 
0247 5 1 



38260900 T 0248*2 
36261000 T 025011 
36261500 T 0851*0 



43 



46 

47 

«8 

49 

50 

61 ; 

a 

a 

34 



IF UNLABELED THEN* 
BEGIN IF COBOL THENX 
BEGIN MaSk«-0I» 



1 piiiiiip:.l»il:*iiW»€WtiWOlOOO0'Of • R,EE'0-£ND" EL»E. 

wNiiiippiiiifc^ ■ ,. .. 



38262000 T 
38262500 T 
38263000 T 



025l»0 
025111 
0252*0 






IF TYPE < 20 THEN 
BEGIN ■■■ 

HEAOERt733«-gl540l76000lOOOOO&FlBC53CFTC3; 



iiliiUfr 
■liiiiliiiiPr::?!'?': 



38265000 T 
38265500 T 
38266000 T 



0260*1 
026110 
026i«2 



56^ 



IlitSMIMMM 



W^SiMMBiUg'itMUif: 






ViiSimSt, 



't'imm:i:i:?^'ij:.m^M ^?^#M^^a: 






GO find; 



38268000 T 0269*2 



Ei^u; 



h- 



SMJA. 



38268500 T 
38P69nQ0 T 



0271S0 

0271,10 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



END ELSEX 

BE^IN IF COBQi THENX 

RFG TN M t ALPHA.»2 1»P f OUP, 1 00 1 rCMTLR ITS f 1 fl I Ifl M 5 1 i * 



3S269500 T 027110 
30270000 T 027110 
3827QSQQ T Q ?7in 



U U<16 THENX 
SrHEAM(N*PRNTABLE[U],C30:i83,0«-MtALPHA-2] j;» 
. SECilN ;?J,«-i.nC Ni Dr«-,DI-«-'33; DS*-5 DEC £Nn, 



38271000 T 027583 
3827lbOC T 0276S2 
38g7?n00 T 02ao»o 



tm ELSE*.,. ■■: ■■ . ■ 

BEGlS If REEt.»0 THEN REEL*t*» 

IF CYCLEaQ T»<EN CYCLF»1 if 



38272500 T 

38273000 T 
3Hg73^QO ¥ 



028 1 1 
281 10 
Q2i1l2 



IF CDATE»0 THEN StREAmC OATE^CD* CCDATE J ) / X 

stQiN si*loc oaU; si4-si+j; 05*5 OCT e^d; 



38274000 T 
38274500 T 
38 275000 T 



0285J2 
28 7 » 3 

0?6fl»3 



13 

14 

16 
17 
IS 



8Ua0tAB£ttMUtPHA*23*MFIOVFID*REEt' CO ATEi CYCLE** 

FieU3,CIF U<16 THEN PRNTAiLEtgl.CSOl 183 
••/:■• ' ■ • ELSE 0USlkll,^U6t?l,% 



38275500 T 02«0i0 
38276000 T 0293 1 
38g76SQ0 T Q29S»n 



ENU;x 

M[MrALPhA-2J 



blen*rle\j;* 
i nx p(uupj.[8» 10 ]]«•» 3700000000000000;% 



38277000 T 0297* 1 
38277500 T 0i;98»0 
3 8278 000 T O?9fi80 



19 

20 



21 
22 
23 
24 
25 
26 



IF {P(KIN0#DUP)s7 OR (PC XCHnDuP )al2 OR PCxCH)pI)) THEISI 
IF KIND*7 AND Fl SC 1 3 J . C28 » IOJXcQbOL THEN GO FINq ELSE 
BECSIN IF TYPE GEQ 20 THEN % MAKE CP BACK-UP LABEL 



38278500 T 
38279000 T 
38879500 T 



0301 1 3 
0305 «0 
030910 



BEGIN M[M[alPHA-2] INX a J » »FL AGCN abS ( J AR CP li^ IX' 03 ) ) ; 

M[M[ALPHA-2] INX 3 3 ' =FLAG( JARCPIMIX^ J&l7 C 1 » 43 « 5 3 ) ; 
STHEAM(At^CMrH[ALPHA«?3 TNX 633)j 



38280000 T 
38280500 T 
362B1QQ0 T 



309* 2 
03 14 » 2 
0319»3 



28 
29 
10 



begin 0sj*15 lit« punch back-up "; os«*ln"x"; 

2(0s««6 lit'"xxxxxxxx"); 
end; __^_^„„^„„__„ 



END ELSL % MAKE LP lABEL 
BEGIN ri«*M[MtALPHA-23lNX 331 
01 JKlOCT2,NABStMCALPHA-2]INx 



18201500 T 0322* 3 
38282000 T 0325*2 
3t2i2«^0 T 3 2711 



1)/11*JAREP1MIX*63,CCF])> 



38283000 T 
38283500 T 
3 n284Q0g j 



0327«2 
0327«2 
033211 



31 

J2 

33 

34 

3S 

36 

37" 

38 

39 

40 

41 

42 

♦3 - 

44 

»6 

46 

•7 

«a 

•9 
50 

5' j: 
a 

S3 
S4 

55 

S6 
57 



McM£aLPha-2 3INX l33s=FLAG(NABS(JARCPtMIX»03)); 
M[MtALPHA-2 3lNX 14 3 J«FLAG(JARCPlMIX#l3&l7£li43i5 3)i 

SLEEP(CT23#I0MASK); 



38284500 T 
38285000 T 
38265500 T 



0336»3 
0S41I2 
0346*3 



end; 



MtMCALPHA-23 INX 3 3 » * F 1 ^ 
MCMCAlPHA»23 INX ntsMFIOi 



38286000 T 
38286500 T 
38287000 T 



0348«1 

035l«2 
035JA2_ 



MtMCALPHA-23 INX 23»aFlQ; 

IF KIND»1 THEN MULPH A-2 J*P( DUP' LOO )«lt 27 J 421 6 3 EU^E 

BEGIN HEADERC733»CFI8ES3,CFF3 OR »360l70 t00000000)& 



38287500 T 
38288000 T 
38288500 T 



0354«3 
0358«0 
03 »2«? 



(TYPE<20U32«47: 13; 

FIBt5 3«-PCDUP»LOD»0*l'CFX* + ); 

STREAM(u«-W[ALPHA-23>B«-EHEADFR[563 3 3; 



38289000 T 
38289500 T 
36 29OQ0Q T 



0365«1 
0367H 
3 69»^ 



E NP) ENOf 



BEGIN SI*Li 0S*l7 WDS END; 
FlBtl43.CFF3*tHEAOERC3833; GO FlNo> 



38290500 T 
38291000 T 
38291«i QQ T 



037211 
0373»0 
37710 



Tl«-NFLAG(MCALPHA-23 )>* 

haSk^-o; reeo;x 

IF KIN0»2 THENX 



38 292000 T 
38292500 T 
38293090 T 



0377«0 
037911 
O3.,9,l»0 



■. B Eti«i^'i:it#ii«t.ioiifil^ooo o'^o' j % •: 



end;x 



38893300 T 
38294000 T 
3ft294'^0Q T 



end;* 
p(0); 



OCNU 






38295000 T 
38295500 T 
3fl296Q00 T 



038113 

038310 
038410 



0385»0 
0385«0 
O395«0 



GETBUFFERS(BLEN»N8UFS,U> ALPHA); 



38296500 T 
38896750 T 

sea gy pQ Q. T 



Q38S*i 
038*10 

Q389t2 



38297500 T 039l»0 



J? 



• • 



FIND* ! 



1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



13 



15 
16 



17 
IB 
19 
20 
21 
22 
23 
24 



25 



27 
28 



29 
30 



31 

32 

U 

34 

35 

36 

37" 

38 



41 
42 



4S 
46 
•7 
•8 

«9~ 
50 



SI 
52 






55 
56 



PCP&RCWtCTC]#0^RDS»O.xCH,i-AP[rTF].STFJ; 



END OTHER FILE OPEN OUT; 

PROCEDURE DiSkClQ$E(AlPhA); VALqE AlPHAJ INTEGER ALPHA;1 



38298000 

3S2985QQ 



0393«0 



START OF REi 
BEGIN REAL RCWs+0*MbCWs-i; 

ARRAY fIb^*ll*UFPB9*2:*}»HlMjER=*3{.*}i% 

XXX DONT ADD ANY DECLARATIONS BETWEEN •♦HEADER" AND "KINO" XXX WCP 

INTEGER KlND* + '»*NBUFS=+5*U»+6,Bl-EN«47#cOD£» + e» 
UNLAB£LED»-»9i,C0B0L«''*-l,Qj'I«-i-lUJ«i*l2* 



38299000 T 39312 

Size* 0398 WORDS 
3w3SSn06 t OQQfltO 



segment; disk 

3fl356000 
3fl 35 7Q0 Q 



FNUM»+13; 
REAL MlD«+l^*FIU«+15,R*+16*Ds+l7,C»+l8,FQRMS=*19»STATE»+20; 
LABEL L1»L2»L3/E0F*CLE ANUP/ 



3 8358000 
30359000 
3Rt60non 



ADDRESS . 

T 0000«0 
T 000Q»0 



00803 



0000 to 
000010 
QOOQ'n 



LABEL OBJTYPE/UUMMYJ 

REAL STA»+fim 

REAL Tf *e2*T2g-»23>T3s-t-2fl#I0D8>25;!t 



38361000 
38362000 

3RB63000 



0000 «0 

000010 
0000 »0 



ARRAY SEG0*+26t*],SKELs+27t*J;* 

REAL Ts+28'ACCESS=+29iX 

BOOLEAN C0BPGL«'»30; 



38364000 T 
33 364100 T 
33365000 T 



000010 
0000 »0 

0000 ro 



SET OMIT » NOT ShARedISK 

SUBROUTINE CODLOFF; 
BEGTN FOR I»0 bTFP 1 UNTIL NBUFS'I 



38366000 
38366010 
3^366 020 



0000 JO 
0000 »0 
Q QO O'-O- 



Hfli 



BEGIN IF 



XL 



EOFl FND 



IF 

end;X 
coot, off; X 



NOT MCALPHA+n.[19:i] THENX 

SLELP(tMtALPhA+l]]MOMASK);!K 

KTN0X4 THEN 

MCALPHA + n.t27t 13 THEN GO TO EOFiX 



BOOLEAN buQROUTlNE 
B£G IN J}gO> 



wRi ttenon; 



IF (TlaFlBCl03.[3»l5J) ntH THEN 
BEGIN 

FUH n»NRUFS-l STfP -1 UmTTL nn 



X PICKS UP THE ACCESSED BItS Frqm 
X TH£ BUFFFRSf ^ 



If" MtT3,tll»n 

end; 

WRlTTENONtsj; 



THEN J;bI;3-i ELSE T « 'M [T 3 , [FF 3-2' 



end; ;^ 

OEril^E R£W»cODE.t47tl3jlAX 



KRuNCHsNQT CODE «'I <«2 » 1 3 #* 
REL-C0UL.C46: 13**X 

TI^^E»C0DE.[:45^l3<t^X 

LQC««N0T cOOEa44«i3#,x 
pURGEaNOT CilOE.C43JU#;x 

DEFINE T£CHb$TATE.E46>23»* 

WRlTBACK = FlBC133.C23Jn** 
WRITEAFTEREOFsFIBC 133.[44«23## 



0P£NI0»FIBtl33.C2gtl3». 
LASTlO«FIBtl3J.C46»l]#* 
INPUTbSTATE.C43»i3j)i; 



X 
X 



START or CODE 

■■■"^;:.;v;v...; 



HEADER «• FIBCI**]; 

IF COBOL THEN 

BEGIN If COBOL > ThEN 



R..C:W-:tiiiii.-i pmcHMcic n 



ACCESS «. FIS[43,[27«33; 



X COBOL 61 






BEGIN FIBt7j ♦ *P(DUP) - i; 



38 366099 
3 et 70 700 
38 370flO O 



36371000 
38372000 

iB^7Tonn 



0000 10 
0000 10 
00 OHO 



3 & 374000 
3837aoOO 

3e37fton# 



0005«1 
0007«2 
0010<2- 



O0lt»i 
0014*2 



38376500 T 
38377ooo T 
383772Q0 T 



0015«1 
OqISiI 
001 6^0 



38377400 

38377600 
3ft377flOO 



36378000 
38378200 
3«37aziOQ 



0016*3 
0018>3 
QQ 1.9 »,1 



0023«2 
0030*3 
00 30*3 



38378600 
36379000 
3fl38000Q 



0031*1 
0031*2 
0Q3 l»2 



38381000 
38382000 
38383000 



38384000 
36385000 
38385400 



38385500 
38385600 
3 8 38 6QO0 



0031*2 
00 31*2 
0031*2 



0031*2 
0031*2 
003l*g 



38366010 
3830dO2O 
3fl|8yflOQ 



0031*2 
0031*2 
Q3l«? 



Oq3U2 
0031*2 
0031*2 



38388000 T 
38389000 T 
38389100 T 



0034*1 

0036*3 
0037*0 



0033! t 



1^ 

2< 
3 
4 
5( 



6 

7 

8 ' 

9 

10 

11 I 

12 

13 

14 < 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 < 

24 

25 

26 ( 

27 

28 

2b{ 

30 

31 

32 { 

33 



34 

36 I 

36 

37 

38 { 

39 

40 

41 ( 

42 

43 

444 

46 

46 

47 

48 

49 

50 ( 

SI 

52 

53 ( 

54 

55 

56< 

57 



11 



38389500 T 0048*0 



n 

2 
3 
4 
5 
6 
7 



9 
10 
11 
12 
13 
14 

'5 
16 
17 
18 



19 

20 

21 
22 

23 
24 

2S';;; 
28 f 
27 I 
28 
29 
30 



31 > 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 



43 
44 
4S 
«« 
»7 
•8 



«g 

50 J, 

51 1 

a 
a 
54 

55?' 



END ELSt: WHITEAFTLRFUF «- Q) 



38389600 
3 83.fl ?7Q 



005012 



IF TECH»0 THEN IF WR ITEAFTERE0F«2 THEN 

BEGIN FIBC73 ♦ *P{OUP) * U 
h£ADFR[73 » *PCDUPi 4 IJ 



38389800 
38389V00 
3a39Q00Q 



0055»2 
0058«3 
QGfllU 



END ELSE IF WRI TEAFTEREOFsl THEN 
BEGIN FIB[7] * *P(DUP) - 1; 
hEAUER[73 » *P(OUP) - li 



38390100 
38390200 
3 8 3 9030 , 



0063«1 
0065'! 
006 ^3 



end; 



end; 
whiteaftereqf 



♦ Oi 



38190 400 
3f390S00 
3ft 39 1000 



0069»3 
0069*3 



IF AccEiJSsi Then 

BEGIN IF COBOL > THEN 
BEGIN ACCt^SS <• U) 



IF RANDOM 
C080L61 



% SET CiMiT » NOT 



IF FIBCl3].U0:93 
BEGIN 
SHARED I SK 



* 2 THEN X SEEK IN PROCESS 



38391010 

38391020 

,38391025 



00/2»1 
0073«0 
QQ'M« 1 



36391030 
3639103^ 
3w39l039 



0075«2 
0077»0 
771 2 



END 



coqloff; 

END 
ELSE IF FIB[173<BLEN 



1 



FIBC133.[10«9] 

THEN ACCeSS»4; 



» CQB0L66 



38391050 
38391055 
38391060 



007712 
008112 

ooei«2 



end; 

IF FIBC13],C23I13 AND AcCESS»0 
BEGIN FIBC7)»P(DUP*L0C)-1; 



THEN 



383«1070 
38391080 
36 391 090 



Q08a(l 
0084»l 

0086 M 



ACCESS*^; 

end; end; 

IF NOT STATE«Uni] THEN% 



S SET OMIT 



BEGIN IF ACCESS*! THEN* 
BEGIN 
» NOT ShAREOlSK 



38391100 
38391110 
383920QQ 



38393000 
38394000 
38394099 



0088* 3 
0089* 2 
00 89^ 2 



0090»2 
009113 
Q092M 



cooloff; 
end else* 

IF AC CESSsQ THEN» 



BEaiN COOLOFF; if not state, C43IU THEN-* , 

IF Fl8Cl7j<BtEN AND STaT£« EAdl^^'^O THENX 
BEtilN Rt»SPACEC(feLEN429) DIV 3Q)x30i-l); 



38 394300 
38395000 
38396000 



38197000 
38196000 
3ft8Q9oOQ 



0092*1 
0093 «0 
Q09,3«n 



009411 
0097»0 



IF CMCPJ^MCFlBCie]]** 
DlSKADDRESSCMlD*FlD#FPBtFNLM+3]'FlBC7]-l*HEADER*0)) NEQ THEN X (SHMJ 

BSQIN : ^ — 



38400000 
38401000 

3a4Q,UQQ 



0i04»3 
0106V2 
Qt U»3 



P(WAlTlQCFlBC163SU24l47tU&RC33l33il51*X 

0«U)'OEt};X 
KQVFfPIBCl7VR*RLgM»TI8f 17UlrX 



FIBC163 INX BLEN-FIBC173+1);* 
P ( W A I T 1 C F I B [ i 6 3 # 0> U ) * D E L ) ; X 
if NOT FIB Cl63,[24t|3 THEN HEADi;F<[4) , [ il « 1 J^i; 



38*02000 
36403000 
38404000 



38405000 
38406000 
3B406S00 



0112*1 
0ll4t2 
Qtl5t2 



0118*2 
121*0 
Ot22»3 



mmm 



i,il«tff«f*:lili'»*= 



end; 



38407000 
38408000 
3 ft4 fl» O OQ 



0127*0 
0127*0 
01 27*:! 



END ELSE* 
BEGIN 
S SET OMIT « NOT SHAREDlSK 






38410000 

38411000 
384H.Q,9^, 



Miy 



iiai^!ffiiiiiv,^^ec£;Ss*«' ■ THiN; 



IF FI8C133,C23«13 OR NOT 5tATE.C43I1] THEN 
ACCESSIS2; 
IF (MtFIB[16]3«gUlSKADDR|SS(MID»FID*FP6CFNUM*33» X (ShM) 



3feill030 
38«ltll>0 

Mm 



0127V3 
0127*3 



i|. 



mmmum 
» ~ 



HEADERC43,tn*l3*i; END; 



>3*0C24t24*l3^0»U)»DEW); 



3841130O 
38411400 
36411500 



.o„if'e 

013910 



0133*3 
0136*2 

l|7 j } 



3MU700 




38411800 T 0l48«J 



• • 






IF ACCtSS = 4 THE.N ACCESS »» 2i 



38411900 

3a4i2nQ0 



end;* 

HE:AOER[43.t43tl3««FPBCFNUM + 3J,Cl5ti3; 

IF CNQT REW) or lock QH REL UR TIME THEN 



0150J3 



3e4l2l00 
38«l2200 



015213 
015213 
QlSftI? 



BEGIN 
FOR 
STR 



MS«-HEAUER[3J; 

EAMCPF«-lFlBUn*D«-rP»[FNU>^-»2J . [ 18 > 30 3 # H«- [ HE ADER E 3 J 3 * S» [T 3 3 ; 



38^20000 T 

38^21000 T 
38422000 T 



0160«3 
Q161U 
Q t 62«l 



BEG 
HCA 
ENO; 



IN si*pF;si«'Si*$;05*3 acT;si<-LOC oidi*h;ds*8 qct End; 

DERC33*-CPC0UP»U0 0*SSN))<4(P(OUP))Cl2»3OU834Tt2l38»lO3; 



38«23000 T 
38*24000 T 
3a4S500Q T 



0l65»2 
0l67»l 
01 7 1* 



to 
11 

12 
13 
14 
15 
16 
17 
'iB 
19 
20 
21 
22 
23 
24 



IF LOCK OR HEADERt4] ,t 

BEGIN IF NOT hEADERl4J 

BEGIN, 



4 3'. 1 J Then 

THENXFILE IS BEING CREATED 



38*26000 T 
38427000 T 

3S*2B000 T 



017110 
0173' 1 

Ql74«2 



IF KRUNCH THEN 

HEADERC4) 

IF JAftCPlM 



KRUNCHCRtHEADERJi 
,C9»33«s5;X MARK AS NEW FORMAT* ACCESSED 
IX#03 < AND FIBI43.[29»n THEN 



CODE ElLE wiTH lOCk ********************************* 
BEGIN. „, 

SFGQ ^ [M[GETSPACFf62/2iQ)t23]&3Q[8< 3 8M 03 / — 



38420000 T 
3e*30000 T 
3ft431Q0Q T 



0175»0 
01/'7»2 

oisoto 



% COMPILER CLOSING 



38432000 T 
38433000 T 
38434000 T 



018213 
018213 



SKeL «• 31 INX SEGOi T3 •• JAR [P IH JX* 23 , CFF3* 

% READ IN Segment zero 

DISKWAl TC * S rGQ.lCF3»3O/HEADF R C103); 



36*35000 T 
38*36000 T 
38*37000 T 



0i87»0 

019013 
0190 ^ 3 



% RLAD IN Skeleton sheet 

DlSKlf<AlTC-SKEL,CCF3' 30* T 3)' 

IF §KELi203<0 Then s k ele20 3 



* S£ G O[ 73 a FF 3/- 



38438000 T 

38*39000 T 
38440000 T 



0193M 

01V3J1 

.Q.19 5 , «2 



26 

26 j', 

n;l 

28 



IF JAR[PlMIx*23.C8ll03«l THEN 

BEGIN % COMPILE AND GO ********************** 
'. .SKFLf6H%JARrPlMlX«6 3& 



38*41000 T 
38**2000 T 
384*24 00 T 



019911 
0201 »1 
020113 



29 
M 

31 S 

32 : 

33 
34 

35 
36 
37" 
38 



(PRT[PlMiX*33.C8li03*20)CCTF^; 
DISKWAIT(SKEL.[CF3*30#t3); 

compgo » true; 



38**2200 T 
38**3000 T 
3 R*44Q0Q T 



O203'l 
0206»0 

208 « 



END 
ELSE 

BEGIN * COMPILE TQ LIBRARY *♦*>************** 



38**5000 T 
384 46G0O T 
38*47000 t 



0208 » 3 
0208i3 
2 08 « 3 



FOR Tl *■ lb STEP 1 UNT 

SEG0CT13 *r SkeLCT 

IF (T2 «• SKELC133) » 



IL 22 DO 

13; 

THEN GO TO L3j 



38*48000 T 
38*49000 T 
3fl4.^gnQ0 T 



0209«1 
0210*0 
g l3 O 



SKELCI33 «■ Oj X IN caS 

OISKWAITCSKEL.CCf 3*30# 

IFtTHaplSK ADDRESS (Wio#Fln>FPRtFNUM»33 



E I CALL Terminate 
t3); 

#HEADERC73t« X C8nM) 



38451000 T 
38*52000 r 
3 8* 53090 T 



0215»3 
0217J0 
Q2 ,1 9»0 



40 
41 
42 
43 



(*H(DiP)) + WHEADERfO) 
FILEMESSC-"QISK 



)«0 THEN 
•♦#"OVRFLUW''*MiD*FlO' 
H*D*C); 



38*5*000 T 
38*55000 T 
3 9 4 . 5 6 pop T 



0221M 
022*«3 
02g6»2 



tU 



SEGOtl53 ♦ Tl 

OlSKWAjTC-SKEL 

FORGETESPDISK( 



IF (T2«-SKELt29 
SS(MI0,FI0*FPB 



* HEADER 
.tCF3O0 
T2); 



C73; 

#T2); 



3) « T 

, ,. , „CFNUM + 33 

C*P(DUP))n/HEADER«0 



38*57000 T 



022713 



46 
47 
48 



IF(T3 JsDISKADDRES 



;F:ii^|iiiiiii:sK'^. 



HEN GO To t2; 
,HEADERt73»« % CSHM) 
))»0 THEN 



38*60000 T 
3 8*6l000 T 
38*62000 T 



0232«3 
02 3*; 3 

0237t0 



49 

51 ?i 



mmiimmmmm 



''^"OVRfLOrtW^MiO^FlO* 
R'O'Oj 



CCF3*30* 

R[T1 DIV HEADER183+103 + 
Tl MOD HEADERte] ); 



3a««3000 T 
30464000 T 
$8*65000 T 



02*012 
02*2*1 
024312 



S2 
J3 
S4 



DISKWAIT(SKEL, 
I*HEADE 



38*66000 T 
38*67000 T 
38*66000 T 



02*5»2 
02*710 
02*8»3 



ss 

56 ;" 



Aiisimittti 



lit; 



iiiiii»»ifl 
iiiiiiiiiti 

OISKWAIJCSI 

I ♦ H 



EADEtni DiV hEADERtal*i03 ♦ 



384690M t 

^:3a*;ft0«#:,,^(^ 

38*72 000 T 



02*013 

IS 



^ 



0255«2 



>r 



13 



16 
17 
18 



19 

20 



21 



24 
25 
26 
27 



28 
29 



30 



32 
33 



34 

3S 



36 
37' 



39 



41 
42 



46 

•7 

•8 

49^ 

SO 



S4 



55 

56 ■;, 



L3> 



Tl MOD HEADERta]); 
SI-:gO[6] » P(UUHfLOD.SSN)J it "NEW FORMAT" 



HeADERt43.UOin*-UXMARK AS PROGRAM 

DlSK(*AtT<5EfiO.tCF3#3O*H£AOERC103); 
END COPY OF LABJL EQ UAtlON CARDS; 



FIUE 



F0RG£T3PACE(SEQ0); 

IF HEADEHt7]<HEADERC83-l THeN 

HEGTN >'riRGFTlJ.SFHDl.SKCHFAriER[l,fl3-l-H(r:AUFrtt7Jtt » 



HE AOCRta 3 ♦ 



HE AOER 1 7 3 • HE ADER C 8 3 ♦ I ) ; 
H£A0ER£f34U 



end; 



Dummy j s 



FOR Ti:=-1 STEP 1 UNTIL 4 DO 
IF PC.0BJTYPt»Tl# + fLOD)'»ABS(jAR|;PiMIX#O3) 
H E ADfc. RC43, [36« 6 ]«»Tl t 2; 



THEN 



'£N.OJ'V 

HEAD£Rtl3*-FORMSiHEAO£RC33C6l30ll83l 
IF CHEADER[ 2 I ia»USERCODEtf IMI X 3 ) , C 11 1 3 



OR. 



McPaNOT(-O) THEN H£AO£«[23<-0; 
HEAD£Kt53 «» HLAD£Rt63 i= O; 

H nOMPfiO THEN 



BtGiN PRT£PlMiX*«>2i3«'I00*6ETESP0lSK; 
DlSKWAlTCH£A0ER.rCF3» 30* IOO)i 

Em FLSr 



dEGIK 

ENTERUSLRFILLCMIU'FIU»HEADER.CCF3-U; 
±mJt _^ „____ 



ENO;i( 



ENDIX 
TF RFW 



ANn NQTCLQnK OR RP L tiR T ^Mg V TUpN 



BEGIN 

IF H£AUERt^3 THEN 
IF WRITTENBN THEN 



STATE. C39t43i»2; 
END E1.SE 

bfgin 



HEADER[^tJ,[ilU3»si; 



H£AD£RCl3«-F0KMi>&HEADERt33i:6J3CS18]> 

IF HtAD£RCa3 THEN*FILE ALREADY EXISTS 
BEGIN 



J|sw«ITT£NON OR HEA0ERC4 3 . U 1 1 1 3 i 
$ SET OMJT s SHAREOISK 

I*IF FlBCta3.Cm3 OR NOT J THEN FIBCS 3 * t l3*l 3*10 £LSE 



POP 
SET 



OMIT 
OMIT 



(HEADER INX 0)J4FIBC53[30J13»33; 
a NOT SHAREOISK 



IF{I*OIRECTORYSEARCHCM10*FIO&JC3U7»13*I))/0 
IF PURSE- THEN 
IF M[H>it3.tl2U3«0 THEN 



THEN 



iiaiiliMii 



IF NOT systemfile:(mid#fid) then 

IF SECUR IT Y CHECK f Hip* FID' USERCODECPIM IX 3M).C 45*13 
P( directory SEARCH C "MI DyFIP* 7 )«DE^); ^_^ 



THEN 






IF H£ADER[^3.l.^3«13 THEN PCDI HECTORYS£AHCH( -MID,F ID* ? i # DEL ) £lSe 
BEGIN 
SET OMIT a NOT(DIS kLOG) 



::iiaiiiiiiiiiiiiiii^^ t a 3 n:* 



wmm, 



38-^73000 
3ff^740Qtf 



30475000 
38 476000 
3ft477Q00 



02&7J1 
V 2t>9M 



026110 
026 318 
026 5*3 



38^78000 
38479000 
38480000 



38481000 
384e2000 
3R483QqQ 



0265(3 
O266J3 
0268 t2 



027110 
0273 to 
027510 



38484000 
38485000 
3W/ifl6n00 



38486000 
38489000 
36^90000 



0275»0 
0276JO 
Q?7fl»2 



0284»1 
02d4<l 
028 6(3 



38491000 
38492000 
38494000 



36495000 
38496000 
3 64 97000 



0288«3 
029213 
0295 » 



029511 
0298 fi 
030011 



38498000 
3849900C 

i8!^onono 



38501000 

38502000 
a 8 'SO 30 00 



O3OOI1 
03O0S3 
303»2 



38503200 
38503400 
38503600 



303»2 
0303 « 2 
0303tg 



0307? 3 
O3O8II 

0308t3 



38503800 
38904000 
38504500 



0313»0 
0314«3 

0314*3 



38505000 
38506000 
38507000 



38507500 
36507799 
36507800 



0315*1 

0317*3 
0318*1 



36508000 
385C8001 
38508599 



0318*3 
0321*3 
Q32H3 



38509000 
36S1O000 



0326*0 
0328*3 
32 8^3 



032813 
03 3^1 
033313 



38512000 
36513000 
3fi5l5oOQ 



itit6000 
38518000 



0336*2 
0338*1 
0341*0 



38518500 
38519000 

38520000 



034311 



0346*2 
0350*1 
350*3 



FORGETSPACE(HtADER); 



36522000 
38523000 

3 952^000 



It3' 

#«i«ios 

0357*2 



38525000 T 0357*2 



^ 



• • 



k 



SJM[:.l39;iiit-\i% 



end; 



36526000 T 035e«2 
3fia27ntfQ T Q30QU 



IF NOT COBOL 
GO CLEANUPJX 



THEN Fl8C4],t27S3J*3i 



%i% 



38128000 
38529000 
3 aS 3 000 



360 « I 
0363»3 
QMiiii 



" ALGOL 

"coyaL 



%2% 
%2% 



38531000 
38532000 



366(0 
36710 



"FHRTg A N "* %JUL 



38533000 T 0368t0 



7 
8 
9 
10 
11 
12 
13 
14 

■5 
16 

17 



"TSPOL 
♦•XALQOL 



», J5JI 



3863*000 T 
3B535000 T 
36516000 T 



0369»0 
0370*0 
Q37l»fl 



CLEANUP' 

P;P&RCWCCTC]*0'R0S»0'XCH'P&HCCTF]'STF); 
ENO niSK TLnSFJ 



38537000 
36538000 
38SI 3 900 



037280 
3/2«0 
3 7 a ; 3 



PROCEDURE 'BACkClQSECALPHA); VALljE AtPHA; INTEGER ALPHAS 



ST A RT Q F-S-Ej 



Size* 0375 words 

38^^0000 T 00001 G 
SEGME NT > niSK ADPt^ESS « aQffl6 



BEGIN REAL KCW»tQ#M5CW*-2; 

ARRAY FlB»+lt*]*FPB» + iit*3*hEADER = -t-3[*Ji* 
%%% PONT AQD AhY DECLAHAllGNS BETWEEN "HEADER'* AND "kInD" %%% >^Cp 



38541000 
38542000 
36543000 



OOOOiO 
OOOO'O 
0000»0 



19 
20 
21 
22 
23 



INTEGER KiN0»^4#N8UfS«+5i'U»*6#BLENs+7j»CD0e«+8» 
UNLA8ELEDi» + 9*C0B0L*4-10»Is+n*J«+l2» 
F N UMa^ n ; 



38544000 T OOOO'O 
38545000 T OOOO'O 
I8'>4600n T QOOOfO 



24 



REAL MlD* + l''*'FlD» + 15»Rs + 16'D= + l7*c« + l8*F0RMSs + 19»STATt*+20; 

LABEL A6AIN/ECF^ECT*CL0SELU1#PBD*PUD; 

R E A L J iT A' t Z Wi^ . 



38547000 T 0000*0 
38548000 T 0000»0 
38 54 8100 T 0000*0 



Ml; 



REAL Tl»+22»T2»+23#T3»+24#I0D«+25;X 
ARRaY SEGO«*26t*3^SKEL«+27t*3; 
SU BR OUT I N E C QQLQFFn 



38549000 T 0000*0 
38550000 T 0000*0 
3fl552QQQ T OQQO'O 



28 
29 

90 



BEGIN FOR UO i)TEP I UNTIL NBUFS"! dO* 

BEGIN IF NOT MC ALPhA+ I] , [ 19 : 1] THLN% 
SL££P(CMLALPHA-H3 3^ lUMASKJU 



38553000 T 000l«0 
38554000 T 0005*1 
3 fl5 5gQOO T 00 07*? 



31 T 

32 

33 

34 

35 



36 

37" 
38 
39 



IF KIN0^4 THEN 

IF MtALPHA + I3tl27in 



THEN 6Q TO EOF;* 



ENO;X 



38556000 
38557000 
3B556000 



0010*2 
0011*1 
O0H* 2 



EOF* END CaOLUFFn 

REAL Ts + 28»ACCESS» + 29;!S 
BOOLEAN COMPGQs+30; 



38559000 
38561000 
36562000 



0015*0 
0015*1 
0015*1 



REAL TYPE«+3i; 
DEFINE REW"CQDE,U7»n**X 
R£U»CQ0£.C46«13<I*X 



30562100 T 
38563000 T 
36S64000 T 



0015*1 
0015*1 
0015*1 



40 
41 
42 



TlME*CCDE.t*5* l]*/5l 
LQCKsNUT C00E,|;A4J lJ#*% 
PURGE = NUT CU0E.t43:nif;* 



38565000 T 
38566000 T 
36567000 T 



0015*1 
0015*1 
0015* 1 



43 

44 
45 

•6 
47 
48 



$ SET OMIT » PACKETS 

DEFINE TO«£ELNU ■ ^3*33*15*; 
$ SET OMIT » NOT PACKETS 



3BS679S0 T 0015*1 
38566000 T OOJSU 
36560050 T 0015*1 



SUBROUTINE CKBKuP; 
BEGIN M[MtALPHA]lNX 17 



3«-MCaLPhaU(FIBC5] 



)[FTC3; 



38569000 T 
38570000 T 
38571000 T 



0015*1 
0015*1 
0016*0 



49 

51 ,!■,: 






38572000 T 
36573000 T 
36573100 T 



0020*1 
0022*3 
00^4*0 



54 



THEN BEGIN PBI (ALPHA^F 1b [ 14] ) ; SLEEP C [M t ALPHA 3 3 * lOMASK )EnO ELSE 

begin; STREAM(S«- MCALPHA3*;i«'FIB[143«CFF3); 
BEGIN SI»S; 0^»lfl WDS ENQJ 



38574000 T 0025*3 
38575000 T 0031*3 
38576Q00 T 0935 » Q 



55 

56 J 

52 i 



FlBCl43,tFF3*P(DUP),CFF3-18; 



mKi 



lAEJ^ 



J6llliily|l»iiii:3 ■ 



55 

se ' 
57 



RCW:aRCW&P(XCH)[CTC3; 



38581000 T 0040*0 



# • 



2 
3 
4 
5 
6 
V 
8 
9 
10 
11 
12 
IS 



15 
16 
17 
IS 
19 
20 

21 
22 
23 



24 
25 



26 
27 
28 
29 



30 

3r 

32 

33 

34 

35 

36 

37" 



40 
41 
42 



45 
46 

47 
«8 
49 

50 ;,; 
SI 



S4 






[i:^ am: K1nD = 7) THLN % MuLll-RtLEL PBT Fll,L 



36581100 
365H1.2QQ 



00«1«1 

Q042»3 



BE6IN 



FlBC9J,n»U*0J 



3B581300 

aeseuoo 

3flSfltSQ0 



ootsu 

0045*3 
QQ4ff«i 



GG TO lot; 
end; 

jr FTfarl73<0 THEN 



38581600 
3O58170O 

385fl200Q 



004910 
0049S2 

0049*2 



BEGIN MCAl.PiA3.CrF3**60020; IF TYPE<20 THEN CKBKUP^ 
MCAtPHA3.Cl8»n*"0; CK8KUP END5e 
FUSE IF FIRI 171<:Hi£N THFMX 



BEGIN IF NOT C^BOU THEN F I dC 1 7 3 *F IBt 1 7]- (STATe . C46 » 2^ »3) ; X 

STKEAM(N««FlB[17]fOJ»MCALPHAJ.CCF3); 
BEGIN N(DS;s8 LIT " ")/ END; 



3aSS3000 
38384000 
18565000 



00 SO 1 2 
005610 

nofiitn 



38586000 
3858 7000 
38587500 



0063«0 

0067»2 
0Q70ln 



MtALPHA3«'FLAG(FlB[16U0C20x/t7UI)i CKBKUP; 

END Else cooloff; 

. M[ALHHA3»(*PCpUp))&(e60000KCTFJ&(TYpE<20)E32t47ll3j 



38588000 
38589000 
3ft390Q00 



0072M 
007610 
0078^0 



IF NOT UNLABELED THEN 
BEGIN IF TYPE<20 THEN CKBKUp; 
W[ALeHA3«-(*PCDuP) )<i;2L16>45t3]&MtALPHA-2l[8l8 tl03J 



ST«EAM(L«-MULPha*23/8«>W|ALPHA3 )J BEGIN SUti DS*17 WQS 
end; WCALPWA3»t2Qil3«-l; IF FlB£i43.CFFlxFliCt«l.tCF3 THEN 
BEGIN CKtJKUP; FlBi:i43.IFF3»PCoUP);£No; CKBKUP? 

IF K1ImO = 12 TritN % PBO 
BEGIN T«.FlpCUJ,C3»l53; 
IF (R:=wIT-»73x3) NEQ THEN 



eNo; 



38591000 
3859U00 

38992nQa 



0081«3 
0082 «1 
0085 10 



38593000 

38394000 
38595000 



0090»0 
009313 
0099»0 



38596000 
38597000 
385980 00 



BEGIN IF R < PBDROWSZ TmEN 

BEGIN FaRG£TUSEROlSKCMCT+l03+R*P8DR0WSZ»R+U; 
MtTH^83»R; [ -__ 



38598100 
30599000 
3fl6Q0QQQ 



0l04»0 
O1O4' 3 
Ol06»3 



040913 
Oil 1 1 

ail s ft 



end; 

MCT + 13*-M[T + 3]; 

STReAM(a»FPB[FNuM42J ♦[16»30 3*T4-T>3); 



38601000 

38602000 
38003000 



0117»1 
0117J1 
0120*? 



BEGIN SI*LQC A;dS«-8 OCT; 0I*DI -8 ;0is<-2 Ln***2»i 

si«-t;si«-si>5;ds«>3 chr; 
end; 



3860400Q 
38605000 
38606000 



0123«1 
0i24»2 
012511 



MCT + l3.[6JH33«-M[T + JJtt30»183; 

IP IJ»type>20 Then mlt+53 ,[31131*0; 

R»=MCT+63; 



38607000 
38607100 
38607200 



4 SET OMiT * DATACQM 

PCO); 
$ POP QMIT 



AND RJE 



38607299 
36607300 
3H607301 



0i25«2 
0130*2 
0135«2 



0l37»2 
0137«2 
0l37*3 



$ SET OMIT s NQTCDmTACOM AND 

MCT + 63 J»^'(XCH>; 
M[T.»5 3ai^«13«-Oi 



RjE ) 



38607399 
38607900 
38607950 



Ol37«3 
0137*3 
0l39«3 



AGAIN! 



DlSK«lAn«T*30»McT'i3J; 

4l»RiltTaREEt.N0.3; 
PCOISECTORYSEARCHtwdF 



I THEN P(PU03 ELSE PCPBO? 3»4* 14?^ 



38608000 
36608100 
3fl6Qeg00 



Oi43to 
0l45»2 
0146*3 



DEL); 
IF J/'R THEN 
BEGIN STREAMC0NE*3l» 



■zHsm 



MsmmMmmmmmj 



D» = CJ3 ); 



osi»8 ADO end; 



38608300 
38608400 
381985 00 






0149*3 
0150*0 
Ol^Q »3 



015510 



$ SET UMiT a NOT 
t SET OMtT ' NOT 



PACKETS 

IF AUTOPRINT 

RjE 



$ SET OMIT * NOT 



THEN 

i4£ 



P(P«INTaRPUNCHWAITCR&H32«32»l6]* J 

)# P EL); 



38608890 
38609100 
38609190 



0155*0 
0l55»0 
Q 155*0 



38609300 

38609390. 
3a609fiQe 



T 

t 



Ol$5»0 
01 57; 1 3 
01 5 71^ 



$ SET OMIT = NOT PACKETS 



38609590 T 0158*2 



• t 



$ SET OMIT 



10 

I 11 

12 
13 

I 14 

15 

16 
I 17 

IB 

19 
1 20 

21 

22 

23 

24 

26 

26 :; 

27!' 

28 

29 

» 

J1 



32 
33 

34 

35 

36 

37" 

38 



40 
41 
42 
43" 



I 44 
45 
46 
47 
«8 
49 

Bif 

52 

53 

S4 

55 

56 ,;■,. 



IF PBDREL 



$ f?QP OMlT 



QH CLU!>EMfc .6S TH£N 



FlLEWESSAGECdF I 
C"R£L 



THEN P(PUD) ELSE P<P80))«iRt24l6l24]# 
''?&R[30»3OUe3#MID»FID# 



ENUi 



FIB[7]#0'0*(PBDREL OR CLOSEMEJJb ) ) ; 



FORGETSPACE(FlBCU3.L3tl5j); F I B [ 14 ]^ [ 3 1 15 J t »0; 



END ELSl 
E07» BEGIN T«-Pl7370O000OO0U0O0; 
J»WAITIQCrT3»P4Q*U)X0 OR j; 



I «= spACE(a); 

STHEAM(PM3TYPE 

S EaiN 



GEQ 20*DJi=0*I); 



0S»»24LIT" LABEL OPBTMCP OBACK-'UP"* 
PN(U«sDli Dn»Dl-14; DS>52LIT"UT"; 0I»»D)# 
20(QS»«2LIT" »}} 



ENOJ 



IF NOT UNLABELED THEN M[ I +<*]♦■«[ MC ALPHA-2 } INX ^ ] . t ^2 » 6 3 ; 
MCl*33«-Ti; % MARK ENmNG TAPE LAhpL fQR MULTI'RfLL tOND^ 



J*WAlTlD(l48Ca»3an0 345C2l'«5»3 3**40,U)X0 

FQRGETSPACEd)^ 

FOR I»Q STEP 1 UMTIL 1 nCX 



Ji% 



PcwAiTiocp 10000003^0000005* tf40*u)*ueL);a; 

IF crWQCU) AND SAVEWQrtD)/0 ThtN* 

SFlNQTINOSECU^n) FLSb 



BEGINX 

RDCTABLEtU3*(*PtDUP))iOC8:8»6 3SRCH»38»lO]; 
PRNTABLEtU3.C15M53«-0f 



RRRMECH«sN0T TwO(u) AND RRRMECh; 
!«» IF (AUTOP«lNT ANq Rsi) ThEN NOT 

PRINTURPUNCHWAIT(-U>TYPE GEQ 20) AND 1 ElSf i; 



if i then if 
end; end* 

STATE. [FF3*q; 



J THEN seTN0TlNU3E(U*0) ELSE LABELTABlE [Ui » C 1 1 53 »"^ 



GO CLOSEOUT;* 

PBDui "PBO •♦; 

PUQt;: "PUD "; 



CL08E0UTJ 

P(P&RcWcCTC3*0»R0S#0'XCH*P&PtCTF3#STF)^ 
END BACK CLOSE! ; 



PROCEDURE QTHeRCLQSE(AlPHA); VAl^E ALPHa; INTEGER AuPHAiX 



36609999 

3a6ionoo 



38610001 
38610100 

3a 6 10 g^ 



38610250 
38610500 
3a6l060C 



0l5flJ2 
Qiafl82 



01601 1 

oi6a»i 

Ql60fi 



38622000 
36623000 
3B6?4nQQ 



0160U 

0l66«3 
1 66:3 



386250O0 
3R626000 
3ft626lQQ 



0l70«3 
0i70l3 
017313 



38626200 
38626300 
3H626flQ0 



017652 
0l78«3 

Ql6Q»2 



38626500 
38628000 
36628100 



0i80»2 
O183I3 
018513 



38629000 
36630000 
311631000 



0l86«3 
Oi87«0 

-OlliiO. 



195 10 
Q 199 1 3 
0?00f2 



38632000 
38633000 

3863^000 



36635000 
38637000 

36636000 



0203«0 
0206»3 
Q?OB>? 



38638500 

38639000 
38639100 



0210«0 
0212»0 

0215*? 



T 

T 

T 



38640000 
3664 1000 
3i6A20QQ 



38643000 
38644000 

38644S00 



0218«0 

0220«0 
0222»^ 



0226*0 
0231 »2 



36645000 
38646000 
36647000 



0232«3 
023311 

02 35 « 



023610 
0236»0 
0238«g 



BEGIN REAL RCWs*0* MSCW«-2; 

ARRAY Fia«*H*J»FP8s+2t*],HEADER»*'3C*3;X 
»«* DQnT add any declarations RETWEEn "HEADER" AND *^KInD'* XXi! WCP 



SjZE" 0239 WORDS 
38648000 T 0000«0 

START OF RE^ segment; DISK ADDRESS « nQH:JZi 



INTEGER KIND*+4,NBUFSo+5»u«+6,BLEN*+7,C0DE»+8* 
UNLABELED* + 9* COBOt«*10» I« + 1 1* J» + 12<« 

FNUM'tia; 



36649000 
36650000 
38651Q00 



Real ■MI^:D«Mi*f'ii**l5>R:»>i'4*'D*^llfiif **l^8>f^ At E" +20* 

■ai'ifctTl«ii»iili:i»iiiiitir'l^^^ .:•■.:■;::.::■.■■•■.■ . ..-:■".- 

ARRAY SEG0«*26t*],SK£L=*27t*3; 
REAL T=+28'ACCESS»+29;X 

BOOLEAN CQMPGU='-t-30J 



35652000 
38653000 
38654000 



ooooto 

0000»0 
0O0Q»O 



36655000 
386S5100 



0000*0 

0000*0 
0QQQ*0 



ii:.immii-i 



;^fciiiPliiiii»> ,. 

:!iliiiiiiiii^liipiiil*»^ cci 

lilKiiilsiiipiiipiiiiiiiWii tK..u.p y 

LABEL eof/Un/une» cleanup;* '^ ^ ' ~~~ 



38657000 
38658000 
38659000 



ooooto 

0000«0 
000Q»0 



38660000 
38661000 



OOOO'O 
0000«0 
0000*0 



ooooto 

OOOQtQ 

ooooto 



n 

2 

3 
4 
5 
6 
7 
8 
9 
10 



12 

13 

14 

15 

16 

17 < 

18 

19 

20 t 

21 

22 

23 ( 

24 

2S 

26 i 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 i 

39 

40 

4,< 

42 

43 

44 t 

4S 



46 
47 
48 
49 
50 
51 



e 



52 

53 ' 
_54' 
55 

56 ( 
57 



38663000 T 0000»0 



h- 



LABEL EOD; 



CQOuQFFyX 



38664000 T 
3a6fi500Q T 



OCOO'O 
QpOOtn 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 



BEGIN FOR I>0 STEP j UNTIL NBuFS»l 00* 
. tCQlN if NOT MtALPHA+l3.Cl9n3 THEN* 

SLEEP C I Mi ALRHA-H 3 3 # lOMASK ) J X 



38666000 T 
36667000 T 
3H6ftanOQ T 



OOOllO 
0005* i 
0QQ7»2 



IF KIND/4 THEN 

IF MCALPHA+I J .L27tU THEN GO TO EQFi* 



ZUDi% 



38669000 T 
38670000 T 
36671000 T 



0010«2 

ooini 

0Q H«? 



Eori END cooloff;% 

DEFINE RE««C00E,C47»1]**X 
R£L«C00£.C46;i3»#X 



31672000 T 
30674000 T 
3 8679000 T 



aoisio 

001511 
00 IS It 



TIME=C0UE,[45» 
LOCKsNQT CODE, 
PUHG£=NOT CODE 



l3#»* 

,C43» ii»;% 



38676000 T 
38677000 T 
38 676 00 T 



0015«l 
0015«1 
Q015»l 



SUBROUTINE EMPTY;* 
IF FIB[173<BU£N AND ( 
BEGIN IF NOT COBOL TH 



STATE. C46»23X0 OR KiNDal) THEN 

EN FIbCl7]»FIBCl7 3"(STATE.E46<23ii3)J» 



38680000 T 
38681000 T 
38682000 T 



0015U 
00t6>0 
0019<g 



STREAM(KlNO#N|s 

BEGIN Sl*LQC KI 

IF SC = " 2" 



FIB[l7],OJ»MtALPHA3,CCF3)i 
NDJ SI*Si+7;X 

TH E N D S4.U T '*»^ EL SEX 



336 83 000 T 
386a<»000 T 
38685000 T 



0024 »0 
0026*3 
0Q27M 



19 
20 
21 
22 
23 
24 
2S 
26 
27 

a 

29 
30 

31" 

32 

33 

34 

35 

36 

37" 

38 

39 

«0 

41 

42 

43 

44 

46 

16 

47 

48 

»9 I 

50 I 

B1 j 

52 

U 

S4 

55 5 

S6;:! 

57;' 



IF sc«*'5" Then os*lit ♦*♦« else ncos«-8 liT " ' 

ENOi* 
PfWAlTI0(FTB[163&fBL£N*FTBn7]xfKrNDa?)3fft»^flllQ3a; 



};x 



36686000 T 
36687000 T 
38688000 T 



0028«2 
0031*3 
Q032»n 



END 



FlB[63*FiBC63 + lj 

ELSE cnoLnFFU 



*?40*U)*DEL)i* 



38689000 T 
38690000 T 
38 6 91000 T 



003fl«3 
00 36 » 2 
03 8«g 



LABEL CLOSEOUTiX 
LABEt E0FIT;X 

PfftrW.MSCMiSTFJt 



38692000 T 
36693000 T 



0040»l 
0040M 
:HBA9^000 t OpflQU 



, CR« 



RCWJ58CW&PCXCH)CCTC3; 
GO TO SWCKIND]/ 
COQ L QFFJ BUAST'JCU ? n 



38696000 T 
38697000 T 
^9699000 T 



004210 
Q043M 
no?iO»3 



IF liNBUFS THEN 00 UN 
BEGIN I^MtALPHA + Hf C3 

^ T»rfBri6],r33ti 



TIL 'rtAITlQCMCALPHA-23*«»40*U)xO EL^EX 
3I153;X 

53-2 ;;t _ 



38700000 T 
38701000 T 
38702000 T 



00S2}3 
0057*2 
OOftOta 



FOR J*l iJTEP 1 UNTIL NBuFS OOX 

BEGIN IF CI>T) AND C I SC T + BLEN + 1) ) THEN GO On;« 
. T»MCTJ ,,[ia,M S3 ' 2f:t 



38703000 T 
38704000 T 

30705000 T 



0062<2 
006410 

06 7«? 



EN0;« 
ONJ M0VE<10»T+2»MCAlPHA-23);X 
FNnix 



38706000 T 
38707000 T 
38708000 T 



0070*1 
0072*2 
0Q7!>I3 



ONE* 



IF JARtPlMlX 
IF PHTCPIMIX 
BEGIN STREAM 



»0J<0 THENX 

»f25]X0 ThEN% 

CI* E^^ENDPACK"/ 0«-mE ALPHA*2 3 ) ; X 



38709000 T 
38710000 T 
3 671 1 000 T 



0075*3 
0077*1 
0Q7«j*l 



Li:.:-"':. 



QI*LQC Ei 






3fl7i2600 T 0082*2 

38713000 T ooeats 
3fl7i4ofls t — Qoasia 



45 
46 

47 ( 

48 

49 

50 ( 

St 

52 

534 

54 

55 

56 ( 

57 



IK 3 SC = DC THEN TaLLY«-1; 
% SET OMIT » NOTCPAOKETS) 

ifiAii^m 



38715000 T 
38715099 T 
367 16 00 Q 



0084*1 
0065*0 






B LAST^<U J 



m 






0085*1 
006S*2 
0065*1 



DO UNTIL WAiTlU(MtALPHA-23*«'40*U)^0;X 
GO TO ONEJX 



end;* 



38 720000 T 
38721000 T 

3fl722flOQ T 



0087*0 
0090*2 
009210 



m xm 



iiiiiiliiiiii 



387280 00 T 



009gl0 
0092*0 

Q0? gf3 



MtM[ALPHA-23 INX NOT 33.C9*63jsO; 



38726000 T 0092*3 



• • 



rf 

2 
3 



to 

11 
12 
13 
14 
15 
16 
17 
18 
19 
M 

2' 

22 

23 

24 

26 

26 

27 

18 

29 

M 

31 5: 

32 

33 



LABELTABLECUJ«--eu; 
Rnr.TARLFlUJ^Q; 



IF 32SU AND US63 THEN PSEU00caPY*P5EUD0C0PY+li 
lNOEPENOENTRUNNER(P(..CQNTHOLCARO)#CMCALPHA«23tECF3)& 
SET OMIT « NQT(DaTaCCM AND RUfc ) 



6U c lqse qut;* 



UC2»42:6UJARCPIMIX,6]CH1»U» 

192); 



cpi empty;% 

IF NOT UNL*8£LtO THEN P( wAlT ID(ME ALPHA-2 3/0#U) »0EL ))» 
-^ SFTNTlTINUSt: (U«FnRMS flR PUNCHt>CK)l 



GO CLOSEQUT;* 

ipi empty;* 

pc»^A i Tin( y^ QOO^occQ Q^c>LOf UF d;* 



IF NOT UNLABELED THEN 
SETnOTINUSE(U#FORMS); 
r,n rLnsFDt]T;t 



PrWAlTlD(M[ALPHA-23#0,U)#DEL);X 



STATE. t^3«lJTHEN cOOLOfF eLSe EHPTY;X 

clusedut;x 

NUT STaTF.[^1;i3 THfNS , 



SPI IF 

GO 
JUJ L£. 

BEGIN IF STATE. tA3ll3 THEN* 

BEGIN COOLOFF; BLASTU(U);X 
IF NOT REW THEN 



BE^IN T«.PiO00C0Ol40000OO5&STATEt22«4AJ l3;* 
IF UnBUFS ThEi\ do UNTIL WaITI0CT*?37/^U).[42»13; 
IF NOT U NLASEUED THEN 



JtMO. 



END;* 
ELSEa 



P(WaiTiO(T*?377*U)#DE1-); 



BEGIN empty;* 

eOfit; T4.*'i737oooooooooooo;ii; 

P ( >^AIU tCT3 > Pad >U ) * DEU);* 



IF NOT UNLABELiO THENX 

BEGIN;STR£AMCBC«.FIBt6],RC*FlBC7 3*0*MtALPHA-2 3);» 
BEGIN SULOC 8C; DUDI*4Q;« ^___ 



33730000 
3 8 7 3100 



0097 
O 099 



36732000 
38732100 
36732199 



T 
T 

J a 



38732300 
38732<»00 
38733000 



38735000 
36736000 
38737Q00 



38738000 
38740000 

38^01000 



T 
T 

-^ — a 



38742000 
38743000 
38744000 



38746000 
36747000 
38749000 



38750000 
38751000 
3875200 



T 
T 
4 Q 



38753000 
38754000 

3875 4 100 



38755000 
38756000 
3 8 7570 



38758000 
38759000 
3 87 6 0Q Q 



38 761000 
38762000 



3 8 763000 T 



00 
04 
S1£l 



06 



10 
11 



16 
17 



19 

23 



26 

30 



31 
32 



35 
38 
44 



42 
44 
44 



44 
47 
4^ 



49 
49 

54 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 



• 
• 



34 

35 

36 

37" 

38 

39 

40 

41 

42 

*3 

44 

45 

46 

47 

•8 

49 



DS'-s dec; os«-7 qec;% 

end;* 

Pf.WflITTn(WrALPHA-?]^e4Q^U)yOFL)i* 



38764000 
38765000 
38766000 



T 
T 

Ji_ja 



53 

54 



5flt2 



34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
4« 
47 
48 
49 
50 
51 
62 
53 
54 
55 
56 



P{WAITICCCTJ*?4o*U)»DEt);X 
T4-»)1000000 34000000a jX 
PfWAlTIO(T>g40*ii) *DEL);% 



3876? 000 
38768000 

3fl769Q00 



T 

T 

t 



57 U 

58»3 
S9»9 



end;* 



ENOI* 
F N n El. SF* 



38770000 
38771000 
38772000 



T 
TO 
T 



61J0 
6110 
61«0 



IF FlBtl83.Cl«l3TH£N BEGIN FlBt 18 3 , [ 1 » 1 3*F IBC l6 3*0; 

Fl8El03,t3ll53l«0; 60 EOFiT END! 
TF R EW THE NX -__ 



38773000 

38773100 
3ft77an00 



T 
T 

-t a 



6110 
6910 
I2IQ. 



t 



BEGIN P(WAlTlUC^a2000U0000'?i77#U)»DEL);X 

STATE. t4O»l3*0;» 
END ELSE gTATfc.[40ll3«'N0T STATE . [44 »; 3 j it 



38775000 
38776000 
3 8 777 00 



T 
T 
T 



72? 3 

74»3 
7.6 1 2 



50 
51} 






367780&0 
38779000 
38780000 



T 

T 

Jf 



80t2 
8111 
92*3 



52 
53 
54 
55 
56 



END ELSE STATE. [4ll23«-2;« 

IF LOCK THEN* 

RLGIN S^TNUTlNUSFfU^ir 



38781000 
38782000 
36 78 3000 



T 
T 
J! Q. 



8412 
B6<3 
a7M 



<d_ 



ENDJX 



38784000 
3B78S000 



T 
T 
T 



89»1 
9110 
9 U0 



IF PURGE THEN* 



38787000 T 



91«3 



h 



BtGIN IF PRNTAbLECUKO THtNX 

Ii ^P E: Pir .i |n E )MTH I.ii M i \ERf p( , Ptti G Eni# U *6A) 



EUSE MTNOTINUSECU-O); 
STATE. Ci>t»23*-i;i 



38^88000 
3 8789 000 



0l9 <t; 3 



ENOf » 



38789100 T Oi96lt 
38790000 T 0198*6 
3 8 79 1 000 T — 019913 



12 
13 
14 
15 



GO 
PP:! IF 



TO cleanup;* 

NQT STATE. ['H:!] 



then:* 



BEGIN empty; P ( WAITIUCP2 0< * 5QOOQQOO O> » <1 Q» U ) « DE I» ) ENpU 



38792000 T 0l99S3 
3879^000 T 020051 
3 8 79500Q T — q sO2 » 



GO TO px; 
PPM IF NOT STATE, l^ui] 
— IF REt < THEN PC AIT I0<» 10 3<tQ000Q00 ,g377< i U ) >DCL)i » 



THEN BEGIN COOUOFF^ BLASTQ(U) END;X 



38796000 T 02Q5»2 
38796000 T G207»0 
3 799000 T — 0810*3 



cd»» 



GO TO PXi* 

IF y[Al . PriA 3, Ci7a3 THEN KI Q VEUQ ^ F IB 1 1 6 3 i C 33 » 1 5 3 *>< t A^PH A -gj ) r - wSE 



38800000 
38802000 
3 68 03Q0Q 



EODI 00 UNTIl. READ£MfR0M0ISK(CIDR0VitU-32]*MCALPHA*23 )J 

» SET OMIT a PACKETS 
_ — IF ClOTA8l,£CU'' 3 a>3 3 LSS CIQT ApLE [ySe^ 73 THEN — 



38804000 
38804999 
3 >18 05000 



0213«2 
0215'0 
0gl>5«0 



0220»2 
022412 
02g4«g 



POP OMIT 

IF JARCP1M1X*OJ<0 AND PRT [f' !« iX# 2l3;<0 



OK JaRCPIMIX* i3<0 ThEN 



. BEQIN — — — — -^— ^ ■ 

SET OMIT sNOTcPaCKETS) 

BEGIN StSEAM(E*-"£NOWAlT«s««.f 14, 0*MtAt,PHA-2rjl 



38805001 
38806000 

1^ 



T 

T 



0227 « 3 
0227S3 



3B90 6 0&0 T 0233 * 1 



19 
20 



22 
23 



38806099 T 
38807000 T 



0233»3 
0233i3 



B EQIN S1 » L0C Q; SUSI*?) IF SCXOC THEN DUDl ' Hi Q^DU SI «. q; 



38000000 T 0g36« 2 



24 



Li ly sc=" 

DIALOG E, 
t SET OMIT s NQTcPa C KETS) 



" THEiN BEGIN SI^SI + i; GO TO L END; 
; DI«-D1 + U IF 3 SCXDC THEN TAlLY*1; 



38909000 T 
38810000 T 



0238«1 
0239«1 



38 8 1 9 9 T 0240 i g 



26 
26 
27 
28 
29 
30 



end; 
end; 

KIND«-O J 



e*tally; 
end; 
ir p then go TO cod; 



38810500 T 0240*2 
38811Q0Q T 0240*3 



30812000 T Qg4i»0 

38813000 T 024l«3 

3S8l3i00 T 024l»3 

3 68 1 4 000 T 0e 4 l » 3 



31 
32 



GO TO 
CLOSECUTi J 



cc; 

STATE. I39»4]*i; TIME*i;i; 
CLC A NUPt* CLOSEpt QK» BKl J Pt 0C» 



024212 
0244*0 
3 8 818000 T Og 4 ?fg 



38815000 T 
38817000 T 



34 

3S 



37 
39 



P(P&RCW[CTC3*0'RDS*0*XCH#P4PCCTF3,STF); 
END OTHER CLOSE; 



38619000 T 
38820000 T 



0248 5 
0250«2 



SIZE* 0251 WORDS 



39 



PROCEDURE FILEOPENCXTRA, ALPHA); 
VALUE A LPH A , XTR a ; INTEGER A UPH A »XTRA ; 



39000000 T 0000»0 
START OF REl segment; Disk ADDRESS s 00833 
3 9 000100 T OOOO'O 



40 

41 



42 



BEGIN REAL 
REAL 



RCWi5+o;x 

lOMslOMASK, 



lOMASK, 



RfcAL Xj R ARs« <l* XTRAC^^6; 



39001000 T 0000*0 
3900110U T 0000«0 
3 9 001200 T 0000 < 



♦B ■;■ 



INTEGER N8UFS*FNUM*RL£N*TYPE*I0»BLEN*U#KIN0* 

MOOE*0lReC>F0RMS,caB0L^UNUABEU£O*OPTlONAL»CNTCTL; 
RE A L T l >Ta * H AS K > STATE; 



39002000 T 000010 
39003000 T 000010 
3 9 00 ^ 000 T 000010 



47 



REAL MFIO*FIO; INTEGER REE*-' GDATe# CYctE; XKeEP TH£Se TOGETHER 
ARRAY Fiai*]#fPBC*J;X 



39004100 
39005000 



T 0000 >0 
T OOOOJO 



LA B EL 0KRN# S PN > DKSN , DKUN,0KPN,DCN; 



3 9 00»QOO T ' 0OQ0 » O 

39006100 T OOOQIO 

39006800 T 000010 

aoOOFoOO T 0000*0 



t9J! 
50i' 



51 



S2 



S4 



SWITCH insw*dkhn,spn*dksn#dkun,dcin; 

LABEL L0aK*EXIl#LOOKOUT*LPi''FINALlN*FINAL0UT«SPDC;X 
REAL SgBRaMTlJ>t fc. D&ED; PSEO«-TERMIx , UF 3» PtMlXJ.ai 



39008000 T 0000*0 
39009000 T 0000*0 

3900 9 050 T 0000 f O 






REAL SUBROtJTiNE CMTU9lt§iJI , 

CNTUSns#IQi»ASKiMa0Et2it*tnUOlRECt^2l47ll34CNTCTI.C23 147113 
H'QEa 4 « 4 y*i3i(«lNp«y Q« K .|N0>9 AI ^ D *<lND<12)Ig0t47 » 13 



39026000 T 0C02«3 
39027000 T 0003*0 
3902 6 000 T 000 5 *g 



&CU' KiNDslQrt KIND»70R KI NDs12THEnP20ELSE 0)[27:42lft]; 



39029000 T OCIO ?0 



• t 



>T 



16 

17 
18 
19 
20 



22 



24 



26 i 

27 r 



jr, 

32 



35 



36 
37' 



40 
41 
42 



SUBROUTINE MAKtlQUSiX 

OCGIN r IPC 16 3 < Tl <' (CnLfc.N " l)xDlRCC » H[ALPH*J)&CNTt O nGCie»ie»l5 3» 



&CIF BLENS1023 TH£N BIEN ELSe 102i ) C8; 38» iOn 
&TiNU[IF (KINUs? OR KIND*12) THEN IF TYP€<20 
T h EN 20 tLOg 22 ELSE 



IF KlNLsli THEN 23 ELSE U ) t 3 » 3 :5 ] UR m; 
FIB[19]«-CIF STATE. t46l2]«0 THEN (OIREC INX TD* 

&(2A0IR£(;»(BL£N>1023) * i)[3U3t 5 3 ELSEl 



IF STATE. t46:2J*X THEN CCNOT RLeN INX 2)X0IReC iNX TD 

iRLENC8i38si034(3xOlREC*2)C3»43i53 ELSEX 
(1-OlREC INX Ti)&RLENC 6> 38 l l03&(0I R E C> 6)c3«<t3» 5 3)% 



&IQ[2SI47S1];* 
IF NOT (10 OR COHODTHENX 
Tt «- FIO[1 9 3ATiC3U*6J&0[£ 5t 25 » l3i* 



FIBtl03»C3U5a*MtALPHA3*2; 

T2*n,t33»l5 3-MCALPHA3;x 

rnR MASK * STEP 1 UNTIL NOUFS - 1 



XHEAD OF BUFFIR RlNS 



-&©*■ 



BEGIN %p 

MCALPHA + MASK3<-FLAG(<F(DuP*LQD) + T2)&P(Tl,XCH)E3i»33>l5]);x 

ENO/a — ■ . . 



END MAKElODSn 

LABEL 0KRO#SP0/DKSO*DKU0*aKPC,DC0; 

SWITCH nUTS W« OKRO*SFOf DKSO^DKUO^DCOI* 

LABEL FIXFlB#f XND#SHACER;* 

LABEL PRLFlNAL*DKi;iS 

ARRAY H CAD£nt*3;it 



REAL tog; 

LA0EL AQN; 
FI9« . Mc A lP h^ "3 3 * 



FPB «. pRTtPlMix>3 3 *» 



IDMA^KtalOM; 

NbUFS«-FiBcl33 . [ 1 « 931 FNUM«.F iB £«] , ( 13J 1 1 3 ^ 

TYpE*FPBtFNUM* 3 j,U3»5 3;i > 



BLEN«-FjB[i83,[3»l53'* 



STREAWCS ♦ £FP8|rNUM+23 3# U ♦ CREEL3 3;X 
BEGIN Si»*S;oa«a30CT;05i=5ocT;OSl«OCT ENOJX 
PCCDATK * RS6 > . rO A TF^»); 



IF FPBCFNU^ + 4]>0 THEN REEL *■ CDATe •• CYcLE «■ O; 
M0DE-Fl8Cl3].t2^in; ia«-F lb [ 1 3 ] . 12? s 1 3; RLEN*F IBC 18 ] ♦ t 33 : l5 3; i 
niRFC4.FTHri33.L?5»n; ^:0R^^S«■^PftrFNUM*■^3 . raPi p :* 



STATE*Fl8t5]; UNLAB£LED«-FI8C4 3 . C2« 13 ; 

WFID«-FPbCFNuM3* FID<-Ff BIFNUM + Ij; OPT lONAL*FI8C43 , [5 I UU 

cnflni »CFtRCi3i AKiD i^iiffriHT.ratiQi.32UHAytnt % cnem 



KlND*-FlBtA3,C8M3; REfc.L4-KiBci33.[28«l03;X 

IF COBOL^O OR FIBC/*3.C7«1J THEN % COBOL 60 OH SqRT 

MIFIB INX NOT l,].C^>63t-2 



6Q & 68 



46 



ELSE MCALPHA-?3,t3l63*2; 
SET OMIT « NQKDATACOM AND RjE ) 
TF TY»C«19 THFN GO TO Mf.lS FLSF 



39031000 
3 9 032000 
39Q3300C 

39034000 
39O300SO 
3V0341O0 
39035000 
39O360OO 
39037000 
39O38COQ 
39O390OO 
39040000 
39041000 
39 042O00 



T 

T" 
T 

T 

T 



39042100 
39043000 
39040000 



39045000 
3904600G 

39047000 
39048000 
39049000 
39O5O0OO 
39O540OO 
39055000 
3 9 056000 



39O561OO 
39056^00 
39063000 



T 
T 
T 

■T- 
T 
T 

J 
T 

T- 
T 
T 

-T- 

T 

T 

r- 

T 
T 

T- 
T 
T 



0015J0 
00 17 10 

Ooai«o 

002312 
0026 « 3 
002911 
0034 »0 
0037* 
0040*2 
004 3* 3 
0047*3 



0051*2 
0053*0 
0054*0 



005>I2 
006 1 ? I 
00 6 3*3 



0068*0 
0068*0 

00?l »-3- 
0072*1 

0072*2 
007g ' g 
0072*2 
0072*2 
Q072 * 2 

0072*2 
0072»2 
Q07e * e 



39083100 
39084000 
390 6 50 C 



39086000 
39087000 
39087100 



39087500 
39088000 
39089000 



0084*1 
0085*0 
008 9 *2 



0091 1 2 
0093*1 
O09 4 *S 



0095*2 
0099*1 
0lQ3«3 



39090000 
39091000 
3 909 11 00 



Ol07*l 

0i09»3 

.QU3»3 



3909200G 
39092010 

39092020 



48 



49 
50 



IF TYPEa26 THLN GO TO DkPN ELSE 

IF TYPE>26 THEN GO TO DCN> 

If CiyPElQ ANO, NOT, TO) OR TYPE CiTR PO.THFN 



39092030 
39i92039 
39 ^ 920 45 



0117* 2 
0120*2 
ni 2 2»2 



0125*1 
013012 
l3Q* 2 



51 i 

a 

S3 
S4 









39092050 
39092055 
39092060 



GO TO lookout; 



55 
56 



end; 

IF TYPEal OR TYPE 
REfU,N IF USFPBQ 



39098070 
39092074 
39g92nflQ 



0131*1 
0l32«2 
Ql34»l 



i4 QR CTYPE>14 AND TYPE<19) THEN 







39092090 
39092 lOO 
39Q9g4,5^. 



0|36f 3 
Ol37«l 
QI37U 



S'K: 



GO LOOKQuT, 



i9:0'9«iii« 

39t92l64 



T 
T 






0139*3 
0l39*3 



0l«4*0 



li 



56 ' 
57 



39092185 T 0l46«0 



n 

2 

3 

4 
5 



end; 

IF REE Ls O TH £ N RfcELHJ 



39092190 T 0l46«2 



IF 



IQ THEN 
IF TYPEffi 



AND 



TYPEX20 THEN 



39092500 T 
39093000 T 



IF TYPtai" THEN CO tO INSWC TYPf'lO 3 ELSE GO LOOK 



0H8«2 
0H8i3 



3 9 093 5 00 T OtSltO 



ELSE (iO TO UCN; 
IF TYPEilO AND TYPEX20 ThtN GO 
LOOKLIF l O. THEN QTh L RFI L e O FeN IN ( 1 3 EL S E O THERFI L eOPENUUT ( I ) 



TO OUTSWtTYPE-lO) ELSE 



GO 



LOOKOUT' 



39094000 T 
39094500 T 



Ol56«3 
0ib6»3 



3 9 095G0G T 0l63 l G 



7 
8 
9 
10 
11 
12 



IF U lSS THEN GO TO EXIT ELSE GO TO Pf<EFlNAL> 
DCNI FlLFMESSC-*«I/0 EPR"*0*MFID*F IP ^ REEL > CD ATE* CYCLE )n 
a E Tg ( UFFER S CB L EN * NBUFS» U * AL PHA 3*X 



39096000 T 
39143000 T 



0l65«3 
0l67»2 



391 4 ^000 T Ol70«0 



PREFlNALJ : MAKElODSi* 

IF KIND* 11 THEN 
REfilN IF CHBHl <> n THEN 



% AL fiGL OR C OBOLfea 



39145000 T 0l7l»2 
39145100 T Oi73J0 
39 145 800 T 173 t 3 



13 
14 
15 



IF R£ADEMFR0MDISKcCIDR0ls[U-323#M[ALPHA] ) THEN 
MCALPHA]«-p{DUP'L0D)&0£2t2«n&U27j47»U; 

E ND E LSE 



39145210 T 
39145300 T 



Ol75«0 

017810 

391 454 00 T 0i88 « l 



IB 
17 
18 



FlLLBUFFERSCFIB[16 3*FIB[l9J»COB0L*NBUFS)i 
IF CQBOL>0 THfc.'^ FlB[163«-C*PCDUP))<lMLALPHA|CCTc3^ 
FINALIN?; FIBI63 » FlB[73 i- FIBtl73 » 0; GO TQ FIXFlBi 



39146000 T 0l82«l 
3914 7000 T 0l86«0 
39148000 T 0l90»0 



19 
20 
21 



LOOWOuTM IF lO THEN OTHERF jLEOPENin (Q) ELSE OTHERF iLEOPENauT(O); 

IF U lSS THEN GO TO EXIT ELSE GO TQ FIND) 
F lN A L C UTt ; IF I^OT FlB[ifl3«[n!3 THFN GLTBUFFERSC BLFN^NBtiFS.U* ALP H A W t 



39155000 T Oi93»3 
39156000 t 0i96»3 
39230000 T Oi98»a 



22 
23 



25 
26 



27 



FIND« 



MAKElQDiin 
FIB[63«-FlbC73«-0>X 
FT B[1 73«-IF cObUL " 



h.E^' F1B[183.l3U53eLSe F IbC 1*^3 . t 18« l>3 f%- 



IF KIND « 10 THEN 

FOR T2 * STEP 1 UNTjL (NBUpS-l) 

Pf»l70UQOQOOQCia.tAf Al Ph^*T ? !'*■>' 



DO 



39231000 
39232000 

39233000 



39233100 T 
39233200 T 
39233300 T 



0202' I 
020310 

020511 



020913 
Olio t 2 

oaisii 



28 

29 
30 
31 ~ 
32 
33 



IF KIND=13 THEN 
MUlPHA+1 3*- 
Gn TU FIXFIBn 



P(DUp,LQD3&PCDUP,LNG)t245 24»U; 



39233400 T 0219«0 
39233500 T 021913 

39?^4nQ0 T Q2?3»3 



DCO» UJa30; «INO»«10J 
$ SET OMIT » NOTCDATACOM AND HjE ) 

, GO TO SPDC; 



39235000 T 
3923S099 T 

3Q235g0Q T 



0224*1 
022513 
0225*3 



34 

35 

36 

37" 

38 

39 



DC19J 

0THERFILE0PENIN(23; 
$ SET UMIT a NUT(DaIACQM AND DCSPQ ) 



39236000 T 
392361OO T 
39236^54 T 



0226M 
0226«1 
022710 



GO SPDC; 

spo;t MODE*- 0; U* 

SPDCI CNTCTL»{)IREC»0; 



25i KIND* 
UNLABe:L£D»1J 



5; 



39236160 T 0227*0 
39236900 T 0227*2 
39?37n00 T Q?30*l 



40 
41 
42 



startiming(fnum*u);x 

GO TO FINALOUT^Ji 
SPNM U*25; KIND»5J 



39238000 T 0232*1 
39239000 T 0233J1 
3 9240000 T 02 3 3.! .3 



43 

44 
45 



MODE^CNTCTLfrOIftEC^O; LNLABtLED* 1/ X 

STARTlMINtt<FNUM,U)n 

!F BL£N<10 THEN BLEN*10;% 



39241000 T 
39242000 T 
30243000 T 



0235*2 
0236*0 
0239*0 , 



46 

47 
•8 



GETBUFFERS(BLtN*NBUFS,Uf ALPHA );X 

MAKEIQDS;X 

QQ. TQ FINAilNf* 



39244000 T 024l»0 
39245000 T 0242*2 
39246000 T 02,44 fO 



52 



54 






ACCESSl»i; 

liiiliiiiii^ 
^!yg|i |ill3lft 



DKUNIJ 

DKPNI t PKPQI 



ACCESSls2^ 

GO TO OKU 



39247000 T 0244*2 
39248000 T 0245*3 
39249000 T 0244*1 



39250000 T 
39251000 T 
39252000 T 



0247*3 
0248*3 
0,2<t9*l 



55 ft 

56 I 






SWII3 

'OMIT 



» NOT SHAREDISK 

iiiiii 



3^9itliiiiiiw'i,^^iiiWI? 

3'#iiii iii»»ai ii iiff 



$ POP OMIT 



39255Q01 T 0230«2 



• t 



h 



OKSNl: DKSGl A 
PKl« Q 



CCESS4-0; 

ISKF1lE:QP£N(0); 



DCIMM 



I 

G 
U»30f 



F TOG The 

TO FIXF 
KINO«-10; 



39256000 
3vg')700n 



N GO 

ib; 



TO exit; 



39258000 
39IS9000 
39293100 



0250 
0251 



»2 
L3- 



0252 
0233 
02g4 



12 
ISL 



CN 
ST 

_6i: 



TCTL*UIRE 
ARTJMINGC 
TBUFFiiKSC 



c«-o; 

FNUM* 
flL£N> 



uj; 

NBU 



AdELEO*-!; 
FS>u, ALPHA); 



39293200 

39293300 
39293400 



0255 
0257 
0258 



J2 
«2 
i2_ 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27/ 

26 

23 

iO 

31^ 

32 

33 

34 

38 

36 

37' 

38 

39 

40 

41 

42 

«" 



rixFie«» 



10 
fi 
11 



MASKtzO; 
B[a3«[8u 



WAKEI 

J'-UNL 
3»KIN 



OOSi 

abeleo;* 



39293500 
39294000 
39295000 



T 0260 
T 0262 
1 0264 



«0 
*0 
I2_ 



FI 
FI 
FP 



8C15] .E24 
BC133.C28 
B«-PRt[PlM 



»6]«-b 
:10]«- 
IX, 3 3 



REE 



l;x 



39296000 
39297000 
39297010 



T 0267 
T 0269 
T 0272 



«0 
«2 

«0 



FP 
ST 
BE 



BCFNUMt33 
REAM(REE.L 
GIN OI»sO 



.C43t 

;siis 



53* 

FPB 
LOG 



RD 
IF 
BE 



CTABLE[U3 

FIBC183. 

GIN FIBCI 



.C8J6 

cnn 
63*.o; 



3«.P 
TH 

% 



type; 

CFNUM+2333; 
REEu;0S»«3D£C END! 

PHTxTI 

EN» 



3^297020 
39297100 

39297^00 



39298000 
39299000 
39300000 



t 0271 
T 0276 
1 0278 



12 
12 

«1 



0279 
0281 

o g e g 



«1 
«3 

«3 



EN 

Tb 

IF 



FI8C5 
FISE 
ELSE* 



3*STATEa8C39l42i63;x 
l03,L3»l5J«.O; 



[53.lCI-3«-STATE&DIRtCU4«47Jl3&IO[39U3J5 3&FIbt53[ft5i45:i3; 

CObOL>0 Or FIB[^3.C7u3 THEN M[FIB INX NOT 1 3 , [ 3 : 6 3 «■ 6 
ELSE M[ALPHA"7],[3i63»4;at 



39301000 
393OI1OO 
39302000 



39303000 
39304000 
39Bq5qQ0 



0284 
0286 
0289 



«2 
»3 



0289 
0293 
0299 



>1 
«2 

«3 



FI8[43,[27X33«.ACCESS;X 

IF U<16 THEN IF KIN0j«7 THEN FPBC FNUM+3 J , t23 J U « 

IF (U»T1»FIBC103,[3U53)^Q THEN 



iQi 



39306000 
39306010 

39S06iOO 



0305 
0307 



»o 

»2 



exit: i% 



DC BEGIN IF KiNDslO THEN MLU-n^-O; %FAKE QUEUE 
M[U-23 .t3»63«-3 END UNTIL (U»M [U3 . [FF 3-2)'»T i; 



39306200 
393O63OO 
39307000 



0315 
0319 

Q326M 



«2 

»l 
i 



IF XTRA 

XTRAC 
IF XTRA 



THEN 
«aNQTCFlB[43,C 

LSS 2 THEN GO 



7:i3 OR UNLABELED) 

TO initiate; 



AND XTRAC NEQ 2i 



39 307100 
39307200 

39307300 



0327 
0327 
0331 



ro 
H 



RCWtsXTR 

END fileopen;* 



ar; 



39307<i00 
39308000 



PROCECURt SUSTATUStA#DOD*B); VALU^ A, 000,8; REAL A*8I ARRAY 0DDL*3; 

START Of REL 
BEGIN REAL RTIM; 



T 0332 

T 0333 

Sxl£.« 



»3 

«2 

34 



WORDS 



[*3,ZSF[*3,VADARt*3; 
INE SPOLTITNOW; 



39900000 

SEGMENT) Disk 
39901000 



AODRgSS 
T OQOO 



* 00845 
»0 



ARRAY Dl 

subrout: 

PEGIN 

STR£:AMlXU»tTlNUCB3 J* D' EUNUMI«U» SUia0# f HU); 



39902000 
39903000 
39904000 



T 0000 
T 0000 
T OOOl 



»0 
JO 
JO 



45 

*6 

(7 
18 
49 

so;* 

51 V 

52 

S3 

54 

5B 

56 



BEGIN sit*x; sst«si«5; 

dSiblit" "; os»53 chr; sii»d; 



39905000 
39906000 
39907000 



1U(IF SCX«0" THEN 

BEGIN xjssi; eunum»«tally; 

SI«=LOC EUNUM; DS«* 3 LIT" EU"; DSJ«0EC^ 



T rnnJT 

T 0003 
T 0004 



«2 

10 



39908000 
39909000 
39910000 



031*4 LIT" SU "J TALLY 1*0^ ~~~~ 

5cSte«*TA|pi Si MX; SKIP 5b; Skip su sb; 



"T — 0TJTI5 
T 0005 
T 0006 



TO 
>3 
»1 



Bt^ih sit«Ldc su) — — 
ds»»dec; DSjsLiT","; 

END' 



3*9li000 
3991200,0 



1 0M7 
t 0006 
T 0010 



»2 

»0 






39914600 
39915000 
39916000 



39Vt7000 
39918000 
3991,9000 

39 92 &00 



T 

T 
T 



"OOW 
0010 
0011 



«3 

,2 



T — mnx 

T 00 J a 

T 00J3 

T — oim- 



•d^ 



10 
10 

txr 



>r 



bi:=LOci; S1J8SI+?; di:«di-i; 

IF SC'^'O" THEN 



vrr 



BLGIN DSU5 
fcNO EtSe DS»s4 

i:sj=a LIT" 



WENT" I 

Then os»»4 

UlT" ARE"; 

"^ LADY, 4-"; — 



39921000 T 
39922000 T 



0013* 3 
O0U«2 



39^24000 
399gi>000 
39^26000 
39927000 
39928000 



001510 
0016 »0 
001/11 
0016«l 
0019t2 
0019«3 



1 

2 
3 
4 
5 
6 
■/ 

a 

9 
1G 
11 
12 



LIT" NOT"; 



end; 

SPUUT(HTl); 



ENfi OF spouinNQ^^; 

SUBROMTlNE DOIT I 



39929000 T 
39929100 T 
39930000 T 



BEUlN 



002012 
0020^3 
0020*3 



39931000 t 
39932000 T 
39933000 T 



U021»0 
0021 SO 
0023»3 



IF NOT CZSftOJ OR ^Sr C 1 3 . t H 1 1 3 ) ^ 
BEGIN Bisie; o»»2SF; 



NOT THEN 



fiTnsSPACtC2U3; 
bPOUTITNQh; 



i9V34000 T — 002610 
39935000 T 002a«l 
39936000 T 0029»0 



13 
U 
15 



end; 



NUI CZSFC2] 



IT 
BEGIN 8t=i9; 

RTll.SPACE(20); 



OR ZbF'tJl.tnin) 
0»»tZ5FC2]]; 



/ NOT IHEN 



3993;'0O0 T — 002$»0 
39938000 T 003il»3 
39939000 T 003a»0 



16 
17 
18 



SsPUUTlINUW; 



39940000 T U036M 
399/JlOOO T 0037»0 
399i»2o00 T 0037»0 



19 
20 
21 



END 



End; 
Of doit; 



% 

% 



0037»1 
003711 

0037M 



22 
23 
24 
2S 
26 
27 
28 



START OF CODE 



IK 8X0 THEN " — 

BEGIN D»»C«ULTlTABLEtl6JU2C6»38ll03; 
RTlt*A; 



39942900 T 
39942910 T 
39942920 T 



3994^000 T 003^11 

39944000 T 004010 
39945000 T 004212 



S SE T OM I T 
$ POP OMIT 



DM 
IF B 



39945^99 t U043«l 

39946000 T 0043M 

39946001 T 0045«2 



29 

30 



THEN Dl«2 INX O; 



I F NOT CI F b THEN f (RH R ? t C2fl* 1 3 ELSL HCRHH) » t29 > t J ) 



39947000 7 0045*2 

39947999 T 0048«l 
39946000 T 0046»l 



91 : 

32 
33 



S SET DMIT « OFX 



OR NOT (D[03 OR DCl3,[llll3) « NOT 



I POP O MIT 



39V48001 T 
39949000 T 
39950000 T 



U030»2 
0050 « 2 
005U2 



THEN 
BEGIN 



iJTREAMCXistTlNUtB]]* RTU; 



BEGIN sii»x; ^1««SI»9; 

os»b3 chr; 
not ready*."; 



DSlsLlT" "; 
DSl«n LIT" 



39 9 51 00 T 
39952000 T 
39953000 T 



0033*1 
0053*3 
0054*2 



37 
38 
39 



en d ; 

5P0UT{RTl); 
ELi>E SPOUTITNQW; 



39 9 54U ! 
39955000 T 
39956000 T 



0036 * 1 
0056*2 
0057*1 



41 
42 



END 



END EUSE ' 

BEGIN Z5F»=tMCSPACEC4)3 3i4t8*3e»10 3; 

VA0AR**CMULTITA8LEU6 3U4t8l38*l03; 



39957000 T 
39958000 T 



0US9«0 
0059*0 



DiSKWAlTCAfaOyDlRECtORVTOP}; 
FOR I*«0 STEP 1 UNTIL 3 DO 

ZSFCllMVADARCl] AND NOT 



39959000 T 0063«1 



3 9 960 00 T 0063*1 

39961000 T 0067*0 
39962000 T 0068*0 



46 

47 
IS 



DOOt23+l3; 



ii ' tk uoit; — 

FOft I*«0 STEP i UNTIL 3 DO 
BEGIN 2SFC1U«N0T VA0ARCI3 
OODCg3 * t3*"VADARcn; 



39 96 3000 T ' OOfSil 
39964000 T 0073»0 
39965000 T 007610 



•9 
50 



ANO oooc23«n; 



399660OO T 0079* 



S2 

54 



end; 
uiskwait(a#*30»directorytop); 



IWHiiHiKSiifc 



39967000 
39968000 



0081*0 
0083*1 



Mft6#ift0^ii-:Tg;:v :-;M#i'to :. 



55',; 

56?; 



End; 



end; 



# t 



h- 



PRQCEDURt DlRLCTOKYBUlLDtRCA^DDU); 



VALUE A*DDDi 
REAL Aj 
ARRAY 0DD[*3f 



SjZEs 0089 WORDS 
40000000 T OOOO'O 
STA R T O F REL SEgMeNTJ DISK AO O HtSS « 608*6 



40001000 T 
40002000 T 



0000 
0000 



40003000 T 0000 

40004000 T OOQO 
4000450G T 0000 



Begin real YrZ>B*C'i'J>T*RA»RL*RT j#r; integer rado*Rl£n^ 

REAL NEXTlINK,AD'X»K#SEVEN7»FGRTY,L*EUSl; 

array su[ * 3; .. . : - ■ . 



4000 5 000 T 0000 

40005050 T 0000 
40005100 T 0000 



10 

11 

12 
13 
14 
16 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2E 
2fi 
27 



array HEADt*3*KKC*3*PLC*3; 

REAL W#tSPAD0*DlSKT0P*SLPER*EUM»NTl»NT2»NT3'NT4; 

BOOLEftN UCHANC»ERR0RMNTEGER LO^ RE M / TN> TM* MNJREAL X 1» X2# EU MAS k J 



array ZSFt*]»SQCttt*]i 
REAL D'Y1,Y2; 



4 0005110 T — e-e«^ 

40005200 T 0000 
40005210 T 0000 



REAL AA^AAAf 
LABEL forget; 



40005220 T S^^^ 

40005230 T 0000 
40006000 T 0000 



ARaAY V[*,*i; 



INTEGER Sf 

ARRAY VR-VC*]; 
REAL H'FUFj; 



4 006100 T W^^ 

40007000 T 0000 
40O0750O T 0000 



t SET O M IT = NOT SHAREQISK 

LABEL L00KAT0KB/8ACK*EXIT#Mi,SKBLK#BYE; 
DEFINE K0W=SUCX3»t3»4]## 



400079 9 T 0000 

40008050 T 0000 
40008100 T 0000 



XMC 



LAGTAVAlL "tl EAD[03«[3 t l 5 3)>* 



4 ooo8iio T — &trw 

40008120 T 0000 
40008130 T 0000 



AVAILABLE = HtADt03aFF3#/ 
FlRSTLINK»hEAD[0].CCF l« p 



UA» » ig4 il 'i ' DAC »» l24 ' 24#> 

SI2E*PLC13.C0A3»/ 
ADDRES5»PLC03.tDA3## 



-X-Mt- 



40008140 T 0000 
40008 ISO T 0000 
40 00 8 I 60 T 0000 



Hl6 H LlNKx |» Lt0I.CCF3 i» , 
L0WLINK=PLlll.[GF3** 
DISKRUNNING = H8X13jK* 
FORTY M lLLDISK s [i9li3 » , 



40008170 T — etrt^a 

40008180 T 0000 
40008190 T 0000 



29 

10 

31' 

32 

33 

34 

35 

36 

37 ~ 

38 



XMC 



4 0006200 T &^#^ 

40008210 T 0000 
40008220 T 0000 
4 000 8 300 T 0000 



OCCUPlED»t20«l3*# 
AVl*460#»AVBL0CK= 



'16«J 



SUBROUTINE SAVITf 



XMC 



BEGIN 

BE GI N ZSF [ *?9 3 » £ SP A OQiD IS KW Al TC Z SF I \ x > 3 , E Sp A DDfBE TF.i>P D lSK 3 . 



XMC 

XMc 



40008310 T OOOl 
40008320 T OOOl 
40008330 T 0002 



W«.0 £ND;ZSF[W]*T;ZSFCW + l3«-OCDt47V-2)«i3; 
END SaVIT; 
SU B RO U T I NE CL EA Bj 



XMC 
XMC 



40008340 T 0007 
40008350 T 0012 

4 0009000 T — o oia 



40 
41 
42 
43" 



BEGIN VtS*03*0; 

V[S#13 «• BYPASS, [CF 3; 

-^ — V[,S»2l^Pi4Jf — ~ 



40010000 T 0013 
400U000 T 00l4 
40012000 T O^UZ 



ts 

«6 
»7 
•8 
49 
SO 
St 

a 
53 

S4 

is 
J6 



;Vp>'3^3'.*^|J|'*4.3-*0r ■■ 

r Wil^l* llft'S * 2'3- 3^ *• £ V C S'f :5|ii>;if.'' 



iND; 



40013000 T 0018 
400l«000 T 0022 

4001S000 T — ooas 



45 
4C 
47 I 
48 
49 
50 < 
51 
52 

53' 

54 
55 
56 < 
57 



SUBROUTINE setup; 

BEGIN 

L 0UCX * 13 M O D ^ i L 0>^t n *t L 0s0)x5; 



XMC 



0025 

0026 

40 0160 2 5 T 0-026 



40016000 T 
40016020 T 



IF RADO N€Q ClO» *UO*f ORTY ) QR CL0«RADD AND RLEN lSS FORTY) THEN 
BEfilN 

If ^Yi«{Stux3,rcri»o> tueh 



XMC 



40016026 T 0030 
400l6l00 T 0033 
40016200 T QXlXfl. 



BEGIN 

NT 1 » «SU CX3 «» (GET SPACE C16»0»0> + 23&SUtX 3 C18f 1819 3; 

L.64BT.|.-.l.,i.NX3J.,f..... .,...., . ... ' .,.,,.,.. ..... 



XMC 




40016220 T 0036 
40016240 T 0036 
40016260 T 0041 



Ml 



n 3.itCft4*YHa:t 3 flM0 3]JUhK»6WY; 



XMC 
XMC 



400i«30C r 0043 
40O164OO T 0043 



M0VEC6a+Y,RTl-l*RTl}i 
FOR Rj^axY STEP 2 UNTiL 



JUNK DO KKLR] t*RTl+R+2; 



^0016420 
40016500 



0Q52«0 
005412 



HEAD » CMt>HSU[X3 3 3 3&Ue ; 38 t l03; 



-*M^ 



4 0016510 T 0061 « a 



IF Y THEN 
BEGIN 



%MC 



KKClH*«Kca3««SEVCN7l 



40016600 
4 OO 16700 



006413 
0065 J Q 



4001 6 800 T 006 5 lg 
40016900 T 0067«3 
40G16910 T 0070«1 



KKtn.COA]: 
KKC23 .tOA3» 



«Lo; 

■■IF X EQL THEN FORT Y- CClSKBOTTOM + 5) ELSE FQRTY; 



M[SUCX33»CD A 3*sUOj 
HEADCe3»«'RTl+U 



40016 9 20 T 00^5' 3 
40017050 T 0078*3 
40017100 T 0080*2 



EN&; 



HEAOC O liCrn ' RTl t SxY; 

HEADtC3.E3»l5]<-6 2 + RTl+Y; 
END 






4 017200 T 0080*2 
40017250 T 0083»2 
40817260 T 008710 



10 

11 

12 
13 
14 

'^ 

16 
17 



EUSE 



40917270 T 00 8 7>0 

48817275 T 0087»0 
40017280 T 008712 
40017265 T 0090»0 



00 

BEGIN SUtX3,0CCuPlE0»»ll 
RAODl o frADDTORTYi 



xi»x-i; 

END UNTIL (RLENlsRLEN-FOHTY) 
END CF SETU H ; 



LSS forty; 



-*M^- 



40017290 T 
40017295 T 



00911 1 
00 92 1 2 



40017 300 T 009413 
4O0271OO T 009S«0 
40027200 T 009510 
40027g30 T 009510 



19 

20 



SUBROUTINE BUILDAVAIL) 

BEGIN 

B ACKt iCRROR * li R cH t OJ 



%MC 
XMC 



22 
23 



26;';' 

26 



27 
28 
29 

30 



IF (2J=SUCX3)^0 fiND Z,CCF3=0 Th£N 

BEGIN KJSO' setup; GO SACK ENq; 
IF (Z »- SU[X3)fQl S KHUNNlN tt AMD NO^ ^,OCCUPIEO AND RLCN>0 THEN 



40027240 
40027245 
4 00g7g5a 



BEGIN 
IF 



MtSUCX33f 10A3 GEO RAOO THEN 



«MC 



40027260 
40027270 



0096«2 
0099»2 
0l02>2 



BEGIN 



0l06»t 
010613 



4 O0g7g B O T 0lO9<0 
40027290 T 0l09«2 
40027295 T OlM'l 
4 003900 T 119 1 3 



P(MtMCSUtX3 3 3*OS;RADOC9»24l243>LLu'0* I NX* , AD' ♦•» DE|. ) ; 
HE A0«- 1 MX M C SU U 3 3 3 3 &1 C 8 » 3 8 J 1 3 ; PL* C M C AD 3 3 &2 [ 8 » 3 8 « 1 3 ' 
_ I F (CRA « »ADDRE S S)-(R L» 5 SIZ E) LS S R A DD*RU £ N OR 



XMC 
XMC 



31 
32 
33 



(REM»»lF(NTl»aRADD MOO 
OJANO RAOD NEC RA THEN 



FORTY)«0 THEN ELSE NTl-RLEN) LSS 



BEG I N 



-XitO- 



012410 
0128«1 
40040000 T 1 3 0«0 



* 00391.00 T 
40039200 T 



31 

32 ( 
33 



34 
35 
36 
37 ~ 
38 



IF REM LSS THEN HLEN:sRADD MOD FORTYi 
IF AVAlLABLLsO ThENXtvEED ANOTHER ROW 
BEGIN 



XMC 

XMC 



40040500 T 0liO»2 
40041000 T 0133JO 
40042000 T 1 3 4 » 3 



k»'Row;k«-k + i;row<-k; 
if k 6tr 15 then 00 
,- setup; 



UNTIL FALSE* 



XMC 
XMC 
XMC 



40042100 T 

40043000 T 
40044000 T 



0135«1 
0l40«2 
nifl2«2 



40 
41 
42 



end; 
nextlink*m[r«.avaiuable3; 

M[R3«'AP<{{RAnn-RLFNHnAC3. 



M[R3«'AP<{{RAnn-RLFNHnAC3; 

IF AO»CCF3»SEVEN7 THEN MCSU[X 3 3 , t DA3«-RADD-RLEN; 
F LQWLINK«SEVeN7 THEN 

?IRSTL1N,KI*R : — 



XMC 

XMC 

-XJIC- 



40045000 T 
40046000 T 
4 004 7 



014490 

014410 

0Q47Q0 T 0147 ; o 



45 



I 



XMC 



Ol50»0 
0l55»l 
40049000 T 0l 56 »3 



4004^100 T 
40046000 X 



46 
47 
•8 



ELSE 
MCLOWLINK3,CCF3JsH; 

M [ R ♦ 1 3 1, g P Wl 1 3 U RA n D ^ R L F N r C R A •» R L ) ) C D A C 3 ; 



40050000 T 015611 
40051000 T 015911 
40055000 T 0l62» 



I1 62 »3 



49 

50 

51 ■ 






XMC 



40056000 T 016712 
40056100 T OjfOll 
4005700 T — 01 71 to 



52 
53 
54 



END XMC 

Elsexreduce Existing areacbeware of address conflict qhxmc 

^ XEU UN D ERFL O W)! ■ %iA^ 



40058000 T 
40059000 T 



0l73»3 
017313 



4 006 000 T — 173 » 3 



55 
56 



BEGIN 

IF RAfD-#* AND «L GEQ RLEN THEN 

- " §EGIN--'"'-' '■' ■ '" '■ "^ — 



XMC 



40060050 T 
400«0l00 T 
4 OQ ii>i» eO0 T 



ojrira 

0174*1 
0l7ftl0 



55 

56< 

5? 



• • 



h 

2 

3 
4 
5 
6 
7 
8 



ADDHtSS<-WA-HLEN> 

IF HlGHLlNKs5EVEN7 THEN 

t^CS u U33 t [OA3 «-A aDRES S ; 



XMC 
%MC 



SlZE<-RL-«L£NiERROR«-RLEN*0; 



40060300 
40060302 



0l76»2 
0i79«2 
O l <i l » 



END 
El S E 



XMC 
%MC 



40060400 
40060900 



0185M 
Ol89»2 



4 00 6 6 00 T 0l 8 9»2 



IF rle:n>rl then 

IF L0WLiNK = SEV£i\7 ANOCX-DMOO 5^4 THEN 
Q EGIN 



XMC 
XMC 



40061000 T 
40062000 T 



0i89»2 
Ol90«3 



4 00 6 3000 T 0l94 » 3 



SAUD^RADD-RU-WRUEN^RLEN-Ri-USlZE^OURROR^OJ 



END 
E L SE 



XMC 
XMC 



40064000 T 
40065000 T 



4 00 6 5010 T 0a02«0 



0l95«l 

0202»0 

In 



10 

11 

12 
13 

1* 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

28?' 

27; 



IF RAUD^RlEn LSS CNTl jsMtLOWLlNKJ.CDA]) THEN 

BtGIiV 
H t EN> = R i .tN»t . t^ A QD.CRADDiaNTn)J 



40065020 T 
40065030 T 



0202t0 
0206J1 



4 09650 4 T — OaQ6 » 3 



SUPeRl»i;QO dACKj 

END 



40065030 T 
40965060 T 



0209»0 
02 10 » I 



IF RAUU GTR RA"RU THEN 

BEGIN 
- HiEN 8 -B AUO" g HA- tit ) J Sg PER I = 1 ,{ 



4 00650? T OglOtt 



40065080 T 
40065090 T 

4o^6!^^no r 



0210«1 
0212 '0 

n8 i 2« -2- 



■■■■■'tNi5.v 

Ei. SE RLEN » 



-*MC- 



40065110 T 0215*0 
40065120 T 0215»2 
4006 6 Q Q T — 0215*2 



ELSE 

BEGIN ;3I2E«-Rl-rlen;error*rlen*-o; End; 



-EhB^ 



XMc 
XMC 



40O6/000 T 
40068000 T 



0216«1 
0216 « 3 



4 006605Q T 022l»2 



IF siZe»o Then 

BEGIN 
IF H iG HLlNXaSeV t N? /yNQ LQWL I NK^bSEVEN? THEN 



XMC 

XMC 

-X4iC- 



40068100 T 
40069000 T 
40070000 



022l»2 
022310 



29 

30 

31^ 

J2 

33 

34 

3S 

36 

J7" 



BECalN 

SU[X3,QCCUPIED«-THUe; 

K«^-i ; 



XMC 
XMC 

-XM4- 



40071000 T 0226»3 
40072000 T 0227? I 

4 007 3 000 T — 229 « 3 



WHlLE(Y4.M[SUtX3lNX CK«-K + 1)J)^0 AND K<15 OO 

forgetspacecy); 
rnfifiFTsPActrfSutxn; 



XMc 

XMC 

-XJtC- 



40074000 T 
40075000 T 
40076000 T 



02 30 « 3 
0236*0 
0237*1 



END 
EUiJt 

BEsUN 



XMC 
XMC 



40077000 T 
40078015 T 
40078 20 T 



0238*1 
0238*1 
02 j8» 1 



39 

40 

41 

42 

43 ~ 

44 

45 

<6 

47 

•8 

«9 

50 

SI 

U 

S3 

M 

55 

56 



IF HIGHLINK»SEVEN7 THEN 
BEGIN 

MTPi rin.rcF3»SF\/FNiyj 



XMC 

XMC 

,Jl.QJLt.. 



40078030 T 

40078031 T 

ann7flo32 T 



0238*3 
0240*1 
0?40I3 



M[SUCX]3,CDa3*McPLc13].CDAJ; 
END 
OJiL 



XMc 
XMC 
XMC 



40078033 T 

40078034 T 
40076035 T 



0243*1 
0247*3 
0247*3 



BEGIN 
M(PLC0] + n,tCF3J«t.OWLlNK; 
IF LQwLl N K« S EVfN7 TH EN 



XMC 



XMC 



40078036 T 
40078036 T 
40 07804 T 



0247*3 

0248*1 
Qg5P*Q 



FlRSTLlNKi-HlQHLlNK 
E.LSE 
MEPl[rJ3ilCF3»?HIfihLINK; 



XMC 
XMC 



40078042 T 
40078046 T 
40076048 T 



0253*2 
0255*1 

02^6 f 3 



end; 

If MtLASTAVAlL3«0 THEN 
MrLASTAVtlLUAniLASTAtfAlL»ADi 



XMC 
XMC 

XMr. 



40078050 T 
40076052 T 
AnOTftOSa T 



0260t2 
026012 
&ii62 1 8 



IF AVAILABLE-O THEN AVAILABLE^AD; 

PLco]«»o; 



XMC 



XMC 



4oo78o58 T 

4O078060 T 

MS 



0268*0 
0272*1 

. ,.Q , 2|J.!2. 



ENO> 
IF ftCM CSS THEN BEfilN RAOO*X MOD 5JRA00*£ RAOD+<RA00«0 ) )xFORT y; 
^ .ft,LEW.^fc,Aa.S„C«£«il 3J , I tap ; „ .,.- . . ^ , ^''^,- ■■:■:/,.. 



XMC 



:,t01iiiillip 



0273*2 
0273*2 

027111 



^y 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IS 

>9 

20 

21 
22 
23 
24 

26^ 
26 
27 
28 
29 
30 
Si"' 
32 
33 
34 
35 
36 
37" 
38 

» 
40 
41 
(2 
♦3' 



END ELSE 

l F{NTl , rgM [ a ui. Xl 3.lDA j ) G TR HAUD'R UE N . THEN 



XMC 



40078070 T 02?9 
40078072 T 0281 
4 07807 4 T — ^1*^ 



BESIN KLEMsfiuEN-CHADp-fRAOOIsNTlJ); 

s.uf»ERi»ti GO 8A^C»^;' ^ 



FND 



% HC 



40070076 T 0284 
40070078 T Oga? 
aoB7ftofln T Q^At 



ELSE 

rlen<-o; 

END/ 



XMC 
Jl iMC 



40078085 T 0288 
40078087 T 0288 
4007^090 J Qg9n 



ir RLEN>0 AND NOT ERRO« THEN GO BACK; 
SUPERlsSUPER OH CERflOR AND SU [X] ,DISKRUNNINS); 
ENID Or COMPLEMENTING DISK PIRFCTURY; 



XMC 



40078091 T 0290 

40078092 T 0292 

40078093 T Q2M 



Subroutine loc^^ed; 

BEGIN 

IF- (XHgtRAnP'RLEN) DIV TN ) » ( X2 t -R Ann IHV TN) THEN 



40100000 T 0295 
40ICO1OO T 0295 
<»0 10Q20 T Q?95 



ir(TWC(Xl) AND EUM)«0 THEN BUIlDAVAIL ElSE GO FORGET ELSE 
BEGIN 
Yl»»RAD0;Y2l«RLENi 



40IOO3OO T 0296 
4OIOO4OO T 0302 
40 100500 T QJSIZ 



lF(RLEN»s(Xl+l) 

BEGIN RADD 

IF (R l E N«» Y l- 



xTN-(RADO-Y 
!=(X1+1)xTn 
U 2xTN )i G T 



2 ) )GTR AND (TWO(Xl) ANO EuM)so THEN 
;X«s5xD+(CYl-Y2)0IV FORTY ) J BM ILOAV AIL EnD/ 
R AN D (TWQCX2} AND FUM? EfiL THEN 



»»Yi;Xls5xD+HADD DIV FOrTY ;8UILDaV AlLf END; 



40100600 T 0304 
40100700 T 0309 
4 0100600 T aiL& 



BEGIN RADD 

WHILE (X2tax2-U GTR XI 00 
aEJLLN 



401OO9OO T 0319 
^OlOllOO T 0324 
40101200 T 0326 



rlenj=tn;x 

IF (TW0(X2 

end; 



!s5x0+((KAD 

) AND EUM)= 



d:s(X2+1 ) 
THEN BU 



xTN)-UDlV 

ildavail; 



forty; 



40101250 T 0326 
40101300 T 0331 
4Q 1C14 Q0 T 335 



End; 

FQRGETJ 

End of locked; 



4OIOI5OC T 0315 
40101510 T 0335 
4O 1016Q T 03 35 



S SET OMIT s NGT S 
SU«-[MfRTl4-GETSHACEC 



HAREOISK 

iuo/a^O)-F2i]&iooi:8»3a» 10 3 ; 



XMc 



40199900 T O335 
4019999C T 0335 
40249^00 T 0335 



SEVEN7»s?77 777;F0RTYI»4OO0O;TNJa»10000jMNI«lO00000;TM»»l0O000O0; 

HOVEClOO,RTi''l*RTl); 

SQCK»«CMCRTlt*SP*CEC40)]3&40E8«3etlU3; 



40249i05 T 0354 
40249110 T 0358 
40249)20 J £La4a 



MaVEC40*RTl-l*RTl); 
Xi:aNEUP.[3J 15J-i;x 
VR>^[MULTMABLE[163 



CHECK ONLY 
J&4[a»3a> 10 



UNITS THAT EXIST 

]; 



40249x30 T O364 
402^9200 T 0366 
40249?50 T Q36B 



LOOKATOKBI 
FOR J»»0 STEP 
BEGIN 



XMC 



1 UNTIL XI DO 



40249300 
40250000 
40 251000 



0370 
0370 
0376 



X2«*19; 

FOR Il=OSTtP 1 

BFGI N 



UNTIL X2 DO 



40252000 
40253000 
40254000 



0376 
376 
Q37fl 



t5 
t« 

17 
•8 

•9 

50:/ 
51 V 
52 
53 
54 



RADOtaMNxj+iXTN 
5TR£AMCQlaflAD0# 
BFflIN STIaLQC Q 



8»R40l'A); 

;QSiga DEC end; 



4025^00 
4025§'000 
40,^56000 



v0378 
0380 



IF I EQL THEN 

BEGIN X2«» 

__„ I F X 



20xWAlTIQ(4 



+ A I NXe 140000000* «*64* 18+C ) , C 43 » 1 J + X2; 
R tNTl{«l '^ cx 2 :)»spCDUPM „ g D? O R TWQ (U»> J )/ 



40257000 
40257030 
408 57060 



0382 

0383 
0366 



i'|:|fe;<»tiij««t*ii;i:liii;«*i#ii1i*)? i:3; t wen 

^MiiMi 



40257$00 
40250000 
40261000 



0394 
0394 

-oifla 



NT2»*(NT1I»5»'J + 
SUCNT2 3»»PIDUP* 
RaillMJ THE 



-U, 



5UXCJ+CI DI 
LQD)&1[18»4 

N 



VCSU[NT13,F0RTYMILLDISK + 1.30IV 4); 
7»U4(X2>19)L19I47I13; 



40261010 
40261040 
40?6104«> 



0398 
0404 
Q40,6 



S0CKCCX}04J]U 
Xt*NT2;RAnQ H»f 



Yx((X2 GT 

m ii lii 






40261043 T 0409 
4^a6t044 T 04U 
40a/>1046 r 0415 



571 



• t 



h 



FcRTYisaoouo; 

END ELSE SUCK[CxlO+J+20]Js(*H(DuP)) OR TWOCIF X2sl9 
e x D I V 8 )x a ■» CI A N D 3 ))* 



THEN I ELSt 



40261047 
4026104a 
4 261 049 



041980 
041913 
4 28«3 



END Else xnot ready check nlxt 

BEGIN EUSUI-EUSU OH TWOC^-CIF 

uno. 



su 

X2»19 
I V 4)f 



THEN I ELSE (I DiV 8)X4*(I AnO 



40261050 T 
40261100 T 
4 08 6 liS0 T 



0432«0 
0432(0 
04 36 13 



^ 



END end; 

STREAMCAJgCNQl EUSU).C43;5]» 



+50xC)].FORTYMILLDISK+13x4)'l); 

^f Pj«VR I N/ C INX Q)i 



40261200 T 
40261250 T 
40261300 T 



0439>1 
044413 
Q447tn 



4 

S< 

6 

7 

8( 

9 

10 

nl 

12 

13 

14 ( 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 

23 I 

24 

25 

26 ( 

27 

2t 

29 ( 

30 

31 

32 ( 

33 

34 

36 ( 

36 

37 

36 i 

39 

40 

41 < 

42 

43 

44* 

45 

46 

47 

46 

49 

SO 

51 

52 

S3 

54 



BEGIN SpstOC a; SII»SI + 7J 

Dit-QI+J; dsischr; 
FKo; 



40261350 T 
40261400 T 
AOyftU'iO T 



0450»1 

045o»3 
fl 45l l 2 



EUSUtsO; 

end; 

i SET OMTT s NnTfDKBNnPFX AND imUT HFX) 



40261500 T 
40262000 T 
4n?62299 T 



0451 » 3 
0452«2 
Q 4 i? 4<3 



$ SET OMIT « 



NOrcOfX) 

W4-0lRMQOi 

V » CNtGETSPACEC 



J #0*0)4g3U J [81381103; 



40262369 T 
4T)262500 T 
4Q 263 Q0Q T 



Q4S4<3 
0454^3 
045Sf2 



FOR 5 <• ST£»* 1 
dEGIN VRCSl 



NTIL J DO 

CM[GETSPACE(6l*0>0)*13 3&62[8t38l lU3; 



40264000 T 
40264500 T 
40265Q00 T 



0459 5 1 

046012 
046?«0 



aYPASS*BYPA5S-2; 

clear; 



ENDl 



40866000 T 
40167000 T 
40268000 T 



046611 
0467*2 
046 9^0 



AAA:=«AA:sSPACe(480 
DlSKWAlT(-A,4aO,j8 
2SF«-CHt G£ TSPAC Ef31 



»DUECTURYTUP + 4j; 
*0^0?f?33&3Q,[B«3fl»10J; 



40275200 T 
40275300 T 
40275500 T 



047181 
047480 
0476 8 2- 



ZSFC03»-P14; 

w«.o; 

FOR J8«J STEP 



16 WHILF J^16 no 



40275600 T 

40275700 t 
40S7 6ft00 T 



04 SOI I 
048112 
048? I ^ 



BEGIN 



DlSKia(NT3,-(AAA-n'480*J + l6); 
IF J-»15 GEQ BYPASS, [,CF3 THEN 



40277000 T 
40278000 T 
40278 1 00 T 



048681 
04868 1 
0499tn 



BYEI 



BYBYC*' 
BYPASS, C 
FOR I » 



DIRECTORY 
FF3*J*15; 
STEP 1 UNTIL 



FUUi.*"M5); 
14 00% 



40278150 T 

40278200 T 
40379000 T 



049013 
0497 « J 



BEGIN T ♦ DDDt478-2xl3;X 
Hj3j+i4-i; 
IF T=P 1 14 THEN 



40280000 T 
40280100 T 
40281000 T 



050080 
050280 
050 3 « 3 



BEGIN ODDC 479*2X13 J'O; 
UCHANQIcO; 

n»i 5i . 



«R61 



40281100 T 
4028U10 T 
4n2Bl?Qn T 



050482 
050781 
50 8^0 



END ELSE 
IF T=^14 OR 

PD D[4 g4'Ix303,| : l8n 



THEN 



40281300 T 
40282000 T 
40283^00 T 



050883 
O5O883 
051080 



eeSlN D0Dt478-2xl3t»«^l4; 

UCHANGtaO; XR61 
non E 479*2X13 tgNFXTSiOT; ^ 



40283200 T 
40283210 T 
4n3R^j00 T 



051281 
051580 
QS-ISH 



51 



IF NEXTSLQT'O THEN 
BEGIN Fl8«IiFj85J+15 
NEXT SLOT t«H? 



enq; 



40283400 T 
40283500 T 
40283600 T 



051880 
051883 
Q52H1 






40284000 T 
40285000 T 
40 28500 5 T 



052210 
052210 






IF CC*D0Dt423-Ix303)20 THEN 
BEGIN DD0C423-IX3O3* 
"C & C C 288810J; 



40285010 T 
40285020 T 
40 2 9?Q3Q T 



0528 8 
O53O82 

532«? 



;:!**?§< 



dll^pSgsjf;r.aiP: 



uchanQ8«o; XR61 

000t424»Ix303*0; 



.■fto"iiiti:iK...:f: 



Mife 






55 
58 ' 



n 

2 
3 
4 
5 



16 
17 
18 



19 

20 
21 



23 
24 

m;? 

27 
28 
29 



M 
31 



34 



36 

37' 

38 

39 
40 
41 
42 
43 
44 
«& 
«6 
♦7 
•8 



49 

SO! 

51 



sa 



55 



ELSE 
D0Dl424-lx3C]«-P(0UP*L0D) 



IF C«C2ll03*0 UR 

O0DC42«-Ix30],C44«l3 
MviTl __, 



a0285i'J0 
40285160 

4osa!3i7n 



0537*2 
0537»2 
Q540«0 



Then 



40285500 
40285600 
4nafl5700 



0541,10 
054211 

054112 



FOR C«=l STEP I UNTIL 8 DO 
BEGIN RADDJSDPDU29-IX30 + C3; 
IF HADn GFQ inSKB0,TT0M-t-5 THFN 



40286000 
40287000 
4Q290000 



BEGIN 

IF CRAD0«*FlA0D4.(RLENI»DD0C42e»Ix30] )) gTR IM 

BEGIN RAQQ»*RAQQ MOD TMIXl»50 ENn ELSE X*»Qj 



Then 



40290100 
40t90200 
40290^00 



0546«0 
O548«0 
0^50«g 



T' 
T 
-X- 



055l»3 
0552M 
05 5 5^3 



JF SUCXJ=X + 5x(D»=RAdD DIV MN)].FQRTrMILLUlSK TrEiM 

forty»»pcforty#dlP'+); 

X» = f fRADDI»RAOD MOD MN)-!) DiV FGRTY 4 X; 



IF SUPER THEN 



IF (EUMJ«SOCKtD]) 
FURTy»«40000J 



NEQ THEN LOCKED fUSE BilluDAVAlti 



40290400 
40290500 
40290600 



0559«2 
0b63«0 
5 n a t 3 



403920S0 
40292060 



O568SO 
0573*0 
0573n 



BEGIN 

STRLAM(A«'T*B* = D0D!:479-2xl]»TlsSUPER««SPACE(l0)); 

RgfilN DS>a2lIT". *' ; SUsLHC A) S I I s S I ■<• 1 ; DSIs7CHR; 



XMC 



ns»gLiT"/"; 



Sl»eSl4-i; DS»»7chR; DS««i9LlT" DISK ADDRESS ERRQR"^ 
DSJ "LIT '♦♦■"; 



40292210 
40292212 
40292214 



057410 
0574«2 
0579{0 



fnd; 



40292216 
40292218 
40 292220 



0580»3 
056410 
05 84 *2 



SpOUT(3UPER)i 
ERROR:sSUPtRJsOi 

FNHJ 



%HQ 



40292222 
402922-30 
40292240 



05a4«3 
0585*2 

05fl6t3 



end; 



end; 

RlsDnnfflyQ'»gxT3J 



XMC 



40292250 
40292300 
4o?q3ot0 



0586*3 
0586*3 

osaviQ 



SI«(Sl«DlSKBOTTaM 
-SCRAMBLECT'B)). 
136*111/ 



4029 3020 
40293030 
4n293Q<^.0 



0591*0 
0591*0 
0598*2 



C«»VCS*03; 
VtS*C+23l«Ti 

vrSfr.44in>H; 



vcs#c*33j»a; 



40293056 
40293060 
40293070 



0599*2 
060l*0 
t)603t2 



IF (V[S,03*»«C + 3)s60 THEN 
BEGIN V[S#4J,[FFUBYPAi'S«. 
BYPASS''2; 



40293080 
40293090 
4Q29 310Q 



0607*3 
0610*2 
061?*? 



IF j+issbtpass.ccfhhen 
GO bye; 

niSKWAlTf CvCS>2]1.£CF3* 



4Q293i0l 
40293102 
40293110 



0614*2 
0615J1 

oiiifin 



60»VCS#13); 

clear; 



end; 



PBCQUNTta 



c(cc«pao 

(("PUD 

CB*fcri 



• EQV T) « NOT 
' £0V T) * NOT 
Ql * PBCnUNlTJ 



0) or 

0)3 AND 



40293120 
40293140 
40293150 



0618*2 
0620*0 
0621*0 



40309100 
40309150 
40309200 



0621*0 
0622*2 
Q624»l 



end; end;x 

SLEEP(tNT3]*N0T 0); 
PDD««DDD <tP(Qyf*AAA)lCTCj; 



40310000 
40311000 
403111QO 






iii BUFFERS 



40311200 
40311300 
40312000 



T 0626*3 
T 0629*0 



li 



063212 
0633*2 

Qftaan 



BEG I NX 

J 

iNfl.; % ., . 



o;x 



40313000 
40314000 



06 35*2 
0636! 

J.636i3 



111* 



mmmmsmim 

H« STEP 



Siiiiiisiiiiiliiiii* 









063613 
0641*0 
QaflStl 



• • 



>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 



19 
20 



21 
22 



23 
24 



IS I 

26J: 

":■;: 
28 

29 
30 



31 

32 

33 

34 

35 

36 

37" 

38 

39 

to 

41 
42 



43 
«4 
45 
«6 
47 
48 



49 
SO 
51 
52 
53 
54 



S5 
56 



SLEtP(lTJ#IGMASK); 
F0MGETSPACECCVCIM3]); 



JMLJ- 



e»»v,[cn; 

IF NEXTSLOT^O 
BEQTN 



TH£^ 



0l5KWAlT(-B*3O*FJ)i 

VRC-2xFI+29]J=H; 

UISKWAIT(B.30>FJ?J 



END EL.i>E N£XTSLQT»»h; 
F0RGET5PACE(8); 

nnni«nuDAArcTcTf FQRfieTSPAcrc aah 



IF PBCOUNT=0 OR AUTQPRIM THEN ELSE 

BEGlNibTREAMCPBCOUM*X*X«-GETSPACE(10'0^0)+2)i 
BEGIN DS«-11 LlT** THFRE ARE"; )t*-ni t SK-j QC 



ENOi 



end; 

Z«.USERDISKBaTTQM; 
xi»-5! Dnnnugf); 



DS*.tt DECi 0S*18 LIT" 

Di«-x; os«-3 Fitu; 
spnuT(X)^ 



PB fiues on 



DISK*."; 



i'BCOuNTJ 



%MC 



$ SET PMIT » NOTCSHAREDISK) 
$ SET tJMlT » 3HARE0ISK 
RtaOj VfttaAVTABLE; 



$ PUP OMIT 

raddjbr; r;sr-i ; 

NT3tsN£UP.NEUF-i; 



* DLINT USE ^13 BETWEEN HEHg ANQ ^0:^406') 



FOR NT2»aO STEP 1 UNTIL NT3 DO 

BEGIN URA«.-i;RL£N*RL*.o;RADO*RADD + (2-USERDISKBQTTOM)X30J 
F0aTY»»fSUfX;8X»')3.F0RTYMluL0IfiK*l )*FORTY; 



WHILE (CJa5UtX + Clr'»I+l)]).DISKHuNNlNG AND 
IF NOT C. OCCUPIED THEN 
BEGIN 



I lEQ H DO 



IF c.tCF]«o Then 

BEGIN 
RAfrHA-m 



-*M£. 



c'^o; 

SiscitUxFORTr; 
J»IF X + T=g ThFN 



«MC 
»MC 



F0RTY-CDISKBOTTOM45) ELSE FORTY! 



-xac- 



END 



EiSF 



DO 



BEGIN AD«-M[MCS0CX + I]3 J , C CF ] ; RA«-- 1 ; 



XHC 



end; 



BEG IN 



IF C^O THEN BEGIN S*-MC AO ] , CDA J ; J*M[ 1*A0] f CDA J 

3l»S+(X MOD 50)0IV SxmN; 

IF J>RLEN THEN RLEN»».jf 



End; 



XMC 
XMC 



»MC 



40317220 
4031/230 

40317240 



403 J 7 300 
40317 310 
40:^17 3 ?n 



0648«3 
0650J 1 
6 SH 3 



oesati 

0653 « 3 
OftSAtg 



4031/400 
4031/500 
403176Q0 



0655 JO 
065'6»2 
0659tn 



4031/610 
4031/700 
4031/800 



40320100 
40320200 

40 3P03QO 



O66OI1 
066U2 
0662*1 



40320^00 
40320500 
40320600 



066412 

0666t 3 

Ofl70»l 



40320700 
40321000 

40321100 



067212 

0675«1 
0675«3 



0676»3 
0676»3 
Q 677» .2- 



40321104 
40321129 



40321131 
40321135 
40 32H40 



06/9»3 
06/913 
067913 



40321200 
40 321300 
ao 32 13 10 



068112 
068l»2 
68 3^2 



40321400 
40321500 
4032UO O 



0685 «i 
0686 »0 
069lt0 



40321700 
40321800 
40321810 



0694<2 
0699tO 

0700 to . 



40321910 
40 322000 
4012210,0 



070012 
070113 
07021 1 



0703»2 
0704?1 
0706^0 



40322150 
40 322200 
fiO 322210 



40322220 
40322250 
40322300 



0/071 1 
071011 
Q 71011 



IF X GEO 50 Then s»ss+tm; 

IF vJ GTr and (NTUsS-J) gec diskbqttom + 3 

IF fY>»DDD[ABSfR)3)tDEND EQL NTl THEN 



40322400 
40322410 
4 Q328420 



o/ion 

07l5»l 
071 5M 



THEN 



BEQIN ODDtR3i«S4(LOl«Y,OSlZE+U)CTObSUE3i 
IF LQ 6T« nilH THEN Rt.EN»«LO END 
tlSt ' 



40322425 
40322430 
4 032 2 440 



071511 

072110 
0723*3 



BEGIN 

IF R»AV1 

riEGIN 



_XMfi_ 



THEN 



XMC 

XMC 
XMC 



40322442 
40322444 
40322450 



0725»3 
0/28»l 
073 l »? 






XMC 

XMC 



40322460 
40322470 
40322480 



0/3411 
0738«2 
0740*2 



40122600 
40322700 
4»322e00 



0740«2 
0741*0 
0/4H3 



0742*1 
0743*3 
0745*3 



71^ 



V 

2( 

3 

4 

5 I 

6 

7 

B< 

9 

10 

11 < 



50 ' 

51 

52 

53I 

54 

55 

56 < 

57 



rf 

2 
3 

4 
B 



10 
11 



16 

17 



20 

21 



23 
24 
25 

26 , 

"I 
28 



29 
30 



31 



J3 
34 



36 

37 ■ 



X 



40 
41 
42 



43 



4S 



•8 



49 
50 J 



54 



58;; 



END' 
IF CXO THEN 

IF Ml AD^.tr.F.USEV^N? 



8EQIN 



EiSe 



j-tiiK. 



XMC 



%MC 
XMC 
X M C 



^0323000 
40323100 
a038320Q 



40323300 
49323400 

ftn:i2:^son 



0750«1 
0750M 
07? > tl0 



07S3I2 
075610 
Q7mt2 



WhItE (B«-{MCSU[x+niNX(K«-K + n]));(0 AND KS15 DO XMG 

FOHGETSPAC£(B);FORGETSPACECSUCX+n); XMC 

c«-q; XMC 



40323600 
40323700 
40323710 



0757»2 
07631 1 
766 »0 



END! 
END UNTIL C»0; 



XMC 
XMC 



END, I 



IF (DDDtR]fDEND 
NT2XMN* % NT2 



MOD MN)»(CNTIJ = 5*FURTY )-n 
= X 01 V 5 



THEN 0D0CR3.DEND»»NTl+ 



Vf?tNT2 + U««0&iSUCXJ.rORTVMlUDi5K*lKToSpEED3iRlETONUMENT3& 
RADDxTOSTARTWRO3&Si.ENtT0MAxSlZ3*(f^T22NEUPvt3ll53 AND NT2<iO) cT0EuNP3; 
IF RsAVl THEN ■______ ^ ^___ _____ ^ _ ^ 



BEGIN 

DISKWAIT(A^AVUZ); 
7«-7-trAVRL0CK?R»"l ? 



end; 

DDOCRfR + Ui-ftOOOOO DI vC2»SUt X3 »FOfl rVMlLLDlSK )*C X MQO 100)DIV 5xMN*n 
TF rLOtsRl piv 4) LSS AVniFrMTN TufN LQ tiy AVnTFrM TN fLSf . 



IF loavuiffmax THtN lo«-avdiffmax; 

IF (RjaR+LO) GTH AVI THEN 
BEGIN 



diskwait<a*avi*Z)J24-z+avbuock; 

Rl.R-AVl i 

end; 



FQRTY»a4000O 
RADDI=R+l ; 

end; 



oiskwaitca'AVI'Z); 

NT2lsNT3 + 3; » NT2 t *NEUP .NEUF+2 
pna ^;TH8MT3 ste p -1 tiMTTi nn 



IF CNT4«=CN0T SQCKlNTl+203J.[2a»20]) X THEN X LOCK OUT ThIS 

BEGIN EUMASKJ'TBIQCnTI) QR EUMASK; X TURN ON EO LOCK OUT MASk 

TF NTl THEN VR[NTl DIV 2 * NT2 J . C 6 > 203 » = NT4 



EU 



end; 



ELSE 



VRtNTl DIV 2 * NT2l,C28»203»»NT4; 



VRrQ3lgPtnUP»LQD3&EuMASKCTOMAXSU3; 



S SET OMIT » 
$ SE T OMIT s 



NOT(SHAREDISK) 
F0RGET5JPACE(SU); 

SriARE Pl SK 



S POP OMIT 



unlockoirectory; 

TOfiLElaTOSLE OR AeOfiTMASK OR USERO ISKMASKJ 



if l>1 then spout(l); 
messagetablebuILDEh; 

FOR W4-W STEP "2 WHILE ZSF[W3Xt^l4 DO 



X THERE ARE X PB FRtS ON dISk 



BEGIN 






THEN 



DISKWAITC-(ZSF INX )* 30* ESP ADD ); 

forgetespdiskcespadd); 

E $PAD n» ZS Fl2,9 3 ; „ 



end; 



laiiiiiiiiiMiiiiiiiiMi^^ ij >6..3 .a i 



40323800 
40923900 
40.124000 



076613 
076613 

Q768»0 



40324102 
40324104 
40124120 



0768»2 
0773 » 3 
0776t0 



40324200 
40124210 
40324 300 



077 711 
0781* 3 
0787 tl 



40324400 
40 324500 



0788 »0 
0788 « 2 
789U 



40326000 
40327000 
40328000 



0792»0 
079210 
0798*2 



40329000 
40330000 
40 3 3100 



T 
T 

4^ 



40332000 
40333000 
40134000 



0a0l«2 

oeos'o 

0806 » 3 



40334054 
40334055 

.403 3 4 56 



«8G7ti 

0609 « 3 

"eii< o 



40334057 
40334060 



081110 

oaiin 

0B13 t 



oeisti 

0816*2 
Q817I3 



40334070 
40334075 
40 3 34077 



0820«0 
0822 '3 
0fl25«Q 



40334079 
40334081 
4Q3^4ne5 



40334308 
40335000 
40 335 990 



082713 
08 33»1 
Qfl35t2 



0838*0 
083810 
083910 



40336000 
40336010 
40336100 



40338000 
40339000 

.4015.3 iQ.a 



083910 
0642>2 
08 4 2 1 2 



40353110 
40353120 

:'.4llilliig 



0844(1 
0846* 1 
984613 



40353140 
40 353160 
40 3IH.IO 



085110 
085110 



.40-iii|iis 
■4iiiiiii; 

0353200 



0852«l 
0854 » 2 

.,.,08.^111.. 



085611 
0857»0 
065 71 



# t 



end; 

KOrtGEriiPACECZSF); 
5tJ§TATU;?(AM)DnrO)f 



korgetspacecsock); 



PROCf Qtifig Bf A tf' I ti FCi. QSC f At.ffH A } I V Aj^if^ A LfiW A t I NTEfiE « A LPH A f » 



40353210 
40356550 
4n3:!)68QQ 



085913 
0862»0 



40400000 T 0865 t 2 

SjZE* 0866 WORDS 

4inooono t npnoto 



10 



14 



16 
17 
18 



19 

20 



22 
23 



24 
25 



28 :v 
27*; 



28 
29 



M 

31 ' 



32 
33 



34 
35 



36 



40 
41 
42 



43 



45 

46 



•8 



49 
50 



52 
53 



S4 

55 
58 



BEGIN ARRAY FIB [*]# fPBC *]* HEADER t * J ;X 

%%% PUNT ADD ANY DECLARATIONS RETV^FEN 



START OF REl 
"HEADER" AND "K InD'* %%% WCP 



INTEGER KInD*N8UFS*U»8U£n»C0DE*UnLABELED»C0B0».* I#J*FNUMi 
REAL MlD*FI0*R,D,C*FqRM5,STATEi 

REAL RC^i«*0>XTHA»y3; . . 



segment; disk 

41001000 

ainoisno 



ADDRESS » 
T 0000 :o 
T 0000 VO 



00877 



label px'pbd/ 
Label dciq; hlal sta; 

1. ABEL r.R.LP.iMTfrLOSFD^nK,SPiif:p*HKLPjPP«PR^DC»Cn#CC;. 



XP 



41002000 
41003000 
4 1Q0 3 |00 



Switch sw* cR#lp^m t* closed* uk,sp,cp,bkup* pp*pr*dc* cd*bkup,dc 19* 
label eof*on*one*cleanup;» 

LABE L EOD; 



41004000 
41004^00 

41005000 



000010 

0000 10 

OOOQIQ 



000010 
000010 

noooio 



REAL T1«.T2'T3*I0D; 
REAL T# access;* 

name saiqd»t; 



ARRAY 3LG0L*J»SKELC*1; LABEL Li^L2*L3; 



41006000 
41007000 
4 1007100 



BOOLEAN COMPGQ; 

REAL type; 

DEFINE REwsCn0F .E4 7U3< , y 



41007200 
4101700O 
4 101710 0. 



0000 to 
0000 »0 

0000 1 



KRUNcH=NOT caDE»[42« 13## 
REL*CDDta46JlJ»,a; 
TIMEg.CQPF,C4^l l]Uf% 



41017200 
41017300 
AlOiapOO 



000010 
0000)0 
Q0 0» -0- 



LOCKsNOT C0DE.144I13#»X 
PURQEaNOT CODE . C 4 3 « U *; X 
LABEL CunSFQUTtX 



4 1 1 8 1 
41019000 

41020000 



0000«0 
0000*0 

ooooto 



label eofit;x 

C0DE*-(NDT *P(,ALPHAn.Cl8ll5J;X 
ALPHA<-PC,ALPHA*LQD).[33 8 15 3;% 



41021Q00 
41022000 
41035000 



0000«0 
OOOCJO 

o o ooto 



oooo'o 
ooooto 

0000 1 



FIB^-MtALPHA^S); FPB*PRT [P !« IX, 33 ;X 

IF (STATE*FlBt53).C42tn THEN GO TO CL0SED;X 

NBUFS»FTBfl33.[tt93j rNUM«.F IBf 43 . f 1 31 1 1 3; X 



41036000 
41038000 
41039000 



U«-FlbCl5J.t24J63; 
UNLABELED4-FIBC4] .C2« 13;X 
BLEN«-FlR[l8].[3llb3;:t 



41040OOO 
41041000 
4 1042000 



ooooio 

ooooto 

Q009»3 



ooini 

001413 
001710 



STREAM(S«-tfP8tFNUM3 3#D*[MlDj )}% 

BEGIN S1*S; DS«-2 WDS; DS*3 
IF D<0 THEN D»0«tl8t303;as 



41043000 T 0020*0 
41044000 T 0021'2 
41 045QOQ T O 23« Q 



OCT; 05*5 OCT| OS* OCT END;* 



FaRf^S«.FPBCFNUN + 33 ,C42«l3;lt 

I*-FIB[13J.C28J10];X 

IF (RsO AND IXl) OR RXO THEN R«-i;a; 



41046000 
41047000 
41Q47S0Q 



0024(2 
0025*3 



CaB0L*<Fl8Cl33 ANU 1 )&( CF lb ]. [8 » lO 3a22 )C 1 147 » i j; % COBOL 60 
IF C080L>0 OR FiaC43,C7ll3 THEN X COBOL 60 OR SORT 

MLFIB INX NOT nit3l63*2 ^_^_^ 



41048000 
41049000 
41050000 



4 68 



ELSE MtALPHA-7J,E3»63«-2; 

IF (i<-j*FiBCioj.[3«i5])xo Then xThere-s a buffer ring To mark 

DO M[I«23.C3tfa3«.2 UNTIL ( I »M[ IJ , E FF 3-'3)b J J 



4 10$ 1000 
41051100 



0029*3 
003U3 
0033*1 



0037*1 
0041*0 
0043*0 



40MMlNT;'''^<AM«lliiii»iit*SWK»iiliS^^ ,;FR'0M HS^U Wt 

m.rfM;nMimswm^mMmmmmMm»mmM%m:^ * a L'P'H a • 3 , g > i 



41051300 
41051400 
41 51 50Q 



CRlCC»CPaP»SP»MTlPP»PR»CD 

othe«close(o); 
GO TO cleanup;* 



41051600 
4105^620 
4105 8000 






41054000 
41055000 
41142000 



0045*3 
0051*0 

0053*2 



0061*0 
0061*0 
^41 t 






00^3*2 
0073*2 
0074*^ 



0074*3 
0077*2 



• • 



2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 

28 b: 

27? 

28 

29 

30 

31 

32 

n> 

M 
3S 

36 

37" 

38 

39 

40 

41 

«2 

43' 



IF NOT STATE. L'*!:!! 
IF KIND<2 OR KIN0=11 
S ET QMTT = NOTCPACKETS? 



THENX 
OR KIND2:6 AND KINDS9 



^1 
-44 



189000 r 
190000 T 
190099 T 



0082 
0083 
0086 



»0 
«0 



THEN BEGIN 
SET OMiT • PACKETS 

JF nLftSFMFSS THFM TF 



(Ti*jARfi>iMTi<»nri>n PR Tvn Aivin COPNiMFS*; thpn 



4 U 90200 T 00861 1 
41190199 T O087«3 
ailOOlOQ T — 008713 



POP CMlT 

filemessagecc 
se t qmit « notcpackets) 



41 



u 



I9O3OI T 
190600 T 

9069.9. T ■■ 0093 



0093 
0093 



»0 
10 



" REL^XiTlNUCUUdlSOUeJ^O^MlD^FID* 
IF KIND»2 OR K1N0»9 ThEN R ELSE 0* 
IF KlNn»2 OR KIND»9 THEN D EISE Q» 



41190800 T 0093*0 
41190900 T 0093»0 
4 1191000 T — 0093<0 



c*iF KINDS4 Then 6a else 

CLUSEMESS AND C C T » = jARtPlMI x#0 ] )>0 

OR (T<0) and COPNMESt?))? 



41191100 T 009310 
41191200 T 009 3*0 
4 119 1 30 T 0Q9 . 3I0 



end; 

IF (FIB[5]«-STATE),C« 
IF /T*FIBflQ3.C3;i5l 



2»1) THEN FI8C43.C8ia3«.3n 

)/0 THEN »THFRF*S A RUFFFH RTKlQ Tp FORGET 



41 
41 



191500 T 
194000 T 
1950QO T 



0103 
Ol03 



«0 
»0 
13- 



BEGIN ilFORGETTiNG IT 

FOR UO STEP I INT It NBUFS-1 DO* 
BFQTN %J»M[T3,[lp;i53-2Jai 



41 

41 

-Ai 



196000 T 
197000 T 
196000 T 



O1O9 
Olio 
0114 



»3 

12- 



FQRGETSPACECT)iX 

T*J;» 

MCALPHA*l3»PCDUP»L0D)jt0r2>2*n&tfP5l47n3iH 



end;» 

F I BU03,t3» l 5 3 



iCAtPHA*l)C33»33«l53;x 



tSL 



41 
41 



199000 T 
200000 T 
2Q10 00 T 



41 

41 

-14 



202000 T 
203000 T 
20 40 T 



0117 
0118 

Oita 



«i 
»o 

L3_ 



0121 
0l24 
1 26 



»3 

«0 
10_ 



end;x 

if not unlabeled thenx 

IF KINDXQ THEN* 



41 
41 



205000 T 
20600C T 
207000 T 



0127 
0i26 
0129 



»0 
»2 



IF (T«-MtALPHA-2] ,[33 

FORGETSPACECT- 

M[ALP H A-23«-P( DUPfL O D 



t 153)^0 Then* 

)^PfQfXcH)[a»n»io3 j* 



41 
41 



808000 T 

209000 T 
?lQOQn T 



I24r 



0130 
0133 



H 
«3 
t2- 



FIBt63*Fiat73*0;* 

IF TIME Then stoptim 
TF cnRnv>o nR FiBrai.t 



ING(FNUM*l023); 

7M1 THE^ % CPRni fiO UR SORT 



41 
41 
A 



211000 T 
212000 T 
2l?l00 T 



0l39 
0l4l 
Ql43 



10 
»1 
L2- 



Dk: t 



MtFlB INX NQT 
GQ TO CLOSED/* 
DISKCLOSECQ?; 



13,C3J63«=6 ELSE M t ALPhA-73 , [316] »»4; 



41 
41 



2122OO T 
213000 T 
PlSpOO T 



424 



0i45 
0153 
0154 



«2 
«2 

ij0_ 



GO cleanup;* 

DC»t 

S SET OMIT « NQT(DATaCQM 



± 



41 

41 

AX 



269000 T 
281000 T 
2S1999 T 



0154 
01S5 



»3 
»1 



DC19II 
$ SET OMIT * NOT(DATaCCM) 

GO CL OS E OMTV 



41 

41 

AX 



307010 T 
307020 T 
3 07 .2 90 t 



0155 
0156 
0li?6 



«1 

»0 



46 
46 
47 
48 

49 f; 
SOr| 
B1 S 
53 

a 

i* 

55 '5 
56 f 






41 

41 

At 



B08000 T 
309000 T 
3100QQ.T 



0156 
0156 
0157 



»2 



46 

46 

47 < 

48 

49 

50 i 

51 

52 

53 I 

54 

55 

56^ 

3 



PROCEDURE linkupctype,key); vauuE type*key; real type»k£y; 



STA RT OF REL 



41 

SE GM ENT 



SI 
310100 T 
; OlS|^ A 



2E" pi 

0000 

DDRE^S 



58 WORDS 
»0 
" 088 3 



. Mtli--":^' ■■■■•■■■ ■^■■■■'■#'S^^^^^^^^^^ 



41 

41 

AX 



310200 T 
310300 T 
31Q40Q T 



0000 
0000 

Qooa 



10 

to 



MtKEY+23 «■ (*PC0UP)) i CXCLUCK + P(RTR)) 131241 243 ; 

IF CLOGHOLOEB INX 0) ■ THEN 
B EGIN UQHflLQER 1 1 C F 3 15 K£Y 7 



4131OS0O T 0007 »1 
41310600 J OOll'O 



iip^©piiiiiiiiiiiiil^^ 
;iiiii|iiw^liiiMiigiiii|iiiiii^ 



•■44 



lfi|oi»;fi:. 

3 11000 T 



0014 
0015 

-tun*- 






>r 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 
16 
17 
18 



19 
I 20 
21 
22 
Z3 
24 

J5,;, 

28 
27 
28 
19 

30 

92.?! 

M 

34 

35 

38 

37"" 

38 

39 



40 
41 
42 
43' 



15 
•6 
♦7 
18 



*9 
50 



61 
52 
i3 



S4 

J5 

5«: 



'''^^^^^-^^^ 



IF (NUMAINTMES5; = NIMAINTI*^E.SS*1) 

END linkup; 



> THEN SLEEP([NUMAlNTMESS]»-y)i 



Procedure CHECKjaaOKFiLEMESS(Mix*FiB*U)i 

VAtuF MiXtFTBtU; Hfc.AI MTXiFTR^U? 



'♦1311100 T 0022«0 
^1311200 T 002680 

-S^ E;» 027 H O R DS 



START QF HEl 



BEGIN 

REAL 
I£. 



41312000 
SEGMENT! DISK 

4ni?ioo 



KtV»FNUM; 

NOT JAR[MlX#2].[3ti] 



THEN 



BEGIN 

JARCMlX»21,C3in J* 1; 
KFY I* figTSPAr.Ff5.7^.nw?l 



41312200 
41312300 
413124 00 



T oooej»o 

ADDRESS « 

T fionoiQ 



00884 



M[KEY-2].C9«6] :x 0; 

M[KEY 3 r= & MrxC20J4a;5Ii 
MfKFYtn JM JARrMTX.Sl.r6l1Wi; 



41312500 
4l3l2600 

4i.ii?7nn 



000010 

0000 so 

0000 >Q 



McKEY+23 

MCKEY+33 
MrKFY*ai 



J» JARtMIX#5]; 
t* JARCMIX^Oj; 
ts JARfMTV.n; 



41312800 
4i3l2900 
^1313000 



T 
T 

4- 

T 

T 

X- 



0002»i 
000213 
00051 3 



0008J0 

OOUM 
0Q13«3 



LlNKUP(l2*Kt;Y); 

end; 

IF FIhXO THfN if not 



4 1313100 
Al 313200 
^1313300 



MCFiaJ.C68n THfN 



BEGIN 

McFiBi.taiu *» i; 

FNUM ts MtWCFiB] INX 4K[l3Mn; 



4l3l3a00 
41313500 
4131360U 



001 7 »0 
0019«3 

002a t a 



KEY :a (iETSHACEC5*73»0) + 2; 

M[KEY-2].[9J6] ;= Q; 

MrKFY ] t= & Mlxf?Q>^3tS1 



41313700 
41313800 
41313<?0Q 



0025 «l 
0026«1 
Q026»X. 



4 (CFNUM DiV FTRUNG)+l)C9t39l93; 
MtKEY+13 »s JARtMlx*53.t6}l83; 

MrKFY^23 t« MffFNU Mie PfiTfMTX#33 T tuX FNUM^*^3i 
MtKEY+33 t- MtFNUM3; 
M[KeY+43 «■ MtFNUM+i3; 
IINKUPC13»KEY); 



41314000 
41314100 
4i3l4a0n 



0029J1 
0029*3 
003??? 



4i3l4300 
41314400 
41 3 145 QQ 



0035»3 
0038»0 
004 Hi 



0042 » 2 

004S»3 
0049 rn 



EN0;END CHECKjOgORFlLEMESS; 
PROCEDURE LOGOUT»AINT(B); VALUE Hi REAL B; 



41314600 
41314700 
4i314hOG 



0054«0 
0056«3 
0Q60«Q 



41314900 T 0061 to 

Size* 0062 words 

41316000 t OQOOtn 



BEGIN 
R FA l 



JjQJl 



*o; 



REAL MS0W«i*2; 

REAL Fh « *1* Tl ■ +2* T2 

RFAL MFT O » »6> FiD « -t-?; 



START UF REl segment; DiSk AODREiiS a 00887 

4l3l6i00 T OOOO'O 
™ , 41316300 T OQOOtn 



« +3* T3 a +4# SaVENTrY 
BOOLEAN FflRKED a ♦S; 



4.5; 



iktegep LaStl s +9, Segno s +io* segsiz » '►u* loaTe * +12; 

LABEL CS*SCAN,N£WLOG*BUlLDMEiJS#EXlT*FlNlSHUP; 

Subroutine fixcqldhdR; 



41316250 
41316300 
4l3l6flnn 



BEGIN 

MCFh INX 03l« ^0000500036000601; 
MCFH INX n» « <XCLDCK^P(STR)3 & t HATrf 6 i 30 1 1 8 ] I 



41316410 
41316500 
41316505 



000010 
0000»0 

Qnonrn 



STREAM(DATE,X««FH INX 3); 

BEGIN Si:stoC Date; 0S««8 OcT; 0U»X; D5IS2 LlT" + #' 



41316510 

41316515 

^t lt 6 '^20 



0000»0 
000010 

O QOQ J Q 



OOOltO 
OOOtIO 

JQOaio 



end; 

SET Qilff 



41316525 
41316530 
41 316535 






MtFH INX 
POP OMiT 

MtFH INX 



43l» i 72C9U1J73; » SYSTEM DATA FILE 
73»« (L0GSI2Fx6)-1; ■ 



41916540 
41316545 

41316575 



0006»2 
0008 «0 
0009 U 



;iiii«;iiii^ft^liiil , , 



41316580 
41316585 
»1 31659 , 



001010 
OOlOU 
OQIQM 



4131720Q T 



0010«1 
0013»1 
Q13«1 



061*1 1 
001810 
002110 



T1^ 






9 
10 



13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 



• 
• 



40 



42 

43 

44 ' 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 ( 

54 

55 

56 ' 

57 



tl 



>r 



BEGIN IF MHOW > THEN SLEtP C t MHOk^ ] r-0 )/ 
L AST L I s tllG &NTRYj .. 



^1317300 T 
4]3l7a00 T 



0022»1 
0025*3 



^ 1317 500 T 0026>3 



1.0GENT9Y I* O; 
END ELSE LASTL»*A8S(B)«2; 

Frni» ^MNTinG " : 



41317600 
41317700 



T 0027 « 2 
T 0028M 



4 1 3 17710 T 00 3 QI1 



S SET QMIT « NOT(ShAREClSK) 

i 

STRfciAMdiATE^ct^n-nATE] )i BFGiN si;»inc d at f ; n s>»fl gcTf end; 



4131771V T 003012 
41317730 T 003012 
4l3l77»0 T 003110 



Tlt»SPACE(335); 
IF (FHI«0I«ECT0RYSEARCHCMFIDI««''MAINT 
$ SET QMTT m NOT( SHAREDISK ^ 



''*T3lai"L0G 



41317790 
4l3l7e00 

4l3l7qQQ 



T 003213 
T 0035*0 
4 Q03ftll 



10 



IS 
16 
17 
18 



BEGIN 

FHt=SPACE(30)> 



'5))«0 THEN 



M0VE(30*FH»1*FH); 

MtFH+ 93»» 1/ 

MCFH»103»» GETUSERDISK(^^(M[FH^.83l«LnfiSIZE^« 1000)3; 



4l3l8l00 
41318200 
4131B210 



0036M 
003e»l 
0Q 3fl« 3 



4i3i822C 
4l3i8g30 
4l 3l82 4Q 



00ftl»0 
004310 
00 4510 



CSJ FlXCUtOHDR/ 

IF FH.tFFI-O ThLN ENTtRUS t.KF ILE(-MFID' T 3*FH- 1 ) 
^ ^ FLSF niSKwAITCFH INX n . .in . F H . T FF 1 ) ; 



41318250 T 0Q50»1 
41318360 T 0051 JO 
41318370 T O052»l 



19 

20 



22 



24 

25 ': 

26 



FID»» T3* 
MROW»» MtFH INX 
60 R UILPME SS; 



103; 



end; 

LOGSIZEJ* M[Fh INX 83; 

IF HtFH InX 4i.[<45tl] THFN FQ H KF D» =«K DRKEn 



41318380 
41318400 
4lillfl5Q0 



OO61I1 
0062*0 
0064*0 



QR 2i % JUST c om S TAR T eo 



41318600 T 0064*2 
41318610 7 0064*2 
41318(^20 T 0066*2 



27 
28 



29 

30 

31" 

32 

33 

34 

3S 

36 



IF B>0 THEN 
BEGIN 
SET QMIT m NQTCSHAREDISKI 



$ SET OMiT = ShAREDISK 

MCFH INX 43*« & 72[9l41j73; 
i PO P OM IT . 



«1318630 
41318640 
4t3lfl6fl9 



0070*1 
0071*0 
0071*? 



% SYSTEM DATA FILE 



Scan* 



OISKWAIT(-TIO#MROWI«MCFH INX 103); 

MLOg** segno** M[T13, [24*153; 

IF MLOQaLOaSIZE-l THEN 



41318679 T 

41318680 T 
41316 6 61 T 

10 T 



BEGIN 

IF (FORKED AND 2JX0 THEN GO CSj 

IF MLOGXSEGND THEN D I SKWA U ( -T 1» S^MROW ) ; 



41318741 

41118760 

41316780 



0071*2 
00^1*2 
0074*2 



0074*2 
0077*3 
060* 1 



41318800 T 0081*2 
4l3l88lCI T 0082*0 
41316 ^20 T 00 63*1 



38 



40 
41 
42 



46 
47 
48 



49 

50 



B1 



52 



56* 
56 ii 



McTl3*» rCDUP»LOD) 8, 
D|SKWAlT(Tl*b*MROW); 
MLOfliB tF S£GN0<LQGSl2r 



1C2»47»13; 

I Tmen SFGNO FLSF L0r.SIlF*2; 



GO newlqg; 
end; 

DIS KWA I T(-T 1 ^3">MH0W * (H LQ G » 



41318840 
41318860 
41316880 



0086*2 
0089*1 
0090*2 



^Ml Q G-»1?); 



IF MCTiJ^ NOT Then go scan; 

MLOQI* HLOG*i; 

l,QflENTftYr» MfTl + lUCCFi; LASTL*^» MIT ji 1 3 , jf F 3 . 



4l3l8900 
41318920 
41318940 



IF CT3*5L0GH0LDER 
WHILE T3X0 DO 
J1G...IN. .,. 



INX Oj ^ THEN 



41318960 
41318980 
4 1 3 19000 



0094*1 
0094*3 
094* 3 






41319020 
4l3v9040 



0097*3 
100*0 

oioni 



end; 

if lastl/o 

.fl.|.I|.N 

m 



41319080 
41319100 



THEN 



TF T3>S THFN TF LASTl,*T3 > CT?H>f Mtnr.*n« l Q ) T HEN 



41319140 
41 31 9 1 60 

413 mao 



0106*2 
0108*1 

.0.110 ^ ' 



oiu»t 

012010 



^ 41tii|0:0'' 

'*ilpiti'^^ 



0122*0 
0122*2 



0123*3 
0126*3 
013111 



. 56 ' 
57 



• • 



h 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 
19 



20 
21 



22 
23 



24 

26 V 



28 

"?! 

28 
28 



31 1 

32 

33 

34 

35 

36 

37* 

38 

39?' 

40 

41 

42 

<3 



«6 
»7 
18 



•9 * 
50 



51; 

S2 



54 



55 

56* 



BEGIN 

MCTl+SEGSU]ti: 



0lSKWAlT<Tl*30*MR0W4SEtiN0); 

ENo;eND; 

JJJXA 



P(DUP»lUD) & U2;a7« n & 



HtTl ] 



;= 5 & 02[3M2;6] & 

(MLQa +(MDELTA^0))C24i33;i5] & L ASTL [9 J 33 Ub] ; 
HtTltn U LDATE, « (Xr.|.nCKfPtRTR)U3;?At,24); 



MtTl*23 
MtTl*33 
McTlffl] 



i« PATCHLEVEL; 

!» uoGveR&roN; 



DISKWAIT(TI,5,MHUW); 
IF 6>0 THEN % CALLED 
BEfilN 



FROM INITIALIZE 



IF (FORKED AND 23/0 THEN FIXCOLDHDR; 
DISkWaITCFH INX Of30#FH,CFF]); 

60 riNiSHuP; 



end; 

NEWLOGJ 

If HOLDFRFEgQ THEN SLEEP C CTOGLE 3 » HOLPM aSK ) ; 



L0CKT0G(H0L0MA5K); 

0ISKWAIT(-Tl#*30» DIRECTOR VTUP-5YSN(33i 

SFfiNOta (MCTU22J.C3eilO] ♦n MOD lOOOl 



M[Tl+223»» PCDUP/LOO) 4 SEGNO [38 » 38 « 10] ; 

DlSKWAlTCTl,-30,UlRECTORVTap-SYSNQ3i 
UNLQCKTOGC Hn i DMASK }; 



STREAM<AI«tACTOATE3*B»«SEGNO'Cl=CMFI03 j; 
BEGIN 
— Sliff A; SH«ST-»2 ; OT » *OUU D S : «fl gHRf Sn«Loc B i oS i»3 PEc; 



END/ 

IF DIRECTaHYSEAHCHC-MFlD'Fla'S) X THEN GO 

V[FH INX 11 » g PCnUPt i aO) & l„D A TeC1?l3Qtl , fl ] J 



NewlOg; 

% ACCE?>SED 



MOVE(lO*FH INX 0*TlU 

MCFH INX 13»« <XCL0CK4P(RTR)) & LDAt£t6l 301 18 j; 

MfFH JHX 33t» P{UUP*LQpl & LDATrf 30 I 30 t 1 fi 3 i X CRrAT f QN 



HtTi+ 4]«s & it9J47Jn; % Type data 

McTU 73«= (T2»5 (MLOG + (MOELT A^o 3 +2 3 3 k6 -i; 
HTTi* Bits T2»1CJ % TO SIMPLIFY nUMPTNiq 



MCT1+ 93t« 2i 

MCTI*103I« o; MC)VEC20#CMCTl4l033*CMCTl + lU3); 

IF CMCTl4lQ3t> G£TUSERDISK(*T2«10 OR N33 » THFN 



BEGIN 

STREAMCA»=CMFID]W:J»T3»=SPACE(5 3 3; 

aEgiN . 



■0St*lS;^.gif»*il3:':':totE.R:/0I.SK. FM- mii:^0Wlt:»^^lm:sl*lf ■ ■■.■■■ 



spout(T33; 

MCTl + lQ]«« GETUSeR0ISK( -12-10} ; 



niSKHATTf*Tl«31j300»MRQH*T3^l 



DlSKWAlT<Tl+3lv300#SEUN0+T33; 
END UNTIL (T3:»T3+103 qeQ 12* 
rNTERUSEPftl,,,EC-Mrir)>FI0fTl-l3;, 



'mtu 









^1319260 
41319280 
ai 319300 



4l3l9320 
41319340 
41319360 



0l3b«l 
0135J3 

o;3e»2 



4i3l9600 
41319700 
4 1 3 1 9900 



014112 
014311 
Q 1 43U 



41320000 
4l320i00 
Al32QaOO 



0143 <1 
0145 Si 
Ol4e<3 



41320220 
41320240 
41^20250 



015211 
015411 
Ql^7ti 



41320255 
41320260 
4}330?70 



0l59M 
0i60»2 



0i6i»3 
0l65»0 
Q167M 



41320280 
41320300 
41320310 



016713 
016713 
0167> JL 



41320320 
41320330 
413 20 340 



Ol7l»0 
0i74l2 
017613 



41320345 
4l 320350 

41120355 



41S20360 

41320370 
4l32Q3»n 



0i80«l 
0l83»2 
01 8 51 2- 



41320390 
4132OA0O 
41320410 



018910 
0190«1 
01 ^OM 



41320420 
41320430 
4ia?Q/i4n 



oi9in 

0l92»0 
0l94>2 



019713 
0l99t3 

Q2Q3 > 1 



41320450 
41320460 

4132P470 



41320480 
41320490 
4132Q5Q0 



0206 » 2 
O2O9I2 

0214^2 



T 
T 

X. 



0217»0 
021910 

02 2412 



41320550 
41320600 

413 2 0700 



41320800 
41320900 
4l38i0Q.Q 



022910 
0229 12 

.0232«2 



41321100 
41321200 
41321390 



0232*2 
0235*2 
023711 



4i3|,i:|ii:,' 

■.4:J:|||l:i|, 






0237«2 
0238*1 
#2A4JL3_ 



41321500 
41821550 






■MkiliiMilisi^Miiiii^ 



4t3fUt«r t 



0247*0 
0249*1 



0053*3 



57 



>r 



10 



12 
13 



19 

20 



23 
24 
2S 
26 
27 
28 
29 
>0 



33 
34 
35 



36 

n' 



se 



40 
41 
42 



43 



46 

47 
48 
49 
SO 

51 K 

S2 

S3 



55 

56') 



MCT1+ ns= LDATE; & CXCLOCK+P(RTR) ) C3«24«2«]; 
MXT l t 2 3''' PATCHUb'VLLf 



Men* 33l» 
MfTUl03I«» 



uogvehsionj 

OATC* 



WCTl+31]«s NUMAiNrMtS5+i00; 

oiSKWArr(Ti»32#MRow); 
Stream(a»«cmftdJ>tqg:smfid«"mai\T 



"* M<»M R O>N fR«'»TV;f 



BEGIN 

DSt«29 LIT^fNEW MAINTENANCE LOG FIt£ 15 " j Sn»AJ Sll«Sl + i; 



TOGCDiJ'On; DSt=4 LlT" AT 
DlJsDI-9; DSJ»7 FILL); 

end; 



SlJsLQC M; D5:=e dec; D5t»LIT' 



«.♦'; 



EXIT! 

SpOUT(Tl); 
IF a>0 THEN 



BEGIN 
T U s 
FINIShUP' 



GETi)PACE{l5*<>#C) *2i 



M0VE<l3*B*Tl+2); 
MtTl 3l» 2i 
MfTl4.|3l» LnATEi 



LINKUPCi;5,Tl); 
END ELSE 



IF (Tl«=:P(.MAINTLOGARRAY^LOD) I\X OjXO THEN MQVfC 31 .T 1 ''2«T 1 »n J 
Tl »» FH INX O; 



WHATMCP(TI+4)* 
STREAMCKTftlaTl^An; 



BEGIN Sl«aKTIii; 

4(52UF SC^"*" 
XiA KTR>»Sn 



THEN SUsSI + l ELSE JUMP OUT 2 TO LL)); 



end; 

NTl»a P 
M C T 1 3 : a 



INX o; 

fNTl-Tl ) 



niv 5? 



MCTI+13JS ldate; 

$ SET OMIT = NQT(SHAREDISK) 
^ SFT QMT T " SHAREOISK 



STREAMCA«=CAVTAbLEC13 3»NJ»NEUp,NEUF#DI«Tl*3); 
POP OMIT 
BFGIN SH»LOC Ni PStgWDSi DH»Ql*6; Slt^Ai SII»SU4i 



N C I F 

end; 

SET OMIT g 



SB THEN QSJsSET ELSE DSI«RESET; SIt»Sl+8); 
N0T( 5HAR EDISK) 



McTl+23 !• MCPBASEI 

LlNKUP(l«*Ti3; 

ir reHKED THEN BEGIN MRaW»»NABSf MRQW); KILL t CMSCIf<3 ); ENQ; 



END logoutmaint; 

PROCEDURE MAInTlOGG£R(B); VALUE Bj REAL B; 



41321800 
41321900 
4l3220Q,0 



4l3?.2l00 
41322200 
4l3?2^QQ 



025/11 

0259«3 
Q263U 



4i322a00 
41322450 
41322500 



0265»1 
0268»1 
Q270H 



0272«2 
027510 
Q27ftU 



41322600 
41322700 

4l32y80» 



0278U 
0278»1 

02aa>3 



4132282U 
41322840 
41322900 



T 

T 
-X- 



0264^2 
0287 JO 
Oa»7> 3 



41323000 
4 1 323100 
4 1323110 



4i323i20 
4 1 323 1 30 
41 3 8314 



O208»O 
0268 «0 



4l3f3|50 
4 1323160 
4 1 323170 



T 
T 



T 

T 

A- 



0289J2 
0290 8 
0392 M 



0292»i 
029411 

0a9Si3 



4i323ia0 
4l323l90 
4 1 3 23 300 
41323400 
41323500 
4tla3ftQQ 



0297J3 
029a»3 
029a»3 
O3O6IO 
0307*1 

oaQflia 



4i 323700 
41323800 
4 1 3 2 3 900 



4j324o00 
4i324i00 
41124200 



0310«0 
031 OM 
3 13» 



0313tl 
0313»2 
314 82 



41324300 
41324400 
41324700 



0317J0 
0319 5 
3 1 9 t 



4i 324600 
4l 324801 
41354900 



0319(0 
0321 » 2 
Q32l>? 



41325000 
4l325l00 
41325200 



41325400 
41325500 
4i3g5«sQQ 



0322»3 
0325 JO 
32511 



0325«1 
0327«1 
Q32flll 



41325700 T 0330*3 

SI2E« 0331 WORDS 
41327000 T 000010 



B.«tii>^ 



-i€f iiaj'i j 



START or REl segment; disk address • 00899 

4l327l00 T 0000*0 

-■■:"■■''■■■•■'■ ;..■ ■ ■-:■■■ 41327200 T OOOQiO 



Real mscw*-2; 

array mla * malntloqarrayc * 3 ; 

RgAL KLUD(^E ■ ♦!# K^Y ■ ♦2> TRANS « ♦S^ RECS « *(*, KT « fS; 



4132^250 
41327300 

^13^7(^Q0, 



illS^^JHifeii 






41327500 
41327700 



0000(0 

ooboio 



0000«0 



• • 



h 



13 



16 

17 
18 

is" 

20 
21 



23 






n 



29 
90 



34 
3S 



39 



41 
42 



47 



50 

B1 ', 






56 



LABtL uoganothe.h»recycll*killl; 

IF MROU > Q THFN SLFEP([MRnMJ»-0)? 



MROW t» ABS(MROM}J 
IF (AiaP(,MLA,LOU) 



INX 0) s THEN 



Ml^A := ti*^C(A:=iiETSPACt( 33*9*0)*3)3 3 

M0VEC31*A-2*A-1); 

MLAC30] »~ NQT O; 



& 32C8J38I103; 



IF MOEtTA;«0 THEN DiSKh AIT C A* 30*MrOW4MUOG+U; 

end; 

loganqtheri . . 



IF MtLOCNJsLQGHOLDER INx 03 < THEN 

Begin 
mqve(4#l0cn*ethans]); kludge is trans inx of 



KEY 18 -0 4 TRANSt26l20ll33 4 (TRANS , C2M3 + 4) fSUai 63 & 

TKAnS£9;9j93 i TRANSCl8«l8t23 & TRANS £20 « « >S If 
TRANS :a TRANSACTIQNi:UlsTRANS.r g|g3^1A3&tXCLQCK»P(RTR))C3lg4tgfl3i 



LOGHgUOER.tCFJ J= 
IF KLUOGE«0 THEN 
ENDi 



LQCN '•= tKl,UD6E3 INX 0, 
L0GHDLDER»CFF3 M LOCNI 



NUM t» (MCl,0Cl!}tl3,t39s93 + U *■ 5; 
IF (LASTENTRYt'«(MU0G+l)x30 + MDELTA) 
BEG I N — . 



♦ NUM > (L06Sl2E-n'<30 THEN 



IF MDELTA/0 ThEN 

BEGIN MLAl3n»=LQGENTRY; DISkHAIT C A#32,MROW+MlOG+1 ) i 

inGQUTMAlNTCC^rinCNf n.f 25»1/<U1),); . 



END. 



uogentry 
wHiue n 

B fc GiN 



i» 0; Ti 

/ 00 



»s locn; 



IF MtTn<Q THEN MtTU.CFF] ja L0GEN1RYI«L0GENTRY + 1 

ELSE MtTl + lJ.t25»n3 l- LOqeNTRY >«UUGENTRY + i; 

Tl ;» ,M[Tl3 , INX Qi 



end; 

uastentry 
FN-n; 



ts 30; 



RECYCLE* 

If CTl»«30" 
BFGIN 



MDELTA) > NUM THEN 



MOVE<NUMj»uOCN + l,tMLACMO£LTA3 3); 
MDELTA «» MdELTa + NUM; 
FNP FlSF . 



BEGIN 

MOVECt1*LUCN+1*CMLA[MCELTA33)* MLAC3n»*LQGENTRY & L^STENtRY tC TF 3; 
DISKWAITCA* 32^MR0W»(yL0Gi»MLGG-H)); 



41327800 

41328000 
413 2 8200 . 



41328300 
41328400 



000010 
0000«0 
0003»1 



000611 
000711 



41328600 
41328700 
413288QQ 



41128900 
41329600 
4t339iQQ 



0009 « 3 
OOH»0 
QOU»? 



00t8»0 
002113 
002113 



41329200 
41329300 
4^3?9fl00 



0021 J 3 
0024«1 
024 M 



41329500 
41329600 
41329700 



41329800 
41329900 
41330000 



0027»2 
0030»3 

0034^2 



4l330i00 
41330200 
4 1330300 



0038*2 
0040»3 

n04 3 » 4- 



41330400 
41330500 

41 3 30600 



0043*1 
0046*3 
05H0 



41330700 
41330800 
41 3 30900 



0051*2 
0052*1 

005 6 * 4- 



41331000 
41331100 



00$9»2 
0061*0 
00 6 2 »1 



41331300 
41331400 



0068*1 
0065*3 
0072 <1 



41331600 
41331700 
41 j Jl flOO 



0074 II 
007413 
Q075I2 



0075*2 
0075*2 
0077*1 



41331900 
41332000 



LOCN »« UOCN 
NUM t« NUM < 

MDELTA im Qi 



+ tv; 

'Tu ^■ 

W0VEC3l*A 



413J2200 
41332300 

4l 3i24 Q 



0077*3 
0060*0 
008111 



0081*1 
0081*3 

o oes' Q 



IF NUM It THEN GO RECYCLE; 

end; 

N \m I I^XME S^l "tp* I N TME 5.S ? 1 f 



■2* A ^13; 



41332500 
41332600 
4l 33gy00 



0088*2 
008913 
0091*0 






XSIMT message fOR rE" 
11 CiMREO 01 SK/DRUM ERR 



41332800 
41332900 
41332 950 



0094* 1 
0095*2 
009'i«2 



THEN 



X IF REQUESTED TO 00 SO 



IF OISKMSG 
POP OMIT 
BEGIN STREAMCA»8TiNmU3* R« aRECS ,[ 1 * 4 3 < X * »KE Yt [20 * 5 3 * S t aWT . [27 * 6 3 t 






jjJUjA 



..'..-^ ':'',. Pi-iii':.i»i . hmmi.mMl^Mim%m,fiku n i«a; 



41333003 
41333004 
41333 005 



T 

T 



fei 






0102*0 
0103* 1 

010610 
0U0»1 



ri 



66 ' 
57 



rf 

2 
3 
4 
6 



10 
U 
12 
13 
14 
15 
16 
17 
18 



19 
20 



22 
23 
24 
26 
26 
27 
28 
29 
30 
31^ 

J3 
34 
35 
36 

37 ~ 
38 



40 

41 



US» = U LIT" HETRUb* MlXs'S 

usj = 2 dec; aj = di; ui» = di-2; DS>» = riLL; Dn=A; 
bi;sa; DSt=5 l tt*s da^"; cItcCI^^DSK; au Tu hrmj 



41333025 
41333030 
41333033 



0U2«3 
1 1 4 ' 3 
QU6»0 



nfiMi 



SltuSI*!; DSJeZ CHH; dSJ»7 LIT"* SEGSw"; 
Sl«sLDC SJ 0S;»2 Oec; SlIsBI SII«SI+16I GO TO L; 
STt«SI*111 5CDSt»3 RESET! 



41333036 T 

41333037 T 
4133 3039 T 



ouato 

0ll?»3 
Ql2ll0 



3(IF 5b THEN DS:=SET 
L« DSJa4 LIT"> r="; 

l 6 CDi>8«3 RLSFT; ^_ 



ELSE OSt^RESEl; SKIP SB))i 5l»ai»I + 2; 



3C1F SB THEN DSIsiSET ELSE 0SI«R£S£Ti 
SitaSpSJ 0S»a5 WIT«* 10««r 
TP SB iHfk nsfg Lir^h.^i mfp &Ri 



41333042 
41333045 
4l333Qflfl 



0121*3 
0l24:i 
0l25t0 



SKIP SB)); 



41333050 
41333055 
4l3330ft0 



012512 
0127*3 

ni2Qto 



IF SB Then ds:s2 lit-'s*"; skip sb; 
IF SB Then DSIS2 LlT-2^"; Skip sb; 
IF SB THEN U§«»2 LiT'Mf"J 



ENOi 



OlJ«Oj"UDSl at IT ••*''; 



41333065 T 
41333070 T 
41333075 T 



SPOUTERCTU PSEUDDMIX tXEY . [30151 3»nlSKMSG QR 34 U 



41333060 
4i3330e5 
4 1333 09Q 



013051 
0l3l»2 



01 lit 3 
013412 



end; 

IF CTl««M[LQ(iHDl.UER] 
BEGIN 



INX 0) » THEN 



IF MUELTA X Then 

BEGIN 

MLAt3l3 **« I.QgENTRY <t lAatENTRYcCTFU 



41333095 
4i333l00 

41333200 



DlSK»^AIT(A»32,MR0W4(^LOG*n; 

end; 

REXS »g 5 & 62[3>42t6j & Mudn C?4 « 33 1 15 3 & LASTENT rY [» t 33» l5 ] f 



41333300 T 
41333400 T 
4 1333500 T 



01 35 J 2 
013512 
Ol 3B» 



WT X* « (XCLOCK+PCRTR) Jt3»24J243; 

wMcp J" patchlevel; 

hiLnr. i« LnGwERarn^; 



41333600 
41333700 
41333600 



0l3e«2 
OlSfil 
1 39 13 



WO 1= DATE' 
DiSKWAlTCCRECS ] 

Tl 5 - M CLQnHQLU 



41833900 T 
41334000 T 
4M14100 t 



0l4lJ2 
Ol43«3 
0l43»3 



1471 2 
014913 
015012 



INX 0#5#MHQW); 
!] INX 0; 



ER] INX 



41334200 
41334300 
41334400 



end; 

IF MtT2] LSS 
IF Tl X Q THEN 



THEN McT2],t2»l3 »« 1 
HEGTN LOGHOLnERtrCFUi 



euse foRgetspacecTz); 

■ IM fin LOfiANnTHFRf ENn? 



41334500 
41334600 



0l52«l 
015310 
nifi4l3 



015613 
0i56t3 
016213 



killl; 

L0GH0LDCR,CCF3 «» o; mu'fi »= NABSCMRQW); 

if L0GH0LDER«[9»91a0 THEN BEGIN FDRGETSPACEC A "i); 



MLA«=o; end; 



41334800 
41334900 
41 , 335000 



0165U 
0165«3 
0l6ft»0 



KlLLCtMSCW]); 

END maintlogger; 



t SET OMIT = NOTCSTATISTICS) 
PROCEDURE MESSAGETAbLEBUlLDEK; 



4i335i00 T 017113 
41335200 T 0l72>2 
StZf» 017^ WORDS 



START OF HEt 



41399999 
41430000 

se gme nt; d is k 



T 0000:0 
T 000010 
addre ss g 905 



31 
32 < 
33 
34 
35 { 
36 
37 
38 { 
39 
40 
41 4 
42 



BEGIN 

INTEGER I,IIM2*TBL^TBLCNT; 

DEFINF MARKER » ^*****'**'»ii 



41430100 T 
41430300 T 
4^430^00 T 



0000»0 
0000>0 
0000*0 



46 
47 
18 
49 
50 
SI 



52 

53 
54 

55 
56 

57 s 



LABEL L* start; 

60 TO start; pc»U); 

L> » i 



»•** BEGINNING OF OPTION RESERVED hQRO TABLE 
**ORAO"* •♦OOOO", X47X 



* *********************** « * * 



41430500 
41430600 
ti\ 430700 



♦DRftQ^ 



'0000' 



ai46i^ 



"BOJO"* 
"EUJO'% 
"OPEN'^> 



"OOOO", 
"0000"* 
"0000*% 



«TERM% 
'♦OATE'*^ 



-NATE-, 
*'Q000-> 



X45X 
X44X 
%U3% 



4i#30800 
41430900 
4H 3 10 0Q 



000010 

oooo«o 

2 ' Q 



X41X 



4143U00 
41431200 
4l^JV3Q0 



0002»0 
000210 
0004*0 



0006*0 
0008*0 
0010*0 






■.ititio 



• • 



2 
3 
4 
S 
6 
7 



"DNEB"# 
"AUTO"» 
"CLEfl"f 



"REAK", 
"PHNT"* 

"RWR^"f 



XidX 

JLilX- 



% SET OMIT • NOT OATACQM 



i RFSFT nMTT 



%3t>% 



41431700 T 
41431800 T 
41431900 T 



0018J0 
0020«0 
00?2«0 



41432000 T 
41432300 T 



002410 
0024t0 



"CMPL"* 
"CLDS"* 
"ERRO"» 



"FILE,"* 

"EOOU", 

"RMSft'S 



X35* 
X34X 



41432500 T 002610 
41432600 T 002810 
4 1 4 387 00 T 00 3 » 






♦♦OOOO", 
«SG0O«» 



%32X 



41432800 T 0032«0 
41432900 T 00341Q 
<H4330QQ T 003610 



10 

11 

12 
13 
M 
15 
16 
17 
IS 
19 



"StCM'S 
"DSKT"* 
"REIT"> 



"SGOO". 
"OGOO''* 
"OG00"> 



%29% 



4i433i00 T 
4i433a00 T 
4 1 4 33 300 T 



00 36 to 
004010 
004210 



♦♦PBOR'S 

SET OMIT ' 
Q-_ 



'EtOO« 



%26% 



NOT(OESUGGING OR CHECKtiNK) 
Oj JL2iil 



41433400 T 
41433500 T 
41 /1 3 3 800 T 



004410 
004610 
046 ^0 




$ RESET OMIT 

"DISK", 
"NOT "* 



"MSGO"* 
"USED" J 



%24» 



41433900 T 
41434000 T 
4l434in0 T 



0048»0 
0048 «0 
00^01-0- 



20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

32 

33 

34 

36 

36 

37" 

38 

39 

40 

41 

42 

43"/ 



"NOT "# 
tPBOO"' 

wSAve^t 



•♦USED", 
'♦NI-YO«, 
" PBTO '** 



X22X 
X2U 
%2Q% 



41434200 T 
4l#34300 T 
41884400 T 



OOSglO 
005410 
005 6 t0 



"RSMS'S 
"AUTO"* 
"RNAL"> 



"6000"* 
"UNLD"# 
"1,000"* 



%19% 

xiax 
!t i 7a i 



41434500 T 
41434600 T 
41434700 T 



0058«0 
0060«0 
00ft2»0 



«CO0E"# 
"CORE"' 
wD*TA"i 



"otAy»# 

"ST00«* 
"0L4Y*?t 



%15X 
JUJkX. 



41434800 T 
41434900 T 
4143SQ00 T 



006410 
0066*0 

ooftaio 



"HALT"* 
"NOT "* 
" NUT "> 



"OOOO", 
"USED"* 
"USEP"* 



XI 3* 

Xi2X 



4i435i00 T 
41435200 T 
4l43S3ntl T 



0070 »0 
007210 
0074t0 



"NOT "» •^USEO*** 
"NOT "* "USED"* 
"STflP"* "T^ST"* 



XlOX 
X 9X 
» 8X 



4143S400 T 
4J435500 T 
4l4H5(SQ0 T 



007610 
0078*0 



"PNCH"* 
"CDQN"* 
"PKTD " i 



"LOCK", 

"LYOU"* 
"MYQ"* 



X 7X 

% 6X 

% bX 



41435700 T 
41435800 T 
4i435>90n T 



0082«0 
0084*0 
009610 



"SEPa"# 
"NOT "* 
"AROV»* 



"RATE"* 
"USED"* 
"ARK ", 



% 41 

^X;.'3X 



41436000 T 
4i436i00 T 
45436?00 T 



0088*0 
0090*0 
QQ 9 2TQ 



"AUTO"* 
"OPTN"* 
♦•♦000"* 



"MESS", 
"0000"* 
"0000", 



X IX 
% OX 
XSTp 



41436300 T 
414364OO T 
41436500 T 



0094*0 
0096*0 
0098*0 



J *-*'i^\::''iiiliiiii;'''-i#''-f ii^^ ******■***'*■** ** *.* * ****■*■*•# ****** 

n, X OX 



41436600 T 
4j436rP0 T 

41440Q00 T 



OlOO*0 
OlOl*0 

0101 to 



47 
•8 
«9 

50',, 

61 ;■ 

52 
53 
54 



"8STACK 
"aOPRTR 



0* 

♦', 



"6QVHFLW"* 
"SDS'EDQ' 



X OX 
X IX 
X 3X 



4l440l00 T 
41440200 T 
4^440300 T 



0101*0 
0102*0 
0104*0 

' ■ i vi^ ! :g i iBi ! ff ? ™: ! j,:-' ' .r ' ■ 



0106*0 
0iQ8«0 
0110*0 



"OFLAS B"# 



immmmmm mmsm 



4'i4404'0l0:t'f,:' 



"8INTGR "* 

"80 IV BY"* 
"8EXCESS"* 



"60VRFLW"* XllX 

"5 ZEROO"* X13X 

"5TIME0"* X15X 



41440700 T 
41440800 T 
4 |440900 T 



Oll2«0 
1 1 4 » 
0116*0 



...^^.■'...^:r:'m;' 






I2£. 



tlft:. 



M 



,,iyfa 



4t4iMa,0.„-f 




'9.tmiG 



h 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 



••8TPUT P"* 
"8FIL.E U"* 
"1000000'% 



"60Si>BLE"* 
"8NQH'ENE"# 



%25% 



"8INVAUr'» 
«8lNvAl.r'# 



"50 EQJO"* %2Q% 
"50 PRLO*** %3Q% 
"6 PARTT"* %il% 



41441300 
4 1 <i 4 1 4 

4 144 1 son 



012410 
0i26«0 
Ql2a«0 



4i44l600 T 
41441700 T 
4 1 41 m 80 T 



0i29»0 
013110 
013 31 



"lYOOOOO"* 

"80PRT« "' "5ES-ED."* Xib« 

"ftlNVAt.n'V "fl AHRAY'V> SuOX. 



4144190C T 
41442000 T 
4i44?l00 T 



0135J0 
0l36«0 

01 36 »0 



«8 Size "> 

"SINVALD"* 
«6 n tTUM'* * 



•'3I0N.,,«, 
•!8 1NPUI«# 



%^%% 



41442200 T Ol40tO 
4i4tt2300 T QH2«0 
41442400 T — 0H 4 *0 



"SIYPE M"» 
"8H READ"* 
"flOUT QF"» 



"8ISMATC"* X44!|; 

"4STHT,/'* 

'^5 DATA.^f 3i48it 



4i442bOQ T 
41442600 T 
41442700 T 



0145 JO 
0147J0 
Ql4V«n 



•♦8NON*qO"# "eNFORMA'** X50X 
"8L ARRA"* "2YS.. ,,"# 
wftNflM*5Q"« "8UABF W". %Ati% 



41443800 T 
4i«42900 T 
4144 300 T 



OlSllO 
Ol53»0 

Qiasin 



"5ATRIX,"' 

"8NEARLY"* "8 SlNGU"* 

" fl lA R H A"» "4TRU,."t 



%5l* 



4l443l00 T 
41443200 T 
4 l 4 / |3 30Q T 



0157I0 
OlbS'O 
01 60 «0 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37"^ 

38 



"8USER D"' "4S-tO,,'S %bi% 
"8INVALD"* "a DYNAM"* %63% 
"S I C DU"t "1 1 "■ 



41443400 T 
41443500 T 
4 1 443 600 T 



016210 
0i64«0 
OI66 I O 



"8INVALD"* "8 PtTAC"* %t7% 

" 1 H " ' 

"flPARITY"* "6 ERROR"* %70% 



41443700 T 
41443800 T 
4^43000 T 



0i68«0 
0170>0 
017H0 



"SOIMENS"* 
«6ZE ERR"» 



"8I0N Si"* %72X 
>*a FILF "* X1S» 



"4NAME.."* 

"8INVALD"* "8 BLOCK"* 
"5 E XIT."* 



4i«4«000 T 
41444100 T 
41444200 T 



Oi73«0 

017510 
Ol7ftlO 



X78% 



414443OO T 
41444400 T 
41444*100 T 



Ol78«0 
Ol79«0 

oiei'o 



"8INVALI"*"5D 
"8EXCESS"* «e 



COM,"* 
10 Tl^j 






41444600 T 
41444700 T 
4l<44fl00 T 



018210 
0184)10 

01 86>0 



"8DS-E0 •♦» "SBY TAS"* 1S86X 
"8K ANOE"* "4ST0R,,", 
"8ES-ED "* "8BY TaS"* %9Q% 



41444900 T 
41445000 T 
4i445l00 T 



0187J0 
0189«0 
Ol 9l{0 



"8K ANCE"* 
"8INVALI"» 
"8 INITIW» 



"4STQR.." 
"SO TASK" 
"5ATIQN " 



X94X 



41445200 T 
41445300 T 
4^445400 T 



0l93»0 
0195»0 
1 97^0 



40 
41 
42 
43 



"8INVALI"* "80 TASK"* 
"8 CONTI"* "8NUATI0"* 
" 1 N , , . , i ' 



%9d% 



41445500 T 
41445600 T 
41445700 T 



0l99t0 
020l»0 
020310 



45 

46 
47 

ts 

SO, 

51'; 

a 

S3 
S4 

55 i: 

5«=| 
57 I 



"SSOfTWA"* "88E INT"* 
"8lvRRU#T'»# "8 ttUEUE"* 
^6 0VFLW«^> 



X103X 



4144S800 T 
41445900 T 
4i4tt60Q0 T 



020410 
020610 
020g»Q 



"8INVALD"* 
"60 TAPE"* 

...Ql 



"8 UlNKE"* 



xioex 



. , l.$T.P.x 



41446100 T 
41446200 T 
41449700 



0209 »0 
021U0 
12 to 



T Ogl? 






4l44tft00 T 
4146^900 T 
4iftS0Q0Q T 



Qai3to 
oauto 

Q ai 4fQ 



COMMENT 

KEYIN MESSAGE TABLE ENTRIES ^ 

fACH TABLE WnRD IS CONFIGURED A^ Fpi l„ OWS» 



4l450lOO T 
41450200 T 
44J.593Q<^ T 



0214«0 
0214«0 
Q2l4«fl 



m^m&m8mm9mamsii§M4i§»SKmi „... , 

iiiiiliiiiilllfiiliMil^^ 









^ 



• t 



>T 



2 = MIX MESSAGE UNLY 
C12»123 « TWU LtTTER KEYBGaHD MESSAGE 
l?H\f> I r - KEYJN PRQCEnURi: TQ RF CALLED ' 



» PROCEDURE KEYING C 

1 « PROCEDURE KEYINI ( 
g a PROCEnURE KEYiN? ( 



DIRECT CALL ) 
DIRECT CALL ) 
iNnePENOENT RuNMFR ? 



^1^50700 
41450800 
4i<tb09Q0 



0214»0 

0214«G 
02U?0 



41*51000 T 0214»0 

4145U00 T 03t4»0 

^1 ^ 51200 T QgUtO 



[3311 i s 1 FOR ALLOWABLE STANDARD HJE REQUESTS 
[3412 1 » - MixCODE ( FOR MiX MESSAGES ) - 
1. = JOB SHOULD BE WAITING FOR THIS INPUT 



021410 

0214 10 

4 1 4 5150 Q T 021 4« 



41451300 T 
4145U0O T 



a JOB SHOULD BE RUNNING* BUT NOT NECESSARILY 

WAITING 
y JQB N£Fn NOT flF RUNNING %„ ,, __„^ 



41451600 
41451700 
l 4 5ia0Q 



T 0214«0 
T 0214*0 
j£ 02Uin 




[36»12] » LABEL 
END OF comment; 

"pAxnsor^ 



NUMBER c Switch location in procedure) 

»AXit INPUT TO JOB FROM SPQ 



41451900 T 
41452000 T 
4U'i?l00 T 



0214«0 
0214»0 

0214^0 



''2IL0102«» 
''2UL0103"* 
"0QT00a4w» 



XILX INPUT FILE WITH 
XULX INPUT FILE WITH 
%QT% quit PROCESSING 



LABEL SPECIFIED 
UNKNOWN LABEL 
PRINTER-BACK Up 



41452200 T 
41452300 T 
4i4g2400 T 



0215*0 
0216*0 
0217*0 



"20T060'*"* 
••20U0105"' 

" QWYn Q 9 6"* 



%iil% QUIT PROCESSING PHINTER-BACK 

%GU% OUPUT TO SPECIFIED UNIT 

^W Y ^i SY STFM INQUIRY 



UP 



'•H 5 25 DO T 
41452600 T 
4l4'i27Q0 T 



021810 
0219*0 

Q??o«n 



"2WY0506''* 
«0RY00»7«» 
"QDSQ O O S"^ 



»WY« SYSTEM INQUIRY 

XRY» READY PERIPHERAL UNIT QR SYSTEM 

3 m S» TE RM TN Ate % )QB 



41452800 T 0221*0 
41452900 T 0222*0 
41 453QQQ T Q22 3« n 



"2DS0608"» 
"2SD0209"* 
"nTF04lO*V 



XDSX TERMINATE 
XSDX TERMINATE 

XTFX TYP E CORE F A CTOR 



slOB 

JOB WITHOUT 



REMOVING DECK 



4i453l0q 
41453200 
41 4 5 3 300 T 022 6 *0 



T 0224*0 
T 0225«0 
022 6 * 



"OSFOOll"* 
"2RM0512*'* 

SET Q M IT « . „N QT( DUMP 



QR 



»SFX SET CORE FACTOR 
XRMX REMOVE OUP FILE 
QEBUGStNfi) 



41453400 T 
4i«53500 T 
4^453600 T 



0227*0 
0228*0 
2 2?l Q 



28 
S 
30 



'•ODP70i3"# 

SET OMIT 3 NOT 

"0DD7014*** 



DEBUGGING 



%Qf% cQRE DUMP 
%\)0% DISK DUMP 



41453900 T 
41454000 T 
4i454'>Q0 T 



0229*0 
0230*0 
?3Q*Q 



J1 ;■ 
33 



«00B7015"* 
''0PT7016''* 
RES ET QM IT 



%CB% DISK BUG 
XPTX PRINT TRACE 



41454600 T 
41454700 T 
4 l 45 4flQQ T 



0231*0 
0232*0 



34 

3S 



''2ST0617"* 
"OCMOOIS'V 
"0SV0019"* 



XSTX STOP JOB 
XCM* CHANGE MCP 
JtSVit SAVE PERIPHERAL 



UNIT 



4i454900 T 
41455000 T 
414551QQ T 



0233*0 
0234*0 
Q 2 35; n 



37 

38 
39 

40 
41 
42 
43" 



•♦0CL0020«* 
«1BK0721»'# 
'♦20Ko5g2'«* 



XCLX CLEAR PERIPHERAL UNIT OR SYSTEM 

XBK» BREAK 

XOK> cONTlNUF PROcESStNG jOb 



41455200 T 
41455300 T 
41455400 T 



0236*0 
023710 

23 6TQ 



♦•2FM0123"* 
'•2FR0124"* 
'♦20F0125'*^ 



XFMX FORMS READY 

%rH% FINAL REEL (COBOL) 

XGFX OPTIONAL FILE^COBOL* 



OK FIt E* L lBMA | N 



41455500 T 
41455600 T 
41455700 T 



0239*0 
0240*0 
0241*0 



••2TI0«26''# 
«2PR08a7"# 
"0PaM28*» 



XTI* PRINT TIHE FOR JOB 
XPH* PRINT PRIORITY OF JOB 
XROX RESET OPTION BIT 



41455800 T 
41455900 T 
41 4S6nQft T 



0242*0 
0243*0 
0244*0 



46 
47 



•'0S00029"' 
"2IT0280"* 

"owi notary 



XSOX SET OPTION BIT 

XITX MAINTENANCE INTERRUPT 

XyjlX .K^T IMRINSJC 



4l456i00 T 
^1456200 T 
4 1 45 63 00 T 



0245*P 
0246*0 
02 47*0 



49 

so 



"i t':i:m $^ 






■xiiii 
x**x 



IGNORE 



.;fi«yJE;';,F.rt£:: 



f»ROCE0URE CAULS 



41456400 T 0246*0 
4t4S9900 T 0949*0 
4i4 ft0000 T QaS O*ft 



52 
53 
54 



''OB070Q1''' 
•'0LI7002''' 
"QLQ74a3"« 



XBUX 
XlIX 

XLUX 



BLACK OUT 
LOG IN 
.LQ<5..fl.yT,..,.,.. , 



4i<t6l500 T 
41461600 T 

HMum . t. 



0250*0 
0251*0 
HO 




"" f liiiiii 



!lHiiliii 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

)15_ 

16 

17 

18 



19 
20 



22 

23 

24 

25 

26 

27 

28 

29 

30 

Jl" 

32 

33 



•'2HR7207"* 
"OSS7408"* 



»hK* halt MlSSAGES for JUti 

*Si>* STATION TU STATION MESSAfit 

%ii% STATION TQ STATION Mf SSAfiE 



♦♦0BS7009«* 
"0US7010«# 



XBSX SET BACK UP SPO 
XUSX RESET BACK UP SPO 
XSC% PRINT SPn CONSnifS 



«oav70i2"* 

SET OMIT « NOT 
'^0RR7013"» 



DATACQM 



»QVX SET REMOTE TIME OUT VALUE 



tHH % BE SE T REM O TE . .. A S NON- a P O 



SET OMIT » NOT 
"OLArOl*"* 



AUXMEM 



XLAi LIST AUXMEM FILCS 
XCAl; CHANi^fE AUXMEM rTl ES 



RESET OMIT 
"ODTlOld"* 
'^0 WD1417"* 



XDTX CHANGE DATE 
it>ND» t^HAT DATE 



♦♦OTR1018"* 
•♦0WTl4l9«# 
"0WM142Q"> 



XTRX 
*WTX 



SET TitE 
WHAT 'TIME 
WMAT MCP 



"OCCl^Zl"' 
•♦00Ll022"# 



*CCX CONTROL CARQ (SEE 16043*80 
lOLX PRINT OUTPUT LABEL 
%Pdli START PRINTER RArK-UP 



FOR tiMARK) 



♦♦0RNl024"» 
"OLD 10 25"* 
'*0RDl026»> 



XRNX SET PSEUOO READERS 
XtOX START LQAO CONTROL 
%m% REMOVE PS EU DO DECK 



SET OMIT a NOT 

"0RP7427"# 
RES ET O MI T 



PACKETS 



XHPX REMOVE PACKET 



"OEDlOSB"' 

SET OMIT 3 NOT 

"0Sl7029" i> 



STATISTICS 



$ SET OMIT « NOT(DATACOM 

"OLRyOaO"* 
$ RESFT lIHTT 



XEDX END PSEUDO DECK 

XSU SET STATISTICS INTERVAL 



AND 



DCLOQ) 
XLKX SET 



REMOTE LOG 



"20Tl63l"* 
•♦2IN1632''* 



lOTX PRINT VALUE or PRT CELL 
»INX SET VALUE OF PRT CELL 
aSFEX FNTER MAINT. LQQ COMMENT 



462100 T 
462200 T 
4 62 300 T 



025610 
0257:0 

oa5 8 » o 



462400 T 
462500 T 
4ft?6Q0 T 



025910 
0260 »0 
Q261lfl 



462700 T 
462800 T 
. 4 6 3 1 00. T 



0262<0 
0263J0 
02 631 



463200 T 
463600 T 

^6 3 700 T 



0264t0 
026410 
0365*0 



463800 T 
463900 T 
464000 T 



026610 
0266»0 
Q267'n 



•64100 T 
464200 T 
4643 



026910 

0269 »D 

fl4_jf — 027 to 



464400 T 
464500 T 
4 64600 T 



027l»0 
272 «0 
02>3«Q 



464700 T 
«I64800 T 
464900 T 



02 74*0 
0275 »0 
02? 6 ^0 



465000 T 
465300 T 

465400 T 



0277S0 
0277»0 
0278*0 



465500 T 

465600 T 
4A50Q0 T 



0278»0 

0279«0 
Q ?79 *0 



466000 T 
466 300 T 
4664QJ T 



0280*0 
0280*0 
Q28l *0 



466500 T 
466600 T 
466700 T 



0281*0 
0282*0 
0283*0 



34 
35 
36 

37" 



41 
42 
43 



•8 



(9 

SO ; 



a 



55 

S6 

52„ 



"1001234"* 

"0SQ1035"* 

SET OMIT a NOT 



SEPTICTANK 



XQCX ENTER OPERATOR COMMENT IN LOG 
:(SUX [jISK SQUASH 



♦♦0CS7036»ii 
"0HS7037"* 
8ESET QMIT 



»CSX CREATE SEPTIC TANK 
XhSX HALT SEPTIC TANK 



S SET OMIT « NOT(WUHKSET) 
$ SET OMIT s wogKSLT 

"0WK7338"* 



X^Kit wORKSET REQUESTS 



POP OMIT 

ni*»jfi,*», t**% END OF 

SET QMTT « NflTtQATACQM ANR DCSPQ> 



SECOND KEYlN PROCEDURES 



♦'lWU72ei"* 
•♦0WP7002"' 
"2rtA7202"f 



XWUX WHAT (REMOTE) USERS 

XWPX WHAT PROGRAMS ATTACHED TO REMOTES 

X .wA | WHAT (R E MO TES? ATTACHED TO JOB 



$ SET OMJT « NQTCOATACDM 

«OHR7003«# 
S R ESET O MIT 



AND OCSPO ^0 DCUOG) 

XWRX WHAT REMOTE LOG 



••0MX24C4", 

"iT 52385"' 
wppS23n6"» 



XMXX LIST JOBS IN MIX 
XT5X TYPE SCHEDULE 
XPSji; CHANGE PRIORITY OF 



JOH IN SCHEDULE 



«2ES2787«* 
♦•2XS23ft8«» 
^«0LF2 4 69«..i 



XeSX REMOVE JOB FROM SCHEDULE 
XXSX FO«CE SeUECtiON FROM SCHEDULE 

,,XLri HvST fu.r,.a rns usfr 



466800 T 
466900 T 
467Q00 T 



0284*0 
0285*0 
0296*0 



467400 T 
467500 T 

46 760 Q T 



0286 * 
02«7»0 
Qg flflin 



467700 T 
468000 T 
46fllQ0 T 



0288*0 
0288*0 
0268*0 



468200 T 
469900 T 
470000 T 



0289*0 
028910 
0290*0 



47050a T 
470600 T 

470700 T 



0290*0 
0291*0 

0292*0 



470000 T 
47l|00 T 
471200 T 



0293*0 
0293*0 
0296>0 



171 300 T 
471400 T 
471500 T 



0294*0 
0295*0 
029.6*0 



471600 T 
471700 T 
47 1 800 T 



0297*0 
0298*0 
0299*0 



• • 



h 



"0LS24H"* 



xlc* list 

%Li>% LIST 
Xf;XX LIST 



FILES FOR CREATQR 
FILES FDR SECURITY 
Fluids FXPTREf) 



SET OMIT * NDTCDATACOM 
"1SM7214"> 



IPDl PRINT 
ANO OCSPO) 

XSWX START 



DIRECTORY 

Mix wessagfs 



^71900 T 
^72000 T 
^7?lp0 T 



030010 
O3O1IO 
302<0 



472200 T 
472300 T 
4 7260 f 



030310 
0304 JO 
Q3Q4I0 



RESET OMIT 

••0TQ2^15"* 
" P 2416'^# 



»Tax TYPE OPTIONS 

%PU% PRINT SPECIFIEP QPTmiL 



072700 T 
^72800 T 
47 29Q Q T 



0305 »0 
030510 
Q306«n 



•'0PG2017"* 
$ SET OMiT s NOT 
"l AU7^i e" f 



AUXMENt 



%Pax PURGE TAPE UNIT 
%AU% PRIMT AUXMEM IM ^iSf 



« 7 3000 t 
473100 T 
47350 T 



307*0 
0308* 
QlQflin 



10 
11 
12 

13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
28 
27 
28 
29 
90 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



$ SET OMlT ■ AUKM 

"0M57019"* 
$ RESET OMIT 



Em or MONITOR 

XMSX SET/RESET SYSTEM MONITOR 



A73510 T 
473600 T 



0309»0 
309»0 



4 7 3 7 Q P T 03t 0« 



"OLNeOSO"* 
•♦0C0P421"* 
i SET QM iT « N OT 



XLNX START LOG 

»CD» PRINT PSEUOO DECKS ON DISK 



P A CKET S 



473600 T 
47 3900 T 
4 740QO T 



0310«0 
O3IHO 
0312*0 



"0PP14 22"* 
"0PC7423"* 
i RE SE T OMI T 



»PP» PRINT PACKETS 
%PCX PACKET COUNT 



474400 T 
474500 T 
47460Q T 



031210 
0313»0 
31 4» .Q- 



''lCUa624''# 
S SET OMIT « NOT 
**0SY70aS"> 



STATISTICS 



XCUX PRINT CORE USAGE 
%$yt SET STATISTICS FjLES 



474700 T 
474800 T 
475200 T 



031410 
0315»0 
0315*0 



•'0Sl7026«* 
$ RESET OMIT 
"Q RW20?7"* 



XSLX SET STATISTICS FlUES 
%RWX RFWINP TAPF UNIT 



4753OO T 
475400 T 
475500 T 



0316»0 
0317«0 
Q317LQ- 



«0CI2028«* 
''2CT2629''# 
w?XT2630W* 



%Cl% CHANGE 
XCTX CHANGE 
1X1% EXTEND TIMF IIMTT.S 



INTRINSIC FILES 
TIME LIMITS 



#75600 T 0318 10 
475700 T 0319*0 
475800 T 0320«0 



''2TL26ir' 
"0XD2032''* 
'♦0MR,20a3'V 



*TLX PRjNT Time llMiTS 
XXUX CREATE BAD-DISK AREA 

^MHjt MAKE Reserve disk 



475900 T 
476000 T 
47ftin0 T 



0321 «0 

0322*0 
323 * 



«0MC2034», 

SET OMiT * NOT 

'♦0RS7035*'/ 



BREAKOUT 



XMCX MAKE COMPILER 

* RS< R E DSTART AF TER BREAK OUT 



476200 T 
S76300 T 
476A0Q T 



0324*0 
0325*0 
Q-<g^*Q 



$ RESET OMIT 
•'0H02036"* 
*' 2 S A2 637'^ 



XHO« HOW MUCH CAVAILA8LEJ QISk 
%b^% SEG & REL AODR OF RUNNING PROG 



476700 T 
476800 T 
476900 T 



326«0 
0326*0 
Q 3g7«0 



•♦l^+.OOOO*'* 

MARKER* 
**** rND DF KFYIN 



1*-*% END OF TABCE 

MESSAGE Table ******************************* if »»*»»#» 



■ 'fa-if naiM I WB^fci — --- — ■---.-..- — --..„ .,„ „,„., , ^ - „ „ „ „ 

CC RESERVED WQHD TABUE ******************************* 

22 » ^ „ , 

?,3,,. f ____„„___„ 



479700 T 
47.9800 T 
47 9 90 T 



0328«0 
032910 
Q33Q*n 



X*** BEGINNING OF 
"UNLOCK "* 

— "USE "f . 



480000 T 
480100 T 
480200. T 



0330«0 
0330«0 
033.2*0 



♦♦P UB L IC 



m. 



24 > 



480300 T 
480400 T 
46Q5 P0 T 



0334*0 
0336*0 
3 36* 



USER 

UiL- 



i 



27 * 

28 P 



480700 T 0340«0 
480900 T 034? to 
491000 T 0344*0 



49 

so 









■■»■ tl*ll.C'iB.a:tiift|Wftl3t»:CARD)... ^ 



481100 T 
481200 T 
#9 1 300 T 



014610 
0148*0 
03 ^0 * 



52 



54 



"EXECUTE"' 
"EX "» 

"DUMP "v 



31 ' 

31 P 

3 2 f 



X "RUN" - "LABEL" 



•81400 T 
481500 T 
481600 T 



0352*0 
0354*0 
3.S6«0 



ss 

S6 



mmmmimMsm. 



iiiiiaiiiii 
liaiiiaisiiiii 



WBMfs 



m;mimmi 






#1481100 T 

■muum t 

, M4M t l»;. T 



0|$«I.O 



JJMIO ,, 



57> 



h 

2 
3 
4 
S 
6 
7 
B 
9 



"RtMOVE "' 

"CHANGE "* 
"UNIT "* 



36 # 

37 » 

38 p 



482000 T 0364«0 
482100 T 0366»0 
,482,200 T — 36810 



•♦PACKEND"' 39 * 

"EHO "» 39 # 

SET OMTf # NOT PACKETS 



482400 T 
#82600 T 
<t a27Q Q T 



037010 
372«0 
Q 3 7 fti n 



"DATA 

"LABEL 

"Se; t 



41 * 

42 » 

4 3 f 



4b30O0 T 
483100 T 
483200 T 



03 74 »0 
0376»0 
037810 



"RESET "» 

"FILE "* 
w EXPIRED*** 



44 ♦ 
47 > 
46 » 



483300 T 
483400 T 
48350 T 



O38OIO 
O382IO 



10 
12 



"ACCESSD"' 
"PROCESS"* 



49 t 

50 » 

51 » 



% A STORE NEAR THE END OF PCC 

* MAKf S USE OF TH E O R DER A N D VA |,.UF.S 



483600 T 
48370Q T 
48 .380 T 



0386 «0 

0388«0 
039Q»Q 



13 
14 
IS 



"PRIORIT"* 
"COMMON "* 
"CORF !Ll. 



32 
53 

-5iL 



X OF "PROCESS* THRU "SAVE", 



483900 T 
484000 T 

fte4ioo T 



0392»0 
039410 
039610 



16 
17 
18 



19 
20 ; 
21 



"STACK 
"SAVE 

"ALG OL. 



55 

36 

MSI. 



"X ALGOL "> 
"FORTRAN"* 
"TSPDL "* 



61 p 

62 # 



«84200 T 
484300 T 



039810 
0«00:0 



48 4 4 T 04 a <0 



#84500 T 
464600 T 
<aa700 T 



0404»0 
0406»0 
040810 



22 

23 
24 



"BASIC "» 
"CUB0L68"* 
" M I TH 



64 ' 

65 » 

66 f 



484800 T 
484900 T 
48^)000 T 



041050 
0412«0 



2S 
26 
27 
28 
29 
30 



"COBOL "' 
"LIBRAIJIY"* 



67 # 

68 * 

69 / 



0<H6«0 
0418)0 
465300 T 4 aO«0 



485100 T 
485200 T 



"FROM 
"TO 

"FORM 



70 , 

71 P 
7 8 p 



% ^ yiUQ H nc pc c) 



485400 T 
485500 T 
4fl56QQ T 



0422'0 
0424 >0 
Q426«n 



31 
32 
33 



"NO 

"DISK 

" TA P E 






79 * 

80 » 

at # 



X "FORM"*"SP£CrAL" 



485700 T 
485800 T 
485900 T 



0428>0 
043010 
04^2»0 



34 

3S 



"PUNCH 
"PRINT 
"RACK 



82 
83 



486000 T 
486100 T 
486200 T 



0434«0 
043610 

ogseto 



37 

38 
39 



"SPECIAL"' 
"REMOTE "# 
" SE R I AL " ^ 



90 p 
89 P 
B6 » 



486300 T 
486400 T 
afl6sOQ t 



044010 
044a»0 



40 
41 
42 



"UPDATE "' 
"SPQ "* 
^^PAPrR "* 



87 
88 



486600 T 
486700 T 
flefiflOO T 



0446»0 
0448«0 
45 a>0 



43 

44 
45 

46 
47 
•8 
49 
50 
51 
52 
&3 
S4 
55 
56 
P7 



"EU 

"SLOW 

"B6500 



91 P 

92 # 

93 > 



486900 T 
487000 T 
4S71Q T 



0452»0 
0454t0 
Q/i5Ain 



"FAST "» 
"COPY "p 
"MAXIMUM"* 



94 * 

95 P 

96 , 



#87200 T 
487300 T 
4fl74QQ T 



045810 
0460>0 



"PROTECT"' 



97 / 



«87S00 T 
487600 T 
#877 00 T 



0«6«I0 
04«6t0 



"SENSITI"* 
"LATEST "/ 
"CC "' 



100 , 

101 ' 

14 f 



% CC MUST EQUAL QUEST % 



487800 T 
#67900 T 
488.9 00 T 



047010 
047210 
0474»0 



0* * 
MARKER* 
%*** iHi) QF CC RESERVES- WORD TABLE *****«*****<>;#**»♦***********»*****♦** 



489000 T 
489100 T 
#R92Q0 T 



047di0 
0#t8 (0 
#79 r D 



• • 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



%**• 8EUINNING QF LbMESS MEbSAGt. TABLE. ************************* 



'iliaQOOOO T 0479«0 






JL_L 



"CHANGtO"'" *■ 
'tR E WOVEO***** * 



% 3 
3t 5 



ai4goioo T 
ft,ia9oaoo,.„T 



0a79»0 

naeoiQ 



0482»0 

046410 

/imQOSOO T 4 8 6 *0 



41490300 T 
41490400 T 



♦VMC-EO 

"FIXED 

"RESET 



% 
% 

X 



9 

10 

JLL 



41490600 T 
41490700 T 

41490800 T 



0488 <0 
0489«0 
04'?0«0 



"SET ♦ "* » 12 
"ACCESSEWfWO* •♦* X 13 
WWQT ON »«,.tOTSK» "/ % IS 



41190900 T 049110 
41491000 T 0492 »0 
4 1*9 MOO T Q494tn 



"NOT ON "i»"TAPE«- 



% 17 



'•NOT EXE"r"CUTAt3LE"f" CODE*- "# X 19 



"NOT A C"^"OMPaFR"^"» 



it 22 



41491200 
41491300 
4 1 4 9 14 00 



T 0496«0 
T 049810 

4 — nsoito 



"SYSTEM "•"FltE* 
"TAPE PA"*«8ITY*- 
"DDF FU"*"F» 



% 25 
X 27 
% 29 



41491500 T 0504*0 
41491600 T 0506»0 
4 1 4 91700 T 0508«0 



16 
17 
18 



"NO USER"'" DISK* 
"UNEXPEO"#" EOF* 
"DISK PA"»"HITY» 



31 

33 

Ji5- 



4l«9l80O T 051010 
41491900 T O512J0 
4ifl9?0n0 T — 05141^ 



19 

20 
21 



"BAD NAM"*"E*- "» % 37 

"INV REC*" SIZE* ••# X 39 
'MNVaLtO***** user*. "» X 41 



41492100 T 0516»0 
41492200 T 05ie>0 
41 49230 T 520* 



22 
23 
24 



"BAD HEA"^"QER* 
"IN USE*"' X 45 
"ADDED »"i> % 46 



'* X 43 



41492400 T 0522»0 
41492500 T 0524»0 
41 4 92 6 00 T 05 2 5»0 



26 I 

27 t 
26 
29 
30 



"*TAPE P"*"t5SlTlQN"*"ED«- 
'•AUTO-Zr»''PPeD* "' X 50 
*tCHANQtO"«" TO ♦■ "» X 52 



'* X 47 



4l«92650 T 0S26«0 
41492700 T 0529 »0 
4i493olO T osaitQ 



"MC-ED T"*"0 «• "^ X 54 
"EXTRA R"*"ECORDS*-"f X 56 
" PU P L TB">"R§» *^f , X 5 8 



41493020 T 
41493030 T 
4 1 49 30 40 T 



0533«0 
0535«0 
Q537«Q 



31 i 

32 

33 



'•SENSlTj"ii"VE* «» % 60 
"BEING flw^^LANKED*"* % 62 
'NOT LAT^^^^EST VER"#"SI0N* 



X 64 



41493050 T 
41493060 T 
4149 3 Q70 T 



0539*0 
0541*0 
054^*0 



34 

36 
36 

37" 
38 

39 
40 
41 
«2 

♦3 ; 

t4 
45 
46 

♦7 

«8 

«~ 

SO;j 

51 I 

52 

53 

M 

S6 

M 



makkeh; 

x*** end of l.bmess message table ******************************* 
X*** FND nF RESERVED WORD AND KtEbSAGE TABLES ******************** 
START I 



A****** 



41493100 T 0546*0 
41493200 T 0547*0 
4 150QOQQ T Q5 47 » n 



START I 

T8L««I2*»MtP(,«MESSAG£TABLEBUlLDER)3.CCF3*2; 

WHILE MCTBL»«TbI.-H3/MaRKeR QOj X SEARCH FOR ENq OF OPTION TBIE 



4i500l00 T 
41500200 T 
41300300 T 



0547*0 
054710 

0550*0 



ii**tbl; tbl»»tbl+i; 

FOR I«s2 STEP 1 UNTIL KESSAGETABLES IZe DO 
>HILE MCTB|^»gTBL*l] X WARKEH DO; 



41500400 T 
41500500 T 
41500600 T 



0555*0 
0557*0 
0558*0 






41S00700 T 
41500800 T 
4l ?0 9 Q , T 



0565*1 
0S68H 
571 *1 



BEGIN 



si;aE; di««e; 

A ( 60 ( S I < "S I ■t-4 ; pS » «4 CHR ) ) ; 



41501000 T 
41501100 T 
44504JOOJL 



0573*0 
0573*0 
0573*2 



y jiiiiiiiliiii 



4li0ftO,0'"f;, 






end; 

TBLl>I2j 

FOR TBLCNTt»0 STEP I UNTIL (MESSAGETABLESIZE- 1 ) DO 



41501600 T 
41501700 T 
41501800 T 



0578*2 
0578*3 
0579*2 



,<>«#i.t.-i„ k, 



jjjj. 



„ ; .UttliC' fifty i!|ft^*ll*WAHHIR 00.»' IliTBl^Iz; 



.#i.Mlli».T-- 



# • 



N 

2 
3 
4 
5 
6 
7 

a 

9 
)0 
11 
12 



DlSKWAlT(I<2*I»MESSAGETABLE.[TBUCNn,C22»26]); 
I2S=TBH=7BL+i; 



END! 



41502300 

4i!302400 
41502500 



T 0594«1 
T 05961]. 

4 ostiaio 



T1^ 



END BUltOlNG tables; 

PRQCEnURE EMTgRSYSFlLE{N)J VALUE N; REAL Nl 



41502600 
4vftQQO00 



T 059812 

illE» 0599 
JL Q O QO f Q 



WORDS 



% 
BEGIN 



START OF REl segment; disk address » 00925 

41600100 T 000010 
41600200 T 0000 to 



REAL A>J*WC'MFI0«0ISKJ 

ARRAY dddi:*); 

tARFL RFTURNtFXiTI 



41600300 T 0000*0 
41600400 T 000010 
4 l 60 0§00 T OOOQ I Q 



9 
10 

12 
13 

ui 

15 
16 

"< 

18 

19 

20 ^ 

21 

22 

23 { 

24 

26 

26 4 

27 

28 

29 \ 

30 

31 

32 { 

33 

34 

35 { 

36 

37 

38 { 

39 

40 

41 < 

42 

43 

44 i 

46 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 4 

54 

55 

56< 

J 



13 
14 
15 



16 
17 
18 
19 
20 
21 



22 
23 
24 
25 



IF Nsl then 
BFfiTN 



MFIO l« "LIBMAIN"; J 1*1; 
END EUSE 
IF N«? THFN ^^_ 



BEGIN 

hfid j« "lucntrl"; 

END ELSF . — . 



IF Ns3 THEN 
BEGIN 



MFIO »» "PRNPRT "i 



END ELSE 

GO exit; 



41600600 
41600700 
41600600 



0000? 
00001 

0Q02« 



I Q02«1 



41600900 T 0002»3 
41601000 T 000411 
4160 1 100 T — 00 4 tl 



T 0006' 

T 00071 

1 . 6 U00 T — oooai 



41601200 
41601300 
41 . 6 U0 



3 

I 

«xo- 



41601500 T OOOe'O 
41601600 T 0010»3 
41601700 T 0011 * 1 



41601800 
41601900 
4160 2 000 



0012* 
0012! 

OQia« 



28:,i 

27 • 

28 

29 



OISK ts "DISK "; 

IF i:AJ«DIRECT0RYSEARCH(MFlD*0lSK#5)) X THEN 

BEGIN = 



41602100 

*1602200 
41(102300 



T 0012* 

T 0012* 

JT flXLlSl 



30 
31" 
32 
33 



MCA INX 2] «» MCP; 

M[A INX 53 >s M[A INX 6] :s Pi^jj 

QTSkWAIT(A«[CF3,3Q.A.[FF]U 



41602400 
41602500 
4l6(:26Q0 



T 00151 
T 0018« 
JT — 00?2* 



end; 

POO 



60 return; 

I* [MCA »• SPACEcWC ts l61-t-30xj)33&lwCC8»3eil03; 



41602700 
41602800 
41 6 29 



T 0024* 
T 0027* 
J QQ27* 



34 
35 



36 

37' 



MOVECWC»A-l»A); 

stream(Date*di=a+3); 

BEGIN 



41603000 
41603100 
41603200 



0032« 
0034* 
0036« 



38 
39 



40 
41 
42 

43"' 



46 :,. 
46 
•7 
«8 



sii«LOC date; 0S»»8 OCT; 
oi«?o; os»»2 LIT"**"; 
sn»o; sn»si>5j psias chr; 



end; 

ODD[ 



^d:iit: 



03 »* P3600036000l0i; 

n »» (XCLaCK»P(RTR))iiODD[33C6«30» 163; 






41603300 
41603400 
<H 603300 



T 0036* 
T 0036» 
T 0037> 



41603600 
41603700 
41603600 



41603900 
4id04000 
41604100 



T 0038» 
T 00 38* 
T 0039» 



T 00«2» 

T 0044* 

J 0047* 



DD0[ 7} l« 4+j; 

DDDC 93 »" 1; 

DDbE103 1" PETUSERDlSK(CDDtjC83 i" 5* J )&U2 t47 1 1 3 » 1 ) ; 



41604200 
41604300 
» 1.6 044 00 



T 0049* 
T 0051* 
T OQS?* 



51;' 






4|60«S00 
«i604600 
4 1 6 04 70 



T 00311 
T 0031 I 

T o oi i t 



52 
53 



S4 

B6I 




343 »■ 22; 
353 «» 2+j*j; 

l<)i »g 6; 



41604600 
41604900 
44 6 05 000 



T 0062* 
T 00641 



liiiiiiilMiiiiiiiiiliiiBiiii^^ 

API m IF J THFN MlTy*<AX»l) DTw ? EL 



jQJ I PRIORITY 



41605100 
41605200 
41^05300 



mgm'$m 



• • 



2 

3 

4 

S 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

92 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

«3 



DDUCSn s= IF J THEN 6U ELSE. «; 
DDDC52] »= IF J THEN 200 ELi't l50; 

Dnm6M i' enQQt?Qi,?6oonoiQn 



X CORE EST 
% bTACKSlZ 



&(IF J THEN 35 ELSE IF N«2 THEN 23 Et,SE J9) C 24l 38 » lO j; 
D0D[623 «* P0024l0il00000000i 

pnnf i2?*3nKJi t^ PnQnnyynnnoyflonoii - 



416C5400 
«l60b500 
Alfi05600. 



0076«2 
0079»1 
0082^0 



<»t605700 
6 1605900 



0062(3 

ooa7«3 

00 8 9»0 



DDD[l69-30xJ3 ;= FLAGCP2740U 10000 100000 ) ; 

IF NOT J THEN 

STREAMCC»'N«2r 8 = t nDDt*? 1 1 1 i* 



«l606O00 T 

'»l606i00 T 
a i^ Qh aO O T 



0091?! 

0093«3 
009^11 



BEGIN 



CI»bCI + C> CiO UU 



41606300 
41606400 
aiftoftsoo 



0096«2 
009612 
n097tl 



4a 



"012CQNTR0LDECK 

GO L2; 

J ns;-40 I IT 



IA022BACK-UP0F DECKiBOO"; 



41606600 
41606700 
ai60ftB00 



T 0097«2 
T 0l02»2 
Jt 0i02<3 



''012PRInTERBACK-UPIA0220000000PRInTER1BOO"| 



L2» 

ENOJ 



«1606900 

« 1607000 
a 1 607100 



T 010310 
t 0108«0 

4! — mneio 



enteruserfilecmfid*disk*a-i j; 

DlSKWAlTCAt3l'WC-3l^DDD[lC] ); 

RFTU RN« . 



416072Q0 
41607300 
4 l6 Q7a Q0 



T O1O8U 

T OllOH 

Jr £LU21X 



FORGETSPACECA)/ 
EXITI 

END entersysftle; 



41607500 
41607600 
4 16 0770 



T 011213 
T 0U3»2 
J 0lt3»2 



COMMENT ARTN RETURNS ALL STORAGE FOR AN N-D IMENSIQNAL ARRAY A;x 
PR OCECUHE ARTn ( A>N?; VA L^E A ^ NJ AR R aY A[*3f InTEQER Hi^ 



42473000 
42474000 



Size* 0120 

T OOOO'O 
_I O Q Q O < 



iNORDS 



START OF REl 
begin INTEGER li% 
IF NOT STOREUY THEN SLEEPC t TOGLEJ «STQRfcMAsK ) J 



SEGMENT! DISK 

424750O0 

42476000 



ADDRESS » 00929 
T 000010 
T 0000 iO 



IF A.Cie«l5]/0 THEN A*M [ A . t 18 » 153 3 ' 
IF N>1 THEN UC ARTNCAtI3'N-l) UNTIL 

N»A iNx o; 



CI*-I + l)2A.SI2Ei 



42476i00 
42477000 

42478000 



T 0003»1 

T 0007«2 

4 0013^? 



IF A.P8IT THEN 

BEGIN I*MCN-l3.[FF3; 
FQ RG E TSPA C£ (N) 



42478200 
42478400 
4i>47e600 



T 001510 
T 0016«0 

T o q i 9M 



JtM. 



END ELSE I*N; 
IF I>5U THEN DISKrTNCI' 

antn;% 



A, SIZE); 



42478800 
42479000 
^2480000 



0019«2 
0021«1 

0024 M. 



COMMENT ASR IS 
PROCEnURE ASR; 



THE ALGOL STORAGE RETURN COMMUNIC ATEi X 

BEGIN INTEGER I«BCNTRi aRRaY AlTC*3i REAL TEMPj% 



42481000 



SiZE» 0025 WORDS 
t 0000 fO 
T 0000 to 



LABEL 



L*n; 
mother; 



Start of hel 



ARRAY DES(;[*3;% 



segment; disk 

42483000 
42464000 



ADDRESS SI 00930 
T 000010 
T 0000«0 



46 J: 

«6 

«7 

•8 

49 

50 

•Ml 

52 
53 
54 

55 

S« 



WHILE (AlT«-PRTtPlMlX#AITNOX35,P8XT'«0 OOX 
MAKEPRESEnT(CPRTCP1«IX#AITNOX33 inx 
MEMQRYCAIT INX NOT t3*Cgll3»liX 



0);% 



42485000 
42486000 
49487000 



T 0000*0 
T 000412 
f 0007 «0 



naAlT[03 + i; 

IF (BCNTR«»PRT[P1MIX#CURBLKCNTR3) 

BEfilN TERMINATECPIMIX); 



LEO THEN 



42486000 
^2488100 
434882 00 



T 0010>3 
T 001211 

T Q9HU 



end; 



TEflMlNALMESSAGE<7fl)i 



WHILE CT£MP»AIT[I»I'yn3>BLKCNTR^BCNTRK 



4,2:4 8 if 00 

42#:iit00> 

^ 2<H9Q00 



T 001912 
T to If 1 1 
T 001611 



DO BtGiN oesc«-memqrycmotheR«-temp,mom3;x 

IF TEMP,[1J23/1 THEN % CHECK FOR FAUlT 
IF TEMP. [1823^2 THEN » FILE 



Entry 



42490000 
42490i00 
^2^ . 9) Q PO , 



T 0018»3 
T 0022»1 

T ,P,023,«2 



:,|;f •, lEMft.'tJf .1 1S'3*«^v:.I-HE'H'''JEQ'I NX 

fiutemmx mmi^tn* d t c c ocsc c « j t [ as 1 23 « 2) xp 1 2) 



42492000 
«a49IOOO 

-»f49#0^i:Q;;; 



■f- ■■00t7,l'2„ 

1, ■ ..':,ig.l;a-f,l:- 



m • 






14 
IS 
16 
17 
18 
19 
20 



23 
24 

26 j 
27 



29 

10 
31 ~ 
32 
33 



34 
35 



GU TO t END ELSE* 

BEGIN FILECLOSE(COEiiC INX 5)& 



im 



FORGETSPACCCfiESC 



C18I33I153); 
THfM % SAVr MYSn F Task 



42496000 
42497000 

4aft9flQno 



0031»0 
003l«2 



42499000 
42900000 

4g*intoQn 



003611 
001? «0 

Qoiita 



IF MOTHERsTSX THEN ELSE IF X ARRAY FOR C0M5 
(CNTi«-DESCt33)«l 0RCNT1»2 ANq DESC [4 ]XP IM ix ) J 
THEN % TASK ARRAY, OF A SCHJ-PUtED OR . 



% RUNNING OFFSPRING 
BEGIN IF Hlimi THEN 
SHeETDlDDLERC0#30jDE8Ct43)J 



4250l0*O 
42501050 
42501060 



» E S 



42501070 
4250U00 

4?SQ1?QQ 



0039»3 
0042'0 
0045»2 



0045t3 
00«5»3 
4710 



IF DESCC3I82 THEN * RUNNING 
BEGIN TERMINATECDESC[4]&a6cCTF]); % 05 
HAl.Ti 



noprocesstog * 
end; 

Sl.E£PtCDESC[333/''Q); 



MUPROCESSTOG-i^ 

% WAIT rOR ns 



42501300 
425C1400 
42'»015nn 



0049 >0 
0050»0 
0052^0 



Gti TO Li; 
END ELSE GO TO IX ELSE 
I F SOrT i >0 , THFN IF ^j aR fP 1^ jX^ ?] . [5 M 3 



42501550 
42501600 
425 0l650 



0052«a 

0053t3 
no53tt 



JJJ_ 



IF MOTHEHsSFINTX THEN ELSE 
ELSE ELSE 
ARTNfOESCjTEMP.DlMENSlQNSli 



T HE M 



42501700 
42501000 
425Q1810 



0055J3 
005611 
0056»l 



42501820 
42501830 
425019QQ 



0059«2 
006111 
0062^1 



MEMQRYLM0THER3«-0;X 



Lt 



ENOJ% 



42502000 

42503000 
4?SQ4n0Q 



0064 « 2 
0066 »0 
00.66 »0 



AlTC01*i;% 

PRrtPlMIX»CUH8LKCNTR3*8CNTR'i;X 

IF I>0 THFN DOXIWIPP OUT BAD LABELS IN FAULT fELLS 



42505000 
42506000 
4g5Q6l0Q 



0066t2 

606713 

,007010 



END 



MEMORYtAlT 
ASRn 



IF AITCIJ.U»2]sl THEN 

IF MCAITCI],M0M].BLKCNTRSBCNTR THE^ 

M[ATT[I].WQM]«-0 UNTIL (I«-I*nS0; 



42506200 
42506300 
43506^00 



INX NOT l3.t2lU«-0;X 



007 IM 
0072»3 
Q076«l 



SAVE REAL PROCEDURE COREND; FORWARD; 

PROCEDURE INTERRUPT(TYPE)J VALUE TYpEj REAL TYPE; 



42107000 T 0061»2 
42508000 T 0085M 
.SI7E» n0fl6 WORDS 



START OF SAVE 



42509000 

segment; Base 

<*25 1 0000 



T 0000«0 
ADDRESS » 
T 0000 to 



00971 



# 
• 



38 
39 



BEGIN LA0EL FLAQBIT* INVALIDINDEX* EXPUNDERFLOW' DI V IOEBYZeRO; 
LABEL X Y T ; 



START OF REl 



40 
41 
42 



SWITCH SW«.FL AGS I T# INVALID INDEX* EXPUNdERFLOW* 01 V I OEBY^ERO; 
ARRAY TOP»-5C*3; 
REAL FlASI£STE'j*:3f 



segment; DISK 

42511000 

4P5U5Q0 



ADDRESS * 00933 
T 000010 
-t QSUiSliSi 



42512000 
42513000 
^2^13500 



0000 »0 
000010 

j, i . ii fff;. i . i V j ;. i .y i . p f i '. i .-i i ;. ' . i ' .W ' ■ ' 



43 



46 
46 
47 
•8 
49 
50 f 

52 



Jiiiiiiiif iiiii''il!v..; .■ ■ ■ • • ■ 



BOOLEAN SUBROUTINE OQUBLEPRECISIUn; 
BEGIN R«-MXS»PRTtPlMlX, 83 INX 03; XIRCW 
S TR EAHtR»Cf^ IN^f 0.34RC30tlQ»23>Y*CY3 3; J>QET QP CQPF 






000010 
0000 to 
000010 



42517010 T 
42517020 T 



0000 to 

oooito 



::|||i|||g|||:||||||i||if| 



'iMmm 



;^4tsiiiiiii 



00O6I3 
oooeto 



k a 5'i^>$m'W''"W§$W 



CHECKSTACKSPACt;X 
GO TO SW [TYPE 3; 



XWF 



42517100 T 
42518000 T 



F LA GBiT t 



000913 
001511 



56 1; 



iliiiii«iiii«ai 
tiiiiliiPliiMI 
iJli ii i g j iW i iW ii li 



Mi 



fla'>23oon T 



ooisti 

001911 



• • 



n 

2 
3 
4 
6 
6 
7 



IF SYLLABLE. C45t3]^0 T 
BEGIN ERRQRFIXERC16); 
A1-PRTCP1MIX.4JJ 



HEtN 

TERMXNATECPIMIX); TERM INALMe.SSAgE(5 ) fit^Oi 



RCW «- McRCWL ♦ PRT[P1MIX#8J 
IF RCW.t33Jl3 THEN X TYPE 13 

BEGIN 



INX NOT (CSYLUABLE»«?235) + 2)3;X 

intrnsc 



t2524000 T 
^252^100 T 



0021 
0023 

-0024 



42525000 T 
42525100 T 
4g*i25iin T 



0027 
0032 
00.12 



■0~^# 



l«-o; 
Y«-[n.tcFi; 

4 tFLAQ.a»g5 ^OOO0OO00Q0 Q0UH(RCW,[34«.n3}ECTc3 3J 



MAKEPRESENTCY)* 

«CRCWU3*fUAG(«CW4(M[RcW,ErF3]lNX CNFLAG( I ) ) . £ CF) ) t CTCl )* 

fiQ TO miTlATLJ _^ 



42525115 T 0033 
42525120 T 0034 
425^5130 T 0035 



42S25140 T 0037 
42525150 T 0038 
42 S2516Q T 0fl4g 



10 

11 

12 
13 

14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 

26 g 

27 a 
28 
2S 
M 

31 i 

>3 

34 

35 

36 

37" 

38 



END ELSE 

IF NOT PRTCP1M1X,ACRC>^ J,C8«1 

MAKEPRES£NTfPRTRQw[PlMlX3 IN 



03 Jf C«;«n THENX 
X A[RCWJ .C6»lQ 3)Ja t 



42525i70 T 0043 
42525500 T 0043 

A252C'nQ0 T QQ4fl 



MCRCWL3*FLA0CRCW4(MtRCW.C18ll5n INX ACRCW 3 , £ iBUS 3 ) t 33l 33 1 15 3 ) j 
60 TO INITIATED 
INVALIQINQEX* 



42527000 T 0051 
42528000 T 0056 
425^0000 T Q0S7 



FOR 1>6 STEP 5 UNTIL 11 Dti 
IF T0P,[18« l53'(MaM*[PRTCPlM 
IF (SlZF«-MCMOMJ.[e «l0])<lQ2i 



iX'i]]. [331153) Then 

THEN 



42531000 T 005 7 
425 32000 T 0058 
4?533n00 T O-Q61 



BEGIN IF MCMOM,3aatU»0 THEN 

MC{ALOC*M£MaM3,[33U53 

TF (iaTU«MfALQC»n.rFF 



MAKEPRESENT(MOM)i 

)-23,C2lU«'li 

3)/Q THEN DtSKRTN(NT1* SIZE)1 



42534000 T OO64 
42535000 T 0068 
425^5500 T 0073 



M[M0M3«-FLAG(0&M0M[18J3 

iCiF SIZE<512 T 

IF TYPE * PCFlAGTeSTLR 



3:i53 

HEN 2X5IZE ELSE 10233 C 8 « 38 s lO 3 ) ; 

^TOPfXCHynEL) THEN MAkEPHESenT C mOMX 



42536000 T 0077 
42537000 T 0079 
42537050 T 00fl3 



ELSE 

makepresentcanalysis Jj 

MnVEtSm£»ALQfr»MfMnM3>, 



forgetspacecaloc); 

if TYPE THEN GO XYT# 

GO tb iinjtiatf; 



42537060 T 0085 
42538000 T 0086 

485 39 000 T — 00B7 



42539050 T 0090 
42539060 y 0090 
42539100 T 0091 



end; 
err0rfixerc4)^ 

EXPUNipFRFl OWI 



TERMiNATECPlMix); TERM INALMESSAGE C 7 ) ; 



4253*200 T 0092 
425«0000 T 009a 
A25420Q0 T 0096 



IF OQUBLEPREClblON THEN M[b-33«.c; 

M[S-23«-0; 
IF JAHi:PlMlX.2].[3tl3 AND PRT[P1MI X* P^H . L 43 « 1 3 THEN 



42546000 T 
42547000 T 
42 5 4 /l QQ T 



0096»3 

0i00«2 



PRT£P1MIX*?513«-P(OUP»LOO) OR 6i 
GO TO INITIATE* 
DTVinERYZER QI 



42547200 T 
*2548000 T 
42550000 T 



0l05»3 
010813 
QlQQil 



to 

41 
•2 
43 



IF (P(JAR[PIMIX*23'D 
PRTtPlMIX#P5l3.C4 

BEgl N E. gRQHf IX E R(6); T£Hh 



UP)iO AND N0T(P(XCH),C3;l] AND 

4»i3)) Then 

INAT EC. PIM IX ?; TERMlN A|, M ESSA GE C l3? En D 



42550500 T 
42550600 T 
425 51Q00 T 



0l09«l 
0U1»3 
. Q 1 H«0 



ELSE 



ELSE 



IF JARCPiMIX>23 < 
PRTtPlMIX, 113*1 ELi>E 



ThEN Jf PRTtPlMiX*u3,CFF3 • THEN 
PRTCP1MIX,PRT[P1MIX»113«CFF3 3*1 



42551090 T 
42551100 T 
42551UQ T 



0ll6»3 
012112 

QUA I a 



•6 

47 

ts 



BEGIN PRTCP1MIX*951 

IF DQUBLEPRECI 

H[S-23»0; ^ 



3«-P(OUP#LQD3 OR If 
SION THEN MCS-SJ'-O; 



42551200 T 
4255U00 T 
4255UQQ T 



012712 
013012 
0134«2 



•9 
SO 

51 i 






42551500 T 
42SS2000 T 



XYTt 



'/(MiMi 



013612 

013612 

42553000 T QUrtfl 



52 
53 
54 



END interrupt; 

t SET OMIT » NOTCDCLDG AND DATACOM ) 



42554000 T 

Si 

4P599999 T 



013710 
ZEP 0138 
OOOOiO 



NOROS 



55 

56 ; 



u;Wih 



% 

m 



•fiift 



i:iil::Wliiiiiiiii«iii 



mmm 



44000000 T 
44001000 T 
4400a^00 T 



000010 

ooooto 



# • 



>T 



% 



Dt;eJ»NuMBEH OF ELECTRONIC UNITSX 
DC3]aMlGH£ST ADDRESS OF BACKUP STORAGE* 
nL43«HlGH£ST AQDRES.S.Df. DIRE CTO RY I 



44003000 T OOOO'O 
44004000 T 0000»0 
44005000 T 0000, fO 



X 

JL 



0CS3«LAST NUMBER USED FUR CONTROL OECKX 

DC63«FIRST CONTROL DECK QUEUED (LOCATION IN DIRECTORY )% 

n[73«LAST CONTROL HFCK UUEliEQ fLQCATlQM IN DIRFCtQRY^X 



44006000 T 00 00 to 
44OO70OO T 000010 

flftooaooo t 0000 to 



X 
X 
X 



Dt83=N£XT NUMBER AVAILABLE FOR PRINTER BACKUP DISK 

D[93=CORE* CONTAINS MULTIPROCESSING FACTOR 

ntlQ] THRU ti[153 SPFCIFT hHlC H OC'STA TlON ^ ARE SPQ'Ll K f ; 



XP 



44008100 
^4008200 
44008300 



T 0000 

T 0000 

J. onon 



so 

10 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2S 
26:i; 

"a 
a 

29 
30 

Sl^ 

32 I 

33; 

34 

35 

36 

37" 

38 

39 

«0 

41 

42 

43 



DC163»QUEU£ VALUES FOR SPQ STATIONS 
Otl73 SPECIFIES WHAT THE SPQeS ARE 

DflfllaTIME OF HAY . 



44OO83O5 T 000010 
44008310 T 0000»0 
fl4nOH32fl T 000010 



X 
X 

X 



DL193SVALUE OF FENCE (TIME SHARING MCP) 
DC203.[eU03»NUMBER OF LAST LOG FILE 

*[18»3Q3-NUM8ER OF ENTRIES IN LOG f TIMESHARING ) 



4 4008 330 
44008340 
44QQ6350 



T 0000 
T 0000 
J QOOO 



10 

»0 

10- 



X 
X 

I 



DC213*SCHEO«ORD (TIMESHARING) 

DC223tt3S»103«NUM8ER OF CURRENT MAINTENANCE LOG* 
.t2an03aNUMBFR OF CURRENT RFMQVTe LQfi, 



X 

% 
JL 



DC23] THRU 01263 SPECIFY WHICH SU-S k^ERE READY 
OC273 IS Rt^JERVED FDR U^E bY THE LOCAL SHE. 
nr2H3»DTSK APORFSS OF D T ^^FCTURYTOP 



44008 360 
44008380 



AT THE LAST H/L. 



*4oo84ao 
44006410 
44008499 



T 0000 
T 0000 
T 000(3 



Id 

io 



T 0000 
T 0000 

jt — asmx 



JO 

«o 

LQ- 



PROCEDURE INTFINISH(AA); 

VALUE AA'tREAl AAi FORWARO; 



START OF REl 



44008998 
SeOHENTl DISK 



T 0000 
ADDRESS 



«0 



00938 



4 4 OO8999 T 0000 « 



Save procedure MOREiNiTiALiZ£;FaHWARD; 
Save p r n c e du re initial i i f j . „™„_„ 



START QF SAVE 



44009000 

segment; Base 



T 0000 

address 



«0 



00971 



44 010Q0Q T 000010 



BEGIN 

RFAL 



START OF SAVE 



A*..B.#C.jI#-:y>:T#.W.AYiZi, 



sEQMENTi Base address » 

44O1O1OO T 0000*0 
46011000 T 0000 10 



00971 



Real ints,intss*lastl*ldate'Loc^mend; 
R£AL irp»b,irptb*irpobs#irptu»irpbuf; 
Real Ti«UAS,TLfShLMaMEN,n; 



4 4012000 T 0000 «0 
44013000 T 0000 «0 
44014000 T 0000*0 



Integer irpbts^irphirS; 

INTEGER XCt.lCK«XCL0CK; 
ARR AY DDD [* ]/Qlt* 3 ; 



44015000 
44016000 
44017000 T 



T 0000 
T 0000 

Oium 



to 

»0 
UL 



ARRAY XsWC*3; 

label UNITL*TINUL^MISSL; 

L AREI, A VL P » I Nl. P ^ LT * LE » L F > L N * LP I L a; 



44018000 T OOOO'O 
44019000 T 0000*0 
44020000 T 0000*0 



$ SET OMIT = NOT ShAREOISK 

SUBROUTINE XXXXXXi BEGIN A* X-X-X-X-X-X-X-X-X-X-X-X-X-X»x; ENOiX 

SiJBRptlTTMg MAKrSAVFJ 



44024990 J 0000*0 
44017000 T 0000 to 
44037200 T 0018*3 



BEGIN DlSKwAIT(-C'Mtn,[8»lO],MCl3. [ FF 3 + MCPBASE ) ; 

Mn3.[cF3«-c; c«-c+Mcn,t8«io3+i; 
fn d; 



440 37 300 
44037400 

44037500 



00 1 3 
00 1 7 
0023*0 



*0 
»3 



45 

46 

47 

W 

49^ 

SO 



SUBROUTINE FIX;» 

BEfilN FCCMCg}3&2C6U8tlO]^T#«'}jX 



44079000 T 0023*1 
44080t300 T 0024*0 
44061000 T 00?ft»l 



enq;x 
$ set omit « notcdcspo and datacqm ) 

1^ C P ai\ S E,l» M C 0,3, til e.f 1037 ,„ 



44082000 
4408204 9 



T 0027 
T 0027 



*2 
*3 



440,63010 T O0?7*3 



51 1 
S2 

S4 

55,J 
56'' 

57 ;;■ 






::,«i:Ot*|ii.':: 
44083200 
44Q850Q0 









PEUl0l«£Ul0ls[Mt(»i333 3 420[8»38* 103 ; 

l00U£SL0TS«»3i; 
?Q Q U EAVA IL *»3 U 



44085l00 
44085)500 



T 0037 
T 0040 



*2 
«1 



440856Q0 T — 00,41*0 



I ill ALSO 40200100 



ilIMiiiiWiliMi^iaMiiiiiiii^ 

ir (H«{USERDrSKBQTTQM*SOV DIV SYSmaXj > 247 THfN lKi34Ti 



4408«l00 
44086200 
44086300 



T OOftl 
T 00it(4 

T oats 



»3 
»2 



• • 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
IS 



16 
17 

IS 
19 
20 
21 
22 



23 

24 
2S 
» 
27 

a" 

29 
30 



31 J: 

32 

33 

34 

3S 

36 

37" 

38 

39 

40 



I 41 
42 
♦3' 
44 
45 
46 
47 
18 
49 
50 
61 ' 
52 

M 

5S 

56 



^i. 



espdiskbqttomj3:)0+csysnox1)> x bcittdm 
espdisktop*e:spdi:jkhottqm+i-8Ji *tdp of 



Of tSPDIbK 

espdisk 



WITCHINGH0UR»«518«000; 
W08D0FEASE«a?i525252325252525J 



SOFT! «■ 0; 
SET QMiT a NUT STATISTICS 
STREAM(S«-1d«D<-10Q);X 



BEGIN* 

SI 
QX 



* Si OS ♦ 11 WDS; Q «- ui; 

» s; inns *■ rt Ln "iQ:^(onQQ" 



-LL 



i9(Si ♦ Si+aj; s *■ Si; 

ui*d; us*2 ^q^}% 

un-Si r)!i«-i<s LiT"oa?(ooon'*!t 



end;* 

^^START«aP(,,lNITlALlZE*LQD),CCF]; 
AVAH »t>7777ftfl 



AVLP 'M [ AVAIL l«-e7 7 77700000 + AVAIL;* 

INLPSIF JtCQI^ENL THENI 
_ — : HEGINI 



end;* 

IF Js2 THEN GO TO INLP;* 
MfAVAlLf 1]«-AVAIL^% 



MEMASK««MEMASK QR TWOCAVAIL DIV 4096); 

AVAIL*AVAIL-4096;X 

G O TO A VLP * 



MtMEND*HVAlL"l3«"<J&U2»a7:in 

4MSTARTCCTFJ;* 
Mcn]«.MSTART&MENorCTFUl[2»a7t j] ;% 



mcmstart3«-lastl<-mend;x 
Lcc^-MENo-^ogt;* 

IT»IF LOC. >4095 then* 



BEGIN* 

MCL0C3*(!>77777;X 
LEMF J»C0R£ND JHLN% 



BtGINX 

hLMASKjBMEMASK OR Tk^OCLOC DIV 4096)/ 
M[LQC-H.ULASTL&MSTAKTrrTF];> 



LF» 



MrLASTLJ«-MtLASTLH(LOC + nCCTFj;x 
MtMSTART]«-LASTL*LOC + i;X 
WCL0C*L0C-^40963«-(T» LASTL )tMSTARTCCTF 3» 



lsjif 



JJsCORENO 
BEGIN 



THEN 



&U2»47in;x 



hemaskmmemask 

GO TO Lfi 



OR TWO(LOC OIV 4096); 



IF Ja2 THEN GO TO LS;X 
MtLASTL]«-MCLASTL3 4LOCCCTF3;3! 
MCMSTARj3»LASTL»L0C;it 



end;x 

LnC«-MtMEND3,CFF]iX 

LPUF mcloc3.[2»u Then 



loc»loc"4096; go tq lt» 



B£GIn:( 



mammmmmmsmmmmmm:mm. 



44067000 
44087100 
4 4 88 000 



44O9O5OO 
44O9IOOO 
4 4092000 



44092100 
44092490 
44093000 



0049«1 
0051 JO 
52 i 3 



005312 
0054* 1 
OOSSIQ 



44094000 
4409S006 
44096000 



005610 
0056»3 
0056 > 3 



44097000 
44096000 

44099000. 



005713 
005713 



44100000 

44101000 

flatopQOo 



006012 
0061?? 

0Q 6 a«0 



44103000 

44104000 
44 10 5 000 



0064«2 
006413 
00 6 6»1 



44106000 
44107000 
4<4 l0 e 00 Q 



006710 
069 10 

0070 »-O- 



44109000 
44U0000 
ft 4 lll0 00 



0070»2 
0072»3 
007 t| »0 



44112000 
44113000 
4411^000 



44115000 
44U6000 
441 17000 



0074«2 
0081 «0 
0082>1 



0084> 1 

0086*2 
0066 Ij 



44U8000 
44119000 
4Al30n0n 



0090J2 
0092«2 
Q9T» 3 



44121000 

44122000 
44l?30Q,0... 



0094*2 
0095*0 
0096*2 



44124000 
44125000 
44126000 



0097*2 
0098*0 
Q]Q0»1 



44127000 
44128000 
44126100 



010213 
0106*0 
010812 



44126200 
44126300 
44138400 



0111*1 
0113*0 
01 14*0 



44129000 
44I3O0OO 
44131Q0Q 



44132000 
44U30OO 
44134000 



0U4»2 
0116*3 
122*0 



0122*0 
012311 
012<S»0 



44135000 
44136000 
44137000 



0128*0 
012610 
0129*3 



0131*2 
0133*0 
0135*1 



44138000 
4413»000 



.1- 

m 



0137J1 

oi n!i 



n 
2 

3 

4 

6 
7 
8 
9 



14 1 
15 



16 

17 I 

18 

19 

20 ' 

21 

22 

23 ' 

24 

26 

26 I 

27 

26 

29 i 

3C 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 4 

39 

40 



42 

43 



46 
46 



47 

46 

49 

50l 

51 

52 

53' 

54 

55 

5<l 

57 



m 



>r 



12 
13 
14 
15 
16 
17 
18 



19 
20 



21 



24 



26 



» 
29 

30 



32 
33 



34 
3S 



36 

37" 



40 
41 
42 
43 "^ 



«4 
45 



47 
«8 



•9 

50 



sa 

54'' 

55!: 



GO TO ln;x 
stqredy«-true;x 

i SFT OMIT ' JSnTCDKy) 



STREAMcS*100#0*ia);X 

ST » s; ns » ri 



MQ^ i 



19(01 •■ Dl-^6U OS ♦ 2 WDS; 

end;* 
SPArF:STAnK^gM^^Np-■)2fl; 



TAR»«tMCMEND-l30n<t2t8»38»lO]; 

INTSIbGETSPaCE<PC,.cORENO*LDD).CCF3-P<..INiTIaLIZE'IODJ, 

[QF} M l»li*2 -i 



INTSS: = GETSPACEC200M2»1U2; 

$ SET OMIT s NOT(AUXMEM) 
— ^ . T»-fMlXHAX>Uxi? 



♦ MiXMAXxNDX 

♦ jMmumax 



XPRT THRU USERCnpE 



$ SET OMIT s 
i 5FT OMIT g 



NOT(AUXMEM) 
+ SLAT£i>l2E 
NnTfWQHKfiET) 



% NFO 
% BCD 

% Channel > 



CHANin ARRAY 



% slate 



$SeT OMIT'SHAREDISK 

+ 65 
tSFT OMTyNQT HMIT 



♦ WESSAGETAeiESlZl 
+ 16 

♦ C6xl2? - — ___ 



% prntable 
m/n auEuFs 



XTINU 



$SET 0«IT«NOT DFX 

■■•./"\ ♦■ PUNTSl.Ze 



+ SPACtiJTACKSlZE 

+ 20 



XPl^NTER 
It T STACK 



XMAINTBUFFER 
it NFQrp] MUST 



staht iN 



+ 2*f»SEU00MAxi ♦ 9 
*3xtPS£UDQHAXT41 1 



S SET OMIT » NOT(OCLOG AND DATACCM ) 

$ SET OMiT » NQTCDATACOM ) 

S SET OMIT g IMQT(S7ATISTIC33 



X SECOND MEM UNk 
X CiDROWrUNITCOOE 
1 T/0 A^SGMMMT TrLS 



t SET OMIT « NOTCBREAKOUT ) 

S SET OMIT » NOTtOEBuaOlNG OR DUMP) 

S SET OMTT » Nt^TfQCSPO AND DATACOM i 



$ 

S 



SET 
SET 



OMIT 
OMIT 



$ 
$ 
$ 



SET 
SET 
111 



OMiT 
OMIT 
OMIT 



NOTCDtBUGGiNG) 
NOT(PaCKETS) 
*CW««(ESPDISKTQP-ESpDISkBQTTDM*46) niV 48) % esptab 

notcswareoisk) 
nqTcSaver£:sults) 

NQTfNEWLQGGlNG) ____^^^___^ 



SET 

SET 



OMIT s 
OMIT a 



NaT(DATACOM ) 

nqtcdebugging) 
* p(.ulay*lud).ebiio]»i; 

mm'iiM^mMMm^i. 0*0) ♦•ifx ■•:• 



C«-J + i; J«-J %C IS USED IN makesave 
$ set OMIT a NOTCDATaCQM ) 
$ SET OMTT s NQTfOEBUGRlNr,^ 






^t$m. 



4auiooo 

44142000 
44142999 



44144000 
44145000 
fl4l4fiOflO 



0142«0 
014212 

o i <tau 



44147000 

44148000 
44l4fll,n0 



0j4«ll 
01451 1 
01 451 1 



44148200 
44149000 
44150000 



0145«3 

0146(3 
ni47»0 



44150005 
44150009 
4 415100Q 



0148M 
0l5l«0 
0l5a»3 



44151010 
4 4 15 1020 
44151010 



0l55«l 
0i57»2 
0157 (a 



0l58»2 
015911 
01 6n 1 



44151034 
44151050 
4415 1 051 



44151055 
44151060 

4 4 IS 1068 



OI60J2 
0l60»2 
O161 » . 



44151064 

44151066 
4 4151 06 B 



0161 »d 
016112 

1 6 a to 



44151074 
44151080 
4<tt%V0Ha 



Ol63«0 
O163JO 
016 3 8 2 



4415108 3 
44151084 

44151085 



016312 
0l63«2 
016410 



44151090 
44 I SI 09a 
44 1510 94 



0164* 2 
0l65»0 
Ql65»2 



016610 
166 to 



44151099 
44151199 
44151219 



44151299 
44151399 
44 15U »9 



0l6aJ3 
0l68«3 
QI66I3 



44151599 
44151619 
441 5 1700 



O168I3 
016BI3 



44151799 
44151820 
441SlAfl9 



016813 
0l68»3 
01 68«3 . 



017112 
017112 
017112 



44151900 
44151920 
44151950 



44152000 
44153000 
44154000 



017112 
0171J2 
9171 »? 



017410 
017611 
1 77 » 3 



44154010 
44154Q20 
44154040 



44154070 
44154080 
44 1 941 Q0 



0l80»l 
0181*2 
l ft l <2 



018112 
0l84t0 
Qlfi5H 



T< 



12 

13 



16 
17 1 
18 



23 I 



27 
26 
29 ( 
30 



34 
35 ( 
36 
37 



44 I 

45 



471 

48 

49 



52 
53 ( 



55 
56 \ 

5? 



>1 



r«-P{,i\Fa); fix; 

I *■ MlXMAX+i;X 

r f PCtPRT); Fixjai 



44154200 T Ol86«2 



44155000 
4n5 6 0Q 



oiaa«o 

01 8 911 



' T ♦ p<tiNTAeLe); fix;% 

2 $ SET OMIT «s NaT(AyXMEM) 

^ '■■:'■■"■"'' '' . T * P(tJAR); FIX?'* 


44156100 T 019110 

44156199 T 0l93«0 ' 

-4<'t'l57'0'0Q-'T" -^Ji'^'if-O "•'• ^ 


* T4-PC.PKYQR); fix; 
^ T>P(, SHEET); fix; 

6 T ♦ P< TPiSnCTlMF )'f Fix?* 


44157100 T 0195»0 

44157200 T 019710 ' 

44156000 T 0199^0 * 


T - P(»iOTIME); Fix;x 

" T «• PCtOAuoo; Fix; 

^ ■■:•./:-. ■•■■••■ Tl«PC tTAR); Fi^; 


44159000 T 0201 »0 ' 
44160000 T 0203*0 " 
44160050 T 0S05*0 ' 


'" $ SET QMiT s IMQTCSTATISTICS) 
" t SET OMiT s iVUTcPaCKETS) 
'2 1 3PT HMIT = (MnT(PRLAKnUT) 


44160099 T 0207 »0 '" 
44160399 T 0207^0 " 
441609«9 T 0207 '0 " 


'3 t * p(,RCPi.Y); Fix;x 
'* t «> P(tF$); fix; 


44162000 T Oi07«0 " 
44462050 T 020910 '* 
44tfi?l00 T 0?t 1*0 '^ 


'« S SET QMiT » NOTCDaTACOM ) 

" $ SET QMIT s NOTCDCLOG AND DATACOM ) 

'« S SFT QMtT s iMnT(NFMLOr,G|Nr,^ 


44162109 T 0213«0 '* 
44162119 T 0213 10 " 


'* I ♦ J08NU>iAx; T ♦ PC.6ED); Fix;x 

'" $ SET OMJT * N0T(W0RK3ETJ 

2' ;■;/., 1*5; 


44163000 T 02U«0 '" 

44163010 T 021610 '" 
44i|A4noo T OpiAiri ^i 


" T «• PC, CHANNEL); FIX; 
" T «■ P(tCHANIO); FIX; 
M & SFT OMIT « NQTfAijXMEM OR MONITDR) 


44164010 T Oai6»3 " 
44164020 T 0219»0 "=■ 
44164099 T 022l'0 ^* 


» I «• PSEUOOMAXi; T* PC.CIOROW); FIX; 

"1 S SET OMIT « NOTCPACKETS) 

"' « SFT UMtT c NaTfnFBUfiftING Op nUMP > 


44164500 T 022l»0 '= 
44164599 T 022410 '' 
441A4Q90 T 0224 « ft ^' 


" $ SET OMIT » NOTCDEBUGGINGJ 

» $ SET OMiT s NOTCOCSPO ANQ DATACOM ) 

» I «■ MESSAGETABLESUt; T *■ P( . MESSAGETABLE ); FiX; 


44165099 T 0224J0 '' 
44165599 T 0224»0 " 
44165700 T 0224»0 3° 


"1 ij«slatesiZe; ti« P(,suate); fix;x 
» t * pc.prntable); Fix;x 


44166000 T 0227«0 ^' 
44166200 T 0230»0 ^ 
44lA7n0a T 0?30M " 


« $set omitsnot dfx 
» $set qmit^sharedisk 

» IJS65; 


44167200 T 0233«0 34 
44167500 T 0233*0 ="= 
4fllA7AQn T OpilJn 36 


" sset omitsnot omit 

" T»ap(,Ti;NU);FlX; 

^:<:::v,/^^/-:: l»»32; 


44167700 T 0233»3 '' 
44166000 T 0233*3 '^ 
44166100 T 0236 »0 ^ 


« Tt=P(.UNlT);FlX; 

*' T «■ P(.FINALQUE); Flx;X 

« T «■ P(.LOCATQUt); f IX;X 


44168200 T 0236«3 *" 
44169000 T 0239*0 "' 
44170000 T 0241*0 « 


•5 /-;.;„.; i„,;:;,<,..:.v,,...v .--y:r':m:'y^mm^-^^^^^^^^^^^^ 


44171000 T 0243*0 « 
44171099 T 0245*0 "" 
44172000 T 024510 « 


•« T <• P(.wAiTQut); Fix;x 

" SPACEST ACK'sj; J»* J+SpACESt ACKS IZe; 
" $ SET DMTT s NDT(SHAREplSK) 


44173000 T 0247*0 « 
44173010 T 0249*0 *y 
44173099 T P251«o -« 


"m';*!??.: ■.,•..■ ■■:^^^./^;•■::^:.:..:;:;;;::lf»^iiiilWili:^^ 




« T «■ P(.LABELTABtE); Fix;* 
" T <• P(,MUL.TITABLE); FlX;X 
■>* . T ♦ P(.RDCTABLE); FIX;X 


44175000 T 0255*2 " 
44176000 T 0257*0 " 
44^77000 T 0259*0 ^ 







# • 



n 

2 
3 
4 
5 
6 
•/ 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 ' 
32 
33 
M 
35 
36 
37' 



11*48/ t:'=P( .iSTACK); fix; 
i:=20> r :=P( .KAiNTBUFFER); Fix; 



4^179000 T 
44179050 T 
44179100 T 



026aJ0 
0267S0 

o;;7n{o 



$ SET OMIT « 



ST^CKUSE «• TRUEi* 

NOT DEBUGGING 

STRCAM(Al»CPUryTrRf3Mn 



44180000 T 
44180099 t 
44161000 T 



0273*0 
0274 I 3 

027413 



bEGIN DS: = U LIT'MNVALIQ LINK*"; Dl! = (Dl + 3; 
USJ = 16 LIT'IINVALID ADDR£S5<-"; 

ui?; = ifi i.,it"^uaT£ avfcRFiQy<»"i ^ 



% 3 

% 5 

-X Z- 



44181100 T 
44181200 T 
4 /1 18 1 300 T 



0275 » 3 

02 78 SO 
2B0>1 



$ SET Omit s NOT SH 
_ — . _ — ENO; 



DSf»13 l.n"BED OVERFiOW*"; DlM*0H3; 

AR£D'I:SK'V..Vv 



44181400 X 
44181450 T 



0282 i2 

0284*3 
4 / i l82l00 T 038 41 3 



hALTStT: = i; 
P5EUDCCUPY *■ 0; 
, „ .. JPgNUiM «- -2 ;% 



44182200 T 
44186005 T 
4alR70QO T 



0285»0 
028653 
0287' 



$ SET OMIT 



PRYORt 

s NQTCDA 

Nil Mrs s 



0] «. -1; 
TACOM AND DC5PQ 
is NUMATNTWESS 



«« -ion; 



4418 7200 T 
44487299 T 

44188000 T 



02S8ia 
029010 
029010 



LOGhOLDk.h:5LOGEN7Rr JSMOELrA:=MLOG}=MAlNTLOGARRAy :sNxOliK; = 0> 
MRClw« = 10U; 

K£Y60AKDC0^j^ i Tt~ ■ R; = il ^ i UXP^ KE,Yl,N,„f RQM RcNMnG. 



^^l8820U T 
44I863OO T 
4 4 ie8 50(J T 



029I :2 

02^1 » 3 
0?95t? 



$ SET OMjT 



9 NOT DEBUGGING 

j^C&PAC£STACK3:«WORaOF£ASl:; 
M0VE(SPAc£STA(:KSiZ£-l^IS«SPArESTAcK.CrF3M>H?; 



44188 
44189 

44 i e9 



999 T 

500 T 

5 50 t\ 



0296* 1 
0296*1 
0g97t^ 



;^GV£(4 

,< G V f: ( '.^ 
i\iTii=c- 



tiM^ISTrtCK.tCF J); 

do* I * e 1 c ) ; 

> vaV£C i4,if leci-iibi ); 



!^ rJl = felcO 



4 4 1 1! S) 
44169 
441H9 



6 00 T 

8 c r 



0301:1 

0303! 2 
Q-^05'0 



$ SET own 



NOT SH 

idmaSk 

UN IT CO 



AH 



:it 



EOISK'/'' • 

f 2ooooooooo;» 

ggOaOOOO 7 77 777 77 7 77 



441R9 
44191 



995 T 
COO T 
00! ^ T 



0307tl 
0307J 1 
QjOfi^O 



MOVFClb* 
MQVE(16, 

$SeT Q Mi T-SH A'^EDlSK 



UNIT INX 0'P(DUP) + n; 
CUNlTLlfUNiT INX l6)i 



44191 
^4l9l 

44 191 



UlU T 
015 T 
20 T 



0309s 1 
0312JO 
3 1 4 M 



M0VE(65,P(CTINULJ)*TINU INX 0); 
$SET 0MIT»N0T OMiT 
tSET Q H TTsN ai O F X 



44191 
44191 
4 4191 



025 ;T 
030 f 
125 T 



0314«1 
0il6l2 
31618 



UNITLsss 



GO TO missl; 

^0600007777777777*»DRA = 16 



44191 
44191 
44191 



145 T 
150 T 
155 T 



0316S2 
0319S0 
Q319»0 



*0600007777777777#XORB « l7 
91000007777777777*XDKA « 18 
»lOQ0007777777777#*DKFi = 19 



44191 
44191 
44191 



160 T 
165 T 

iTQ T 



0320SO 
0321 SO 
0322^0 



40 

41 
42 

♦s" 

«4 
«S 
46 
47 
«8 
4S 
50 
51 
52 
53 
54 
55 
56 



(»O2OO0O7777777777#XLPA = 20 
?0200007777777777*XLPb » 21 
^n0O0O7777777777 #» CP A " 2 2 



44191 
44191 

44191 



175 T 
I8O T 
lil5L_4i. 



0323S0 
O324S0 
,0 325»n 



P0000007777777777#»CRa * 23 
?0000007777777777#»CR8 « 24 
»1 20 0O777rry7777f»SPQ m 25 



44191 
44191 
44191 



190 T 

195 T 
2QQ T 



0326*0 
0327*0 
Q32flSn 



6»200O0O7777777777,»PPa • 26 
P22000O7777777777*XPftA « 27 
gg200007777777777»itPR^ b 28 



44191 
44191 



205 T 

210 T 

1.5 ,T 



0329 5 
3 30 S 
Q.i3l«0 



?iiiiliit,7:t;7*^-7f ^fil*F^Pt' ,. .■« ■■■:29:' 
^^■i|iiilit:7if it**'^ :7v^*o® a--* -m- . 



44191 



230 T 



03 32 SO 



TlNULsi » 



020010040446321^ 
0(»0020040446 3?2^ 



COMMENT 
rOMMpNT 



mta; 
mtr;x 



44191 
44191 

44191 



isaz 



235 T 

240 T 

4 5 T 



33510 
033510 
Q33fiS0 



$ 120€400«0446323» 
f ie011OO4O<ntt6324;r 
» 2.a O l2QOAfl.a 4 <!>ag.5» 



COMMCNt MTCil 
CO«M£HJT MT0;X 



44191 
44191 
44191 



250 T 
255 T 

260 t 



0337*0 
033610 
033910 



2 

3 



? 260140040446326* 
I? 320210040446:330* 



9 460310040446 34 3* 
# 5gQ3200ae44A344* 



COMMENT MTF;X 
COMMENT MTH;X 
COMMENT MTj;X 



COMMENT MTKJX 
COMMENT HlliX 
CnMMFNT HTHn 



4419126b 
441912^0 
4/ |l 9 1 a7 . 5 



0340»0 
3 4110 



44191280 T 
44191285 T 
4 4191 290 T 



034310 
344 10 
ai 45 »t ? 



4 

& 

6 

7 

8 

9 

10 

11 

t2 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

ZS 

26 

27 

28 

29 

» 

Jl| 

J2| 

33 

34 

35 

36 

37 ~ 

38 

39 

4C 

41 

42 

43" 

44 

«S 

46 



» 560340040440345* COMMENT MTNiX 
I? 620410040440347* COMMENT MTP** 
'!' 66042 Q Q4Q44ft .lf?1.y CO MMENT MTH^a; 



44191295 T 
44191300 T 
4419130^ T 



0j46»0 
0347»0 
Q34fl»n 



e> 720440040446362* COMMENT mTS;X 
9 760310040^46363* COMMENT MTT;» 
» 100520Q40?4S1?1* CQMMrNT nRAl» 



44191310 T 

44191315 T 
4fl19f^gQ T 



034910 
0350»0 



» 200540040245122* COMMENT QHBiX 
C- 1«0610040244221' COMMENT O^A;* 
C" , 30O6 ,;^O 04OP44?? ?i COMMENT QKHiX 



44191325 T 
44191330 T 
44191335 T 



0352«0 

0353 «0 

Q354«n 



e 540640000434721* COMMfNT LPAiX 
9 6407i0000434722* COMMENT LPB** 
» 240720000234721* COMMENT CPA*X 



44*91340 T 
441913'»5 T 
44191^50 T 



0|55l0 
035610 
35710 



e» 240740040235121* COMMENT CHAi% 
e 341010040235122' COMMENT CHB** 
g 74l02000Q6i>4746* COMMENT SPaj% 



44191355 T 
44191360 T 
44l 9 r^6b T 



358«0 
359«0 
0:^60 »n 



P 4410400004/4721* COMMENT PPA*X 
^ 441110000475121* COMMENT PRA** 
ji 5Q112Q0QQ47'S^3?« ^.nMMF^T PRRtX 



?• 501140000474722* CCMMeinT PPB^* 
^ 401210000242321* COMMENT OCA** 
<^ Q0 l^2 O0QO7 l31 47* C OMM E NT ZlP^ife 



» 001240000232421* COMMENT CUAi* 
*» 001310000232422* COMMENT COB** 
^ Q,Q132Q0QQ232423* COMMENT COCJ^ 



? 001340000232424* COMMENT COD* 
if' 001410000232425* COMMENT CDE* 
^ 00 1 4200 002 3 2426 , C f i MMFNT CQF* 



44191370 T 
44191375 T 
4419 136 T 



0361»0 
036210 
036110 



44191385 T 
44191390 J 
4419139') T 



0364«0 
0365^0 
366'0- 



44191400 T 
44191405 T 
4it 191410 T 



0367»0 
368«0 



44191/415 T 
44191420 T 
^41914«;5 T 



0370«0 
037l«0 



30 
31 

32 ' 
33 
34 
35 < 
36 
~37 
38 ' 
39 
40 
41 < 
42 
43 
44 < 
45 
46 
47 < 
48 
49 
50 < 
51 
52 
53 < 
54 
55 
56< 

:.5 



? 001440000232427* COMMENT CDQ* 
P 001510000232430* COMMENT COH; 
t» 00l520000g3?441* CQMMrNT f.DJi 



44191430 T 
44191435 T 
4al 91440 T 



0373*0 
037 410 
017 5* 



001540000^32442* CQMMF.NT 
001610000232443* COMMENT 
00162000U?3?444, COMM EN T 



CDK* 

cdl; 

-CJltLL 



44191445 J 
44191<450 T 
44 19U55 T 



0376'0 
J 77 SO 
03'^fl'Q 



& 001640000232445* COMMENT CON* 
&« 001710000232447* COMMENT COPi 
g 001720000^3^450* COMMENT COOJ 



44191460 T 
44191465 T 
44 31 91 470 T 



0379*0 
Q 380 10 
3 8 1*0 



!* 00l740000jiJ245l* COMMENT COR* 
P 002C10000232462* COMMENT COS* 
^ „Q,Q 20 20,00,0 23.246.3*. CQMMe NT QQI } 



44191475 T 
44 1914 80 T 
44191485 T 



0382*0 
0383*0 
3 e4« . Q 



9 0020400002^2464* COMMENT 
* 002110000232465* COMMENT 
g QQa^2QQ0Qi>3?466. P QMMr^T 



cou; 
cov; 

eOwi 



44191490 T 
44191495 T 
441915QQ T 



385*0 
0386*0 
Q3 87<0 



47 
•8 
19 
50 
51 
52 
53 
M 
55 
56 



(? 002140000232467* 
P 00 2210000232470, 

? ^.0.0i2..2pQ.09.g 3,2,4.7.11... 



COMMENT 
COMMENT 



CDX* 

COY; 
QQli 



44191505 T 
44191510 T 
44191515 T 



0388*0 
389»0 

039n«n 



.^f ;.3iiiiiiilliiiill#: T'smmmf^ 

If* 



C02; 



44191520 T 
44191325 T 
»4 t91S30 T 



0391*0 
0392t0 
0393*0 



? 002340000232405* COMMENT CPS; 
P 002410000232406* COMMENT C06; 
«^ 0,02420000232407* C0, MME N T,„C ft 7/ 



44191535 T 
44191540 T 
441915^ . 5 T 



0394»0 
039510 



Mimm 




212410* 

iiililliifi 



COMMENT 



1: 



ij^M^ 



■m:..:ii^m 



44l9t5W.:.:T.-.' 

liiitiSiiSf: 



vi'iiiip 



rf 

2 
3 
4 
5 
6 
7 



MISSLI 



«* 0000000004^6367 COMMENT MTX# ALL SCHATQH TAPES; 
FQH I » i ST^P 1 gNTIj, MIXMAX DQS? 



44191590 
4A191595 

4ai92noo 



0399 

0400 
OrtOQ 



«0 
»0 
10- 



» SET OMIT « NOT 

■ f ai 



oatacom 

PHOCTlHEtll * 10 
H«0 STEP 1 UNTIL 



TtMECn * 9200$777777777777n 

31 00 - 



44192490 
441930O0 
4/H03?00 



O4OI 
O4OI 
040 5 



«0 

to 

12- 



riEGIN iDQUECUtsI-li 

riNucn, ti8si2]» 

£ND/ 



so; 



44l93a00 
44193600 

4419 3800 



T 040a 
T 0^09 

J — Oioa 



«o 

«3 
i_L. 



FOR U'O STEP 1 UNTIL 

LABELTABLEtlJ * 
LABELTABLEC253 * OJX 



PSEUDOMAXT DO 
P114;X 



44I94QOO 
44195000 
44lo6nQQ 



T 0414 
T 0416 
T 041 9 



12 

to 



10 
11 
12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43" 



$ SET OMIT « 



NOT DEBUGGING 
F0« I * STEP I UNTi 
UNlTCOPECn »* ■ 



L PSEUDOMAX + 9 00 
0; UNITcODEt7] Is 0; 



44196999 
44201110 
44 2Q11 2P 



T 0420 

T 0420 

-I 0425 



13 
«3 

10. 



% FIND INITIAL VALUE FOR 

eO«Cl»P(,.COREND#LOD).CCF]-P(,,iNlT 

I «- MCMrAVAlL33i 



CORE 
IALIZE*LQD),ICF3; 



rtHlLE I.CFF] /( ^77777 DO 

BEGIN CORE ♦• CORE * ItCFFJ; I > MtlJ ENO; 
CfjRF *■ CORE lilV 64 J _„_,^ ^-^ 



4420 laoo 

44201300 
4420UQQ 



T 0428 
T 0428 
T 0431 



tl 
tl 



44201500 
44201600 
4420?0Q0 



T O433 

T 0435 

Jf 0440 



«1 
«0 



$ SET 

» s,eT 



OMiT 
OMIT 



« notcoaTacom ) 
k not(oebugging) 



I»P (.OL AY )i M AKEbAV£i 



44102004 
448O21OS 
44202119 



T 0441 
T 0441 
T 044 



44itl 



»1 

tl 



5hlm*spaceciq); 

00D«*[M[AI»SPACEC483)33&483t8»38»l0]; 

l)lSKWAn("Af"3Q>n)i 



44202120 
442O25OO 
.44202600 



T 0443 
T O445 
JT 04il9. 



to 

'1 
15- 



DISKWAITC31-A*-30*MC 
M0VE(2»A+1O+5xSYSnO» A 



PNAMESEG); 

+5l*2xStSN0); 

NAMC&£6)i 



44202700 
44802600 
44202900 



T 0451 
T O454I 
Jf Q4!>S»3 



»1 

to 



% S E T OM iT 



streamCml'^marklevel' 

/MEMASK*NS=A+lOt 
NQ TC SHA RF D I SK^ 



PLt«MC33»*PATCHLEVEL'LL**LOCALEVEL 
SxSYSNO 



4 4 20 3000 
44203150 
4420 3179 



T 0461 
T 0463 



«0 

tl 



tT*NTl*GETS 
BEGIN DS*5 LIT "-H/L 
■t Sft nM|T a Mf^TfSHARfpiSKl 



PACE<lO«0#0}+2}; 

«; 



44203200 
44a04o60 
4 4 2040 9 9 



T 0464 

T 046 7 

jt Q466 



tl 
t3 
15- 



DS*-6 LIT" WJTH 
DSULlT"/";Si:=Sl + i;u 

s . imgc M L/ TF sc geq 



";si*n;si«-si + i;ds*7 chR' 
»s7 chr;d 
" " thfn ; 



S»s7 CHR;DS»s6 LIT" MARK "; 



44204200 
44204500 
44204600 



T O468 

T 0470 

Jt CUlZ 



«3 
»2 
1 



2X2 



8(IF TOGGLE THEN IF S 

ELSE DSl*CHK); OSis 

SpaLO C P Lf IF SC a £Q 



Cs^O" THEN SlJstSl + l ELSE DStstCHH 

LIT"."; 

" « THFNi 



44204650 
44104700 
44804750 



T Ott73 

t 0475 



tl 

to 

U- 



6(IF TOGGLE THEN IF S 

ELSE DSl«CHRi; 0S»= 

SitsLDC Li; I F SO g fq 



Ca"0" THEN SlJsSl+l ELSE DSIsChH 
2CHR; 

*♦ " th e n ; L_ 



44204800 
44204850 
44205000 



0477 
0478 
0479 



«0 
«3 
13- 



45 



8{IF TOGGLE THEN 
ELSE OSl«CHR}; 
DSf 17i.1T** MOOS 



IF Sc^^O" THEN Slt»Si4l ELSE OSH»ChR 



'***; 



44205050 T 0480t2 
44205100 T 0482ti 
4 4 2 052 2 T 4 8 3 10 



«6 
47 

ts 

•9 
50 
51 
52 

53 
54 

55:1 



si««!Loc memask; susS 

8(DII«DI-2JiF SB THEN 



1+6; Skip 4 sb; Dlt«oi-2; 
DSt-LlT"?" ELSE DSl«»HT"R'';SKlP SB); 



44205300 
44205600 
44a06),00 



T 0485 

T 0486 

-J 0489 



t2 
t2 






441Q6200 

44206300 



T 0489 
T 0491 
T 04 #i 



12 

to 

13. 



END OF initialize; 

S AVt PRQC EQURE ; MO REINi T l AL IiiE; 



442O64OO T 0492*1 

SIZE* 0494 

44P06450 T OQOOtO 



WORDS 






START iSF SAVE 



SMI: 



SEGMENT! BaSC 
4420J»SOO 
44806150 



ADDRESS 
T 0000 
T OflflQ 



to 

LQ. 



«1465 



• t 



>] 



REAL 

TNTS*flQMNTSS-ttulASTL"t|2fL0ATf:»fl3/l,Qr.gtUfMirNn.»i5; 



REAL 

IRP8» + 16* lRFTB»*l7*lRPDBS» + 18*lRPTU« + l9*lRP8Ur»'<'20» 



44206700 T 0000»0 
44206750 T 000010 

44?fl6aoo T 00,00 »n 



44206890 T 000010 
44206900 fOOOOiO 
44206950 T 0000 1 



TlsUASTU.SHLWSMENO; 
IMEGEF 
IRPRTS»-»21»lRPwRSg-*-??,xrLIGK = yCLnrK; 



ARRAY DOO«*23t*3*GIs+24E*3* 
ARRAY X »WC*3; 
SET OMTT « NOT SkAREPISK 



LABEL NuLLINT#CONtINUE*BOMBOUt; 
PCDtLfSTF)^ 
S SET QMIT - NnTfSHARFniSK) 



44B07000 
44207050 
4420yi00 



44807150 
44107200 
442Qy2ia 



ooooso 

0000)0 
O0Q0<O 



0000 to 

0000*0 



44207250 
44207 300 
44?n7a99 



T OOOOjO 
T 0000 I 

J onon«3 



13 
14 

IS 



0lSKWAIT<«A*30»0lRtCTQRYTQP-SYSN0); 

CQBE»C*U43»«IF DDOt93«0 THEN lOO ELSE 0D0C9 3> [4 U4 3^ 

QpTTQ^, «■ npnconai -^ 



44213000 T 0000«3 
44213500 T 000213 

44 21 4 000 T 0007«a 



19 
20 



23 
24 



2G 

2a 



27 



29 



31 



34 
36 

36 
37 
36 



40 



43 
44 
46 



46 
47 
W 



•9 
50 
51 
52 
H 
54 
55 



$ SET UMIT 



T *■ o;» 

s NUT SHAREDISK 
Xr.LTCK«sfg777y777yy77n0 



NEUPISDD0C23 MOD lOO > 
NEUP««NEUP4<NEUP+DD0t23 

i')ATEIgUnoct3; 



MP nnnriH] ? mhd 'ai640Q0j 



OIV lOO)CCTF3&NEUP£3»33ll53i 



% 



$ SET OMIT = i^OTcShAReoISK) 

Set up nrSK PQTNTfI^S ANH HUtLD nR Cl fANjU^T OiREf^TPRY 



X 

X 
JL 



EsPDISK MAY NOT BE USED 
ScRATcHnlREcTORY* WHICH 



ABDVE. THIS POINT SO 
IS UNPHQtECTFn* CAN 



THAT THE SHAREDISK 
BF RFCOVrR£0« 



i'TREAM(B«*QlAJ»BYPASi3|sDDD[43»D»»P( .DIROSK)); 
BEfilN SHaLOC AJ DStss OECJ DltsLOC B; 



SIi«LQC Of SlteSl^e; DSi»MDS; 
end; paP INX 0; % GET LOCATION IN 
nTSKRQTTawiBRYPASS"?; 



INITIALUE 



M[INTS-2 3»=(J!»*P(DUH))&ICCTC]; 

MCJ3,lFF]»*Ii 

H I ni^ vl& Cl NTS- P jrcTFI ; 



FaRGET5PACEClNTS)i % RETURN PART OF INITIALIZE 

INTS«»I + 2} 

IF (T*NEUP«tFF3^N£UP.CCF33>Q THEN 



•$■•■■ SET :;t>li|.t':>.:*'^' 



NEUP*-NEUP&10tCTcJ<4ClO + T)CcTF3;XSAVE » OF EUS ON OKA, 

i!sNEuP.N£UF> 

^«ICy«'I * EUTQFFSET} ♦, I 






niy^'mMM^mjm' 



;jiogltspace<z*o* i) + zi 
MQVEC2'J-1'J); 



mt:MM:>i'W$:l^&M 



iwliiiifl 
1 






POP QMIT 

TllsGETSPACE{200^0M) + 2; 
ACTDATElgWEEKDAY«gO; 



X SPACE FOR INTRnSC 



i'uuAh...... 



Jiii^ 



.jtlC 



..!M.i'tfi 



>' /, 



'iamwimmmmM,AmuME%mimm»tmi x.n.x o),i 



44215000 
44216690 
44216900 



44216910 
44216940 

fl42l605ft 



0008 > 2 
000911 
0Q09<4- 



44216959 
44239500 



OOUil 
001213 
Q016:i 



0017«1 
0017»1 



44 23 9600 T 0017^1 



44239700 
44239800 
44? 119900 



0017 II 

001711 
001711 



4424OOOO 
44240500 



00 17 J I 
001751 



4 4 24 05 20 T OOU t Z 



44240540 
44240560 
442405fi0 



44240600 
44240620 
44?a064Q 



002011 

002H0 

Qn22>l 



44240660 
44240680 
44g4Q<s9Q 



0023«2 
0026J3 
00?9tn 



003t«2 
0032*1 



X QQ33«2 



44240695 
44240700 
44 2 40 800 



0036«1 
0039«0 
Q04QM 



44240619 T 004112 
44240820 T 0041*2 
44 2 40 621 T 044*0 



44240640 
44840860 
44 240890 



442«M«i 

44tiilit 






0044*0 
0047*3 
PQft9*3 






44240921 T 0058*0 
44241000 T 0058*0 
44244^50 T 0060* t 



# • 



h 

2 
3 
4 
6 
6 
7 

a 



% 
% 



» SET OMIT s NOTCSHAREDISK) 

SFT UP INTHlNSiCa TABLES ANO LOCK MCP. 



4^2420^9 T 
44242700 T 
4fl242ftqtf T 



0064M 
0064« 1 
QQ<>4M 



0lSKWAlT(-A#-30#y); 

Tf fTt«DIRecTORY{>EARCHfDDDtlUl^*5xSYSNQ3#DDDrT*l3*l71)>Q TNEKl 



IF CNTl««MCT + 4],t36;6])X0 ANU i\T l^OC iNTYPt. THEN 
BEGIN FaRGETSPACECTj; 

P( nlR,Ec T , nB YSi- AR C HC\ AB S( UQ[)[I3)fDnDtI*l3H6)ynE 



LXL 



44242900 T 
4484 3000 T 
ft 41 a 3500 T 



00641 1 
006411 

ooAftin 



44244000 T 
44244500 T 
44?'450Qn T 



Q070»3 
007511 
007612 



0DOClJj*DD0tI + Ul'»0i 
OlSKWAlKA^-BOtO); 
NULUlMt FQfiGFTSyACrCTt )l 



% REMOVE INTRINSJCS 



44245500 T 

4fla46000 T 

t424ft500 T 



0079U 
0082*0 
006313 



10 

11 

12 

13 

14 

IS 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

26 

26 

27 5, 

28 

29 

» 

>2 

33;{ 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

«8 



T1«=0; 
END ELS>E 
BFGIN INTRINSlCTABLFBUILDFRCT&TlCCTr]);; 



44247000 T 
44247500 T 
44248000 T 



008411 
0085 »0 
00fl5«n 



FORGETS(»ACE(T)i 
END ELSE GO TO NUULINT; 
% SET flMlT g NOT SHAREDISK 



OO09»1 
0090*0 
4ii a 4 9 4 95 T 0090»0 



44246500 T 
44849000 T 






iNTFREEtsli 

IF £TJ«0lREcTQRYi3EARCHCDDDCI"3]*DDDCI-23*l7))^O JHEN 

BEGIN . — , 



44250000 T 0090«0 
44250500 T 009i J3 
4 4 25 1 000 T 0Q95»2 



S SET OMiT • NOT STATISTICS 

FORQETSPACE(T); 
END ELSE 



0096«0 

009610 

44 252500 T 096 * 3 



44251495 T 
44252000 T 



LBMESSCDD0CI-3]*D0O[I-2 3*-15*O*O#0jUj 
$ SET OMIT. ■ SriAREQlSK 

K!CPFREE»«1J ^ . ■ — . - 



44253000 T 
44253495 T 
4 /< 253500 T 



009613 
OlOl»i 

OlOl^l 



X 
JL 



$ POP OMIT 

ABORT LOGGIMG. 



44253505 T 
44253700 T 
4^t253a00 T 



Oi03»0 
0l03»0 
OlQ3»0 



o 
Q 



DISKWAITC-A,210*ESP0ISKT0P + U; 
FCR I » 1 STFP 1 UNTIL MIXMAX QQ% 



44253900 T 
44254000 T 



0l03«0 

0103»0 

442 5 4 500 T OlOS t Q 



BEGIN USCRCOOCCn f« 01 

T * DD0C3*I*923,t24»243 OR 

FNDf : ! 



t; 



44855000 T 0l06t0 
44255500 T Ol07»l 
44256000 T — OUOM 



IF T ^^ AND DD0t23 « '♦ABORT" THENX 
BEGIN GI«-CMCSpACE(2l0)3]42l0t8»38»10]; 
M0 VEC2l 0yA^S l)j 



44256500 T 
44257000 T 
44P575Q0 T 



0M2»2 
0ll4«2 
Onfl«3 



00DC33 ♦ Of* 

MQVEC20«#A<^3«A^4}; 

PlSKWAlTfA>2l0*ESP0lSKTQP-»n; 



44258000 T 
44258S00 T 
4fl2S9oQQ T 



012012 
0l2l»3 



• 



DOX 



FOR I «■ 1 STEP I UNTIL MiXMAX 
IF CB<-GlC3xl+923,[CF3 )X0 THEN 
IF B Q I V IpOOOOQ-^ l L£Q NE U P iC CFJ 



TH E N 



44259500 T 
44260000 T 
4 426Q5 Q0 T 



012610 
0l28«0 
Q13U0 



BEGIN 






fili ffJM QB T MSS THEN fiO BQMBOUT J 



44261000 T 
44261500 T 
44 262 T 



013313 
0l34»l 
Q13S IB 



USERCqDECl3tSPACECT); 

FOR J*0 STEP I UNTIL (T'l) DIV 30 00 



44 262500 T 
44263000 T 
44?63500 T 



0l39«l 
0l42«3 
0l.47f2 



50 

51' 






44264000 T Ol47t2 
44264$06 T OlSMI 
44t65000 T OlS3t3 



52 
53 
54 

56 i 



IF C DIV lOO0OOOiNEUP,CCF3 

GO BOMBOUT ELSE 
lSKW AIT("Af 3 0fC); 



OR C<0 THEN 



44265500 T 
44266000 T 
44266500 T 



015511 
015812 

Ql58«? 



iiii 



■iipawwiB!!* 



liiiiBittiiiiiiiSiiii^ 

1*1 ST EP 1 U NTH H IXMAX 



^.44Z6.T'O.0;0!:fd 



016310 
QlftStl 



• t 



IF (C«-USERCUDE[n )X0 THtK 
BEGIN 
r.lC3xl+92].[2m2^„]*RtftETESP0lSK; 



T*<USEHCOOEtn*WtC + n) OIV 5k6; 
FOi J«-0 STEP I gNTIL (T-l) DIV 30- 
wCC*J?<30 3«'GETF.SPnISKi 



4^268500 
^4269000 
fttl269500 



1 00 



4«270000 
44270500 



016650 
0167J2 
0166 to 



0172M 
017611 



DiSKWAlKCf T#B); 
f OfiGETiJPACECOJ 



^4271000 T Oiaitig 



-&MJX- 



44271500 T Ol84»3 
442720C0 T 0l86»0 
4 427250 T 0l86>3 



17 
18 



19 

20 



22 



24 



26 
27 



29 
30 



31 



M 
K 
36 

37" 



39 



41 
42 
43 



48 

49 



M 



56 

S6.:': 



'^^'^''''^'■'' 



GO CONTlNUt; 



STREAM(D«-T«-SPACtC3)); 

ds«.22 lit"**abort log UESTROYEO*-"' 
SPOUTcT)} 



44273000 
44873500 
fl4?74000 



0169«0 
0189S0 



FOR l*-i STEP 1 UNTIL MIXMAX 00 USeRCOOECI UO/ 
CONTlNUEl 
TNTFTMSH(A)i 



44274500 
44275000 

fl/|27')500 



FORGETSpACEClNTS); 
GC TO NOTHINGTODO; 



FORGETSPACEClNTijS); 



44276000 
44276500 
44260000 



018912 
0|92«1 

oi<>5ia 



e nd; 



44281000 
44262000 
44 4 4 OO QQ 



0l96»l 
0200«2 
020012 



020111 

0202^3 
3 03 >^ 



SAVE REAL PROCEDURE CORENO;* 



BEGIN REAL U PCINI); END;X 

PROCEDUtiE INTFINI.SH(AA)?VAL,UE AA/REAL AA? 



START OF. SAVE 



SI2E« 0204 WORDS 
44441000 T OOOQIO 

sfgwent? Base address »o166» 



44442000 T OOOQIO 

SIZES 0002 WORDS 
4 5OOOOOO T OO^Wt-t^ 



START OF REl segment rOlSK aOORCSS » 00938 
BEGIN REAL RCW'«*0#MSCw«-2; 45001000 T 0000»0 

RFAL A»tl^BqAfl^C*BtlM';Cfl*VyItl*TyJfl>WfT»l^Y« W»lf^« y* l i 4«tQQ2000 T OOOOIQ 



REAL INTS=4+1^INTSS«INT5*1'LAsTL«INTS5+1*LDATE«LASTL+1'L0C=LDATE+i# 

MEND=LOC+i; 
RFAL IHPB = MENO*lMRPTB-IRPB^WlRPDBS=IRPTB-<-UIRPTUsIRPDBS*l. 



irpbuf«irptu*1j 

Integer irpbts«irp8uf+i*irpwrs««irpbts+u 
Rfal ti«lastl*shlm«mend; 



45002100 
45002200 

45002300 



s 
$ 



array ODD»lRPwHS+lt*],GIsODD*U*]; 

ARRAY XaWC*]; 

L AB^ L N0 GQUD> LOqP; 



45002400 
45OO25OO 
45002600 



0000 «0 
0000 «0 
OOOOtO 



SET OMIT 
SET OMIT 
SET OMIT 



NOT(STATISTICS) 

NQT<AUXMEM) 

NQT(DA7ACOM3 



45OO27OO 
45OO28OO 

4'i O Q3 Q Q Q 



000010 

oooo;o 

OOOOIQ 



OOOOJO 
0000»0 
OQOQ »Q 



p(rcw*mscW'Stf); hch^rowkhcxch^cctc]; 

TIMEOuT(SPACt(10))'DATEOUTCSPACt(10)); 
S SET OMIT » NOT SEPtICTANK 



45003199 
45003299 
4%QQ3099 



S SET OMiT = NOT<OC^PO AND DATACOM J 

WHILE FALSE 001- XflX FQH C^RELATlVE CONSTANT ERRORS 



45075590 
45075600 
4S0B8990 



0000 S 
OOOOIQ 
OQ Q Q 1 



0000:0 
0002«1 
0007«0 



irtlf DlRECTORYSEARCH<*»SYSTEt< »»"i.OG 



"*5))^0 THEN 



BEGIN lFCj«sM[I+10 J)aO THEN 

^EGlN M[i*10J :aj««GETUSERDlSK(Mci+8]); 

... . ... . H.^.EA.HiQ..ATfe, Al »,fi.,^BI .»] MlAlf 



45090000 
45092105 
45092110 



'Brntw^mMm ..■MilitliM.oc v u .© s't "a oo t * 



45092120 
45092130 
45092^40 



000710 
000710 
0009 *1 



Mtl INX n,U5J23]l«XCL0CK + P(RTR)J 

oiskwaitci inx 0'30#i,[ff3); 
end; 



45092190 
45092160 

45092^70 



T 
T 
X 



0010<2 
0013»2 
0191 2 



JUi>. 



DlSKWAlf^MUlfTJyr ^ 

IE, OOOCM' kU 'HMCU ANO' 

(JMMl'%MMl*Bllnb. .Mi& nr. 



4509218O 
45092190 
45092200 



00201 1 
0Q21I0 
002210 



49092210 T 

4a«92a20t^ 



0022M 
0026 «0 
0q2SI^ 



002811 

"'Ofap'j 



57) 



2 
3 
4 
S 
6 

y 

8 



DDDt4j»"DISKL 
BtGiN DiSKwAI 

IF, DQQtCDOPl^ 



OG" THEN 

T(-A-60*30* J+DDU[2] DIV 

1 Wgp, 6)?<^t6QJ»/t THEN 



6); 



4509Jf24C T 
45092250 T 



003480 
0035'1 
no 39 80 



T< 



BEGIN OOOC 

■■■,;: ■•DISK 

£NDt 



G]l«DD0ta3»li 
WAITCAOOfJ)? 



45092270 T 



0U*lt3 
0#44ll 

noitBt2 



tND ELSE 
BEGIN ODfJtO]J 
DDQ,t2l; 






45092300 T 0045»2 
45092310 T 004512 
0569 232 T 005 3 « 1 



DDDtflVl#''DlSKL06'«IOOOCS3l»4J 
DISKWAlTCA#3Q*Jjr 



ENfli 



45092330 T 
«5092340 T 



005512 

0058»0 
4 5092350 T 0OS9 » l 



10 

11 

12 

13 

14 

|15_ 

16 

17 

18 



FQHGET^sPACECn; 
LQGFREE{»NA8S(J) 



45092J60 T 0059»1 
45092370 T 0060 »0 
4509 2380 T 0Q6H0 



S SET OMiT » 



NOTcShAREOISK) 
IF CH«0 1 RECTORY 
. BEfiTN IF (J 



SEARCHC"REMOTE '•^''USERS 



♦V5))/0 THEN 



45092390 T 
4S093000 T 
45094000 T 



00*3«3 
0063 » 3 
0066iQ 



BEGIN DlSKWAlTC-A»30#J)i 

MCF»«NFLAGCM[A]); 
X;nM [I3, nU4 3 " l i 



45094200 T 0069>0 
45O944OO T 007l«0 
4 509 4 600 T 0073>2 



19 

20 

21 

22 

23 

24 

29 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37" 

38 

39 

40 

41 

42 

43"' 

44 

45 

46 

47 

48 

«9 

90 

51 

52 

53 

S4 

55 . 

56 

S7* 



UOOfI 
i SFT 



-Tt«o; 



OMIT g N nTCDAT A COM A ND R uE ) 



45094800 T 0076«0 
45O950OO T 0076«3 
45 95199 T 0076«3 



JLhSL 



end; 

FORGET 



spACEcn; 
P»NuTc-Q?; 



45O994OC T 
45099600 T 
45099800 T 



0076*3 
0076»3 
0077«2 



ENTERSYSFIUEU); 
ENTERSYSFlt.E(2>; 
£MTEftSYSFILEC3ii 



X "LIBMAIN" 
% "LOCNTRL" 
% "PRNPBT *t- 



45O999OO T 
45O999IO T 
4«v009QgQ T 



008210 
0C82»3 
008,3^2 



Xl«CMtGETSPACE(3 
TOGLE«-TUGLt OR ABORTm 
IF 61/0 THEKa; 



0*0#0)4.2]]&30C8»38U0]i 

ASK OR userdiskmask ; 



45101000 T 
45102000 T 
45103000 T 



0084«1 
0088 >0 

0089? 3 



BEGIN* 

FOR 1*20 STEP I 
PCWAlTlOcPAOOOl 



UNTIL 21 00 
00O0O»P777»I)>OEU)J 



LDATEJsGUn; 

FOR I *■ 1 STEP I UNTIL 

IF USERC0DELI3X0 THEN 



MIXMAX OOX 



45104000 T 
45104100 T 
4'Si04?00 T 



009013 
009111 
0093 »0 



45105000 T 
45106000 T 
4i, 107Q00 T 



009513 
0096»3 
0099 'tO 



BEGIN 



J «■ 3x1; 



M. 



45108000 T 
45109000 T 
4«^11iQQQ T 



too 10 
010012 
01 01 *3 



PROCTlMEtn ♦• -CLOCK-P(RTR);X 

PIMIX ♦ 1;% 

XLO] ♦• GUJ-»903 ; 



45112000 T 
45113000 T 
4511 4Q0Q T 



0103M 
0105U 
Q l0 6 .«0 



Xtn ♦ NABS 
STREAM(a*CL 
BEGIM st»a; 



£GllJ + 9n)l 
DATE3»8*CXC53J j; 
QS»a ncT fhim 



45115000 T 010810 
45116000 T 0110»1 
45117000 T Q11H2 



46 

46 

47 ( 

48 

49 

50 { 

51 

52 

53 I 

54 

55 

564 

57 



IF GICJ+923 
IF XC5J MOD 
XC53»gfXr53 



»[n233 GTR XCtOCK THEN 

lOOO GTR I THEN XC5 3 « ■*PCDUP )•! ELSE 
*i00l)»365»C(X[53 DTV 1000)MQ0 4-0); 



45116000 T 
45119000 T 
45120000 T 



0U2»l 

OlH'l 

oua»3 



Xt53i.GUj*9 
XU3»6Ha49 

y i>ERCQDg.c n 



2}U lt233&XC53Clt25l23]l 
2}*C24t24}«USERC00ECnCCTF3j 
»fiH,UlflQ3iPlKIX»Ii 



45121000 T 
45122000 T 
451?3n00 T 



O124IO 
012713 
0l3l»0 



Xt33 ♦ GUJ];* 

XC43 «• GitJ + U;* 
XC71 » iMCJ>2J;x 



UUOIOLETIME 
XC21. [81103 






45*24000 T 0133«3 
45125000 T 0l35«l 
45126000 T — .0137}1 



45127000 T 
45128000 T 
45180000 T 



013911 
014012 
O149IQ 



• t 



10 



12 
13 



IS 



16 
17 



20 
21 



22 
23 
24 



27 S 



M 



M 
3S 



36 

37' 



38 
39 



«2 



«S 



♦7 
18 



50:? 
51'! 

52 



SSv 



t 



$ SET OMIT s WOT(STATISTICS) 

5IGN0FF(X*[M[5PACE(5)]]*0)> 

HlMIXtO; 



jARRawci3«-o; X in case log is not on disk, 

STREAMCI,x^JI»J»»SPACeClO));X 
BEGIN Slt» X m i > | aaWDSJDItaJ>X 



hiflRQi^fttl 



ENo;i 

SPOUTCJ)** 



aS:sLir''*";DU«DI + 7;DSl8LlT"/"; 

dij»di + 7;dsi*lit"=";su*loc i* 

D ?S;- 2 D£ClD . SIai9 u n"UfclURTE D fc"J !li - 



$ SET OMIT « 



ENOn 
NOKSTATISTICS) 

FGRriFT>PACECf.in;ai 



END I 

fougetspacecx); 

ir rLOCK«Q TRFN 



1 CClOar IS TMHIBITED 



SEGIN STREAMCTJ«TJ*SPAC£ClO)); 

BEGIN OSJsl«HT»*TlMER NOT RUNNING*"; 
DSI = ?^^ LTT" RESET CC103F INHtBtT^."; 






tHQi 



IF GlVtDATE THEN 
begin; STHEAM(B*I*5PACE(i2))) 
DS tll . L I T "* n T PLEA S Et'V 



4hM\ 






IF GiVtTlME THEN 

BE9IN; STREAMCB*I*SPACE(2)); 

nSUl I, TT "*TR PLFAgI.t"i 



'jeMl 






37324000 



ACClDENTAt ENTRY 
$ SET OMjT ' 



keybQardcqunter»=o; 

TOGlE*TOGLE oh HOl,DMASK OR KE YBOAROMAsk; 
(:QMPLt:XSLrEPCrLOCls>0 aND XCLOcK^O AND UAlF^QiJ 



AT 
NOT<AUXMEM) 
LnGQ WTH AINTfSHI.Mif 



$ SET OMIT 



MR0Wt»NABS(MHOW); 

FQRGETSPACECSHLM); 

SHAREOISK 



:i^^:'*0#'y©M|l 



$ SET OMIT « 
» ill IMTT » 






X RH i 



NOT(DATACOM AND OCl.06) 

FO«GETSPACE(A); 

NOT PEBUGGINQ 






iifriiliWASK OR.' :STATUSW::ASK" 



4512^0^9 
45130000 
4 51 3 010 



45131000 
45131100 
4 51312 



014582 
0l45«2 
01 4 810 



45131300 
45131400 
4 51 3 1500 



014913 
151 10 

0iS4ii; 



0l55«l 
0l56«2 
0157^2 



45131600 
45131700 
45132000 



0i59«l 
Oi59l2 
016011 



45133000 
45133099 
45134Q00 



45l34l00 
45135010 
4 5 13 5 03 



016011 
016212 
0l 6 2»2 



016312 

0l63»2 
0^64tP 



45135040 
45135050 
4'>M5060 



0i65»l 
0l68«2 



45135070 
45135080 
65 135090 



45135100 
45135110 
4513'il20 



017411 

0i74l2 
0175^1 



45135130 
45135140 
4B13*>l50 



0175U 
0l76»0 



T 

T 

4- 



45135160 
45135170 
4f>n5l80 



OlSlli 
1 82 1 
Ol»3lO 



0i83»0 
018313 
Ql87<0 



45135190 
45135200 
4S1.15210 



45135215 
45135220 

4 51 3 5 230 



0i89}0 
0i89t3 
019013 



0l90«3 
0l9U2 
0193M 



45135299 
4'^ l l Sfig Q 



OgOOt 3 
QlQOI^ 



45135700 
45135800 

4 5136000 



0201 «2 
0202«2 
0203M 



45137000 
45137001 
45I3B000 



45141000 
45143000 
4 5 1 44000 



0203»1 
020511 
Q2Q5*1 



45150000 
45151000 
454^2000 



0206 J2 
0206 « 2 
.2 97 » 1 



020711 
020811 
2 09 1 2 



TERMIX*'ST0PJQB«-ei777; 
IF Tl-0 THEN 

JEft|,.N.,STB.gA|>^i4j«J.^*.S.PA.<;,|.(.4.;.)i 



XST 




"""" mmwsMMmmismmf:m.mr :v-' • 



45153000 
45154000 



0210>1 
021112 
02.12 «1 






lis 



4515fiQ0Q 






021512 
021912 

iffi 



26 1 

27 

26 

29 i 

30 

31 

32 ( 

33 

34 

35 ( 
36 
37 

36 < 
39 
40 



J5? 



# • 



>T 



14 

16 
17 
18 



19 
20 



24 

2S 

26 

V f 

28 

29 

30 

31 " 

32 

33 



34 
35 



36 

3?" 



41 
42 
♦3^ 



«7 
«8 



49 ;3 
50 



52 
53 
94 



55 ! 
5« i 



$ SET OMIT = NOT(STATISTICS) 

RRRMECH «. RRRMECh AND 97637777777;% 
RfriADY * Rf,AnY AND ^7(iM777177 it 



S SET OMIT * NQTCOCSPO AND DATACOM ) 
S SET OMIT » NQT(BREAKOUT) 
PCP&RCW[CTC3*0*RDS,0*XCH*P&PfCTF].STrH 



end;x 



M6« F( , ,r.aRFNn>i nuMf TNX^STSi; iMTiAiTZFt at 2c\*\si c np'^ 



» l7l 
M 91 



GO 



TO 
li2_ 



TlMERi 



S20» GO TO keybOahorequest; 

'21! HHINTERF1MSHC20); 
«22: PRINTERFTNISh(21); 



X 21 • RES FOR NO ME.M 
X 22 • TIME XNTERVaUX 

X 23 " 1-0 Busy* 



MSG 



1231 lUFlNlSHCRESyLTia)! 
1241 I0FINISHCRESUI,T2*2); 
1251 10riNlSH(RESULT3.3)J 



X 2^ - KeYbUaRd ReqoeStx 
X 25 - PRINTER 1 FINISHX 
> 26 - PRINTER 2 FiNtSh X 



J26« I0FIMSH(RESULT4»4); 
»27» GO To P2BUSY; 

;2flt GO TO inquest; 



27 
30 

.11. 



CHANNEL 

Channel 

C HANN EL 



COMPLETE 
COMPLETE 
C nMP LpTE 



4 SET OMlT • 



I2fl DO UNTIL FAlSEj 

SHAflEOlSK 

t3Q: DO UNTIL FALSE! 



X 32 " CHANNEL 4 COMPLETE 

X 33 - P2 BUSYX 

> -14 - PATACQM INQUIRY ._ 



% SET OMU s 



»31» DO UNTIL FALSt; 
NOT ShAREDISK 

«32; p(Q); 



X 35 • Special INTERRUPT 
'% 36 * OKA R e ad c h eck 



X 37 - DKB READ CHeCk 



GO TG P2PRDCESS; i 40 - P2 MEMDRy PAKlTy* 



«33l PC4#l7); GO TO P2PR0CESSi X ai - P2 
»34» P(4,l)J GO To P2PR0CESSi X 42 • P2 
M6t Pt6); GO TO P?PHQCESSi 1 /i/i - P; 



S37« Pt8); GO TO P2PR0CESS; X 45 
«38» PUOJi GO TO P2PR0CESS; X 46 ' 
«39» F(18W C.Q TO P?PRQrFSS{ % U7 ' 



INVALID ADDRESS 
STACK OVERFLOW 
CQMMUNICATEX 



UOi P(12*0); GO TO P2PR0CCSS; X 50 • P2 
»41t P(l2M)i GO TO P2PR0CESS; X 51 " P2 
»42l PUP«2?J GO TQ PgPRQCFSSl t 52 * Pg 



P2 PROGRAM REuEaSE 
P2 CONTINUITY BIT 
P? PRESENCE BI T 



»43» P(4*9); GO TO P2PR0CeSS; X 53 • P2 
»44J P(4,U); GO TO P2PR0CESS; X 54 - P2 
U5» PCl2f3?i QD TO PpPRQCFSS; i SS - P2 



FLAG BIT 
INVALID INDEX 
EXP UNOERFtQw 



STA CKQVERFi. m 



148I PCO); GO TO PIPROCESS; X 60 
I4»l P(4#17); GO TO PjPROCESS; X 61 
fSQl P(4»nj . GLi TO PiPRnrrSS; x a? 



exp oveRfLOwx 
kInT overflowx 

OIVIDE By 7£Rn 



»52! P(6); GO TO PlPROCESS; X 64 
«53l H(8); GO TO PIPrOCESS; X 65 

;54i p(io?; an to pi process; x 66 



- Pl MEMORY PaRJTyX 
• Pl INVALID ADDRESS 
■ 9\ STACK nVgRrtpW 



»55l PClS); GO TO PlPROCESS; X 67 • Pi 

IS6I F(ia»0); 60 TO PIPROCESSI X 70 • pi 
l«>?l PfiaiDf no TQ P^PHfiggSSl % 7X ^ ^\ 



- Pl COMMUNICATEX 

- Pl PROGRAM RELEASE 
Pl CONTINUITY BIT- 



«58l 
«59» 

» 60 » 



PCl2*2); 

p(4#9); 
p<4fin; 



»6ll P<12#3)/ 



STA«Tl«l 



GO TO PlPROCESS; 
GO TO PlPROCESS; 
GO TO PlPROCESS; 

■•GQ'.'fl'?fiii»C'r&s; 



72 • 

73 - 

74 - 



Pl 
Pl 



PRESENCE BIT 
FLAG BIT 
INVALID INDEX 



EXp 
EXP 

JJO- 



underFlow 
overflowx 

OVERFLBWX 



X 75 • Pl DIVIDE BY ZERO 



$ SET OMIT 



'mmmmmmmmmmMMmmmmm^ 



NOT(NEWLOGGING) 
IF CLOCK. t37»bi 
Ci>ECONDCTR 



OR 

iPf^m;Sfl|.t3.EC.0.N.D.g.TR.:).,^. ^ OR* 



45178000 
45229000 
45230000 



45231000 
45247099 
A«iP4flOQO 



0220J1 
0220J 1 
022112 



0222*3 

:022,2l-3. 
Q222H 



45249000 T 0225'1 

SIZE* 0231 

46000000 T Ofion'" 



WORDS 



46000500 

46001000 

06002000 



001810 
001610 

oniei? 



46003000 
46004000 
46005Q00 



46006000 
46007000 
4600BQ00 



0019«2 
0020*2 
0Q21V3 



0022»3 

002410 
002510 



460O9000 
46010000 
4.6011000 



46011500 
46011990 
46012000 



0026 «0 
002710 
0027?? 



0028*2 
0029*3 
0029*3 



46012500 

46012750 
46014000 



0030*3 
0031*3 
0031*3 



46015000 
46016000 

A60i7onn 



46018000 
46019000 
4fiQ2QO00 



0032*3 
0034*0 

0035*0 



0036*3 
0037»3 
Qfl3fl*3 



46021000 
46022000 



00 39 t 3 
004110 
0042*0 



46024000 
46025000 
4602^000 



46027000 
46028000 
4/SQa9000 



0043*0 
0044*0 
0045*0 



0046*0 

0048*3 
Q05Q*n 



46030000 
46031000 
46032000 



46033000 
46034000 
46035000 



005 HO 
0052*3 
00531 3 



0054*3 
0055*3 
005710 



46036000 
46037000 
46038000 



46039000 

46040000 
^aOOOQOQ 



005810 
0059*0 
0060*0 



0061*0 
0062*0 

049a in 






48000099 
48000500 
480Q 1 Q00 



4$00200Q 
48003000 
48004000 



0440*2 
044012 
0441*3 



0444tl 
0445*1 



• t 



rf 

2 

3 
4 
6 
6 
7 



SECUNOCTK «• 3;X 
I F Na .E.,CU.M OH F,A DY 



TH£Naf 



E.ND 



BEGIN TOGLE^TOGLE AND NOT NSECQNOMASK* 

INDEPENOENTRUNNER(PC.NSEeONo)»0»lOO); 

FNDJit \ ^ _.„ 



48005000 T 
48006000 T 
48007000 



48008000 T 
48009000 T 
4flQ tQ ^00 T 



044753 
044813 
Q4,49»? 
0450M 
0452 « I 
Q4§3»? 



S SET OMIT 
$ SET OMIT 
S SET OMIT 



= nut(statistics) 
* notcwohkseT) 

s NOT(DATACOM AND 



DCSPQ ) 



48010004 T 
48010070 T 
4fl Ql 009y T 



04b3«2 
0453«2 
Q4 53»2 



IF CP(HRR) OR RRRMECH);<REA0Y THEN 
IF STaTUSBIT THEN 
aLGIN TQGLE»TUGLr AND NOT STATUSMASK. 



48012000 T 
4 8012500 t 
48 01300 T 



0453 • 2 
0454 1 3 
041 61 



to 
11 

12 
13 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 

26 j 

27 ;v 
28 
29 
30 
31 

'2.;, 

J3 
34 
IS 

96 

37" 

38 

39 

40 

41 

42 

43 



lNDtPENUENTRUNNER(PC.STATUS)*0*lOO)/ 
END/M 
IF P2MIX>0 THFN 



48014000 T 
48015000 T 
.4a.Ql5 l Q0. T 



045810 
04591 1 
0459«1 



IF NSLATEJiLSLATE THEN 

IF U08NUM40 THEN 

IF fPRYQRfPgMIX] INx ) & f PRYQR f BED fOJ . T 3t s] ] . rFF ] ) THEN 



46015200 T 
48015300 T 
4flQl54QQ T 



046010 
046lti 

Q462»2 



EXTERNAL?; 

LE 



GO To P2FAKE; 

PlM i x » THEN GO T g nQthing Tqd o;* 



% 



48015500 T 
48016000 T 
4S01 7QOO T 



04661 1 

0466V3 
0467«0 



INITIATES* 

NT 

IE. 



1 ♦ P8TCP1MIX»83jX 
P2MIKpQ THEN GO Tn CQHTNTTf 



48018000 T 
48019000 T 
48019500 T 



046811 
0469t0 
047n>2 



IF 
IF 
CQMIMTq 



NSLaTE = LSLATE THEN* 
JOBNUM < THENX 



48020000 T 
48021000 T 
4 8 02 2 000 T 



O471S3 
0472«2 
0473> 3 



$ SET OMIT 

IF 

fiOfiOGQl 



• NOT(DATaCOM ) 
NOPROCESbTDG < T 
GTN If PRTrpt 



jitiLJ 



-eSM. 



HLNX 

IXfQ] X WqROQFEASe THEN 



48022099 T 
48023000 T 
46024000 T 



0474«l 
0474»l 
047510 



$ SET OMIT = 



BEGIN P(64* 
NOT(NEWtOGGING) 
, . GQ TD 



STS); 

aTACKOVFRFUnW./ 



48025000 T 
48025099 T 
480?5?0n T 



047710 
047a»l 
047811 



end; 
pciNpn 

IF TrRHlx.r33ll5] » PlMtX thfni; 



48025300 T 
48026000 T 
4ft0g7n0Q T 



0478*3 

0478*3 
Q47Q»n 



BEGIN NT2 «■ TERMI X. C ie« 15 ] ; X 

P(NTl»STS#0*STF);ii 
TER WI N AL MF3SA r,E.{N T 2)iai 



48028000 T 
48029000 T 
48030000 T 



04601 1 
0482»0 
04B3'2 



END;t 

IF STOPJ08» 
BEGIN PtNTl 



PIMIX THEN 

»STS#n*STFi; STOPMtTRuE) ENDf 



XST 
«ST 



480 310OG T 
48031100 T 
480 34200 T 



048411 
0484 »t 
048110 



SECONOCTR «■ on 
IF SQFTI>0 THEN 
IF JaR[PiMIX*23 .[5»1J THEN % PQSS .SOFTWARE iNTpHRUPTS 



48032000 T 
46032100 T 
49032150 T 



0487«3 
048812 
048911 



IF 



(TSKA ♦ 
IF TSK 
BEGIN 



PRTIPIMIX^TSX]).P8IT THEN 
AC83.C1I3]»2 THEN 



46032200 T 
48032250 T 



049l«l 
0493)3 
495 *3 



47 

«8 



I 



F NOT PRT[P1MIX^ INTRHTX] ,PBlT ThEN 

etGlN 

PtNT^>STS»0*STF); ^_^_„.„„„_ 

p '■^-:v:»iiiiiii;iiii:if«:T:C p i m i x.* i ,n t rf-t % 3 ,3 i-mx «■) 1 



48032400 T 
48032500 T 
4 8Q 3^ 60.0 T 



0496*1 
0498*0 

.Oj..|fiiJ... 



«9 

50 

Bii 

S2 



4itiiiii^svt:: 



0300*0 



S3 
S4 



P(NT1*STS«NFLAQCNT1)* % 0|,0 InCW 

FLAG(04PRTROWtPlMlX3 [6*33*9] % iCW 

&1 H7*47I13)*SSN« 



mxmimmivKmimmmxmm u i tti c j ■ . ■ , » i r c w 

mitmmmgm0mMmm:0mHii%f^u(i*»>Qii) . ,i nc w- 



48032910 T 
48032920 T 
48032925 T 



0503*2 
0504*3 
0505*2 



55 

56 V 






•■•■'^ ''■" '" 



IK£i 



;Ofi«i;0'^,: 

051013 



N 

2 

3 
4 
S 
6 
7 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 "^ 

20 

21 



22 
23 
24 

25/' 

26 

27 

28 

29 

30 

31 ~ 

32? 

33 

34 

35 

36 

37 ~ 

38 

39 

4C 

41 

42 

43 



45 
«« 
»7 
•8 



50 
51 
52 
U 
M 

55 I 

56 J 



eno 



PRTLH1MIX*B] i 



NTl ♦ -pLAGCNTl 



INX 3}iXINCM 



f SET OMIT s NQTCNEWLOGGING) 

IF P2MIX ^ THEN PCNTl^IPU;* 

■'• '-^^ ■-■•••• . ■ IF NSLATOLSLATE THENX 



IF JOBNUM < THEN PCNTl^IPDiX 
PCNT1*IP2)'« 

P^MTX * PIMTXJit 



GO TO NQTHINGTODO/* 



PCNT1*STS»0'STF);X 
SLEEP(tNQPROCESST0G]#-0j;x 
NTl «■ PRTt PtMl?<>63;it 



GO GOGOQOn 
NOTHlNGTODOIlPlMiX ♦ 0*X 
$ SET OMTT » NQTt S T ATlgTlCS) 



$ SET OMIT «■ 



PC INI)' X 
NOT CD AT A COM 
IF NSLATF f 



} 

LSLATF THENX 



IF STaCKUSE ThEN% 

BEGIN TOGtEI»TOGtE AND NOT STACKMASK; 
X MOVE INTO ISTACK 



P(ISTACK»STS*SEC0NDCTR««0,STF)^ 

NSLATE»=NSUATE+2 AND SUATENd* 

% I F "RUN" TH E N N O ST A CK N E C E SS A RY 



IF {NTai«SLATECNSLATE + n),tFF3 NEQ THEN 

BEGIN ^. 
P( 6 £T SPA C£{XTfl.tF g3M g^NT« LSS 0?4i»STS)l 



STACKUSE««TRUEi 

ENu; 

P(MKS.NT^r «»i?i,ATFCNSl,.ATFtn>DlR O'LOQ' 



SLATECNSLATE3*C0C)i 

GO TO nothingtooo;x 



E ND fX 



P( 64vSts);» 

IF TOGLE THEN 



GO TO PROCS><IT; COMMENT TEST HP2Tog; 



VQH NTl » STEP 2 UNTIL JQBNUM DOX 



BEGIN P(INI);* 

NT2 ♦ BEOtNTl);* 

IF P(NT3 * BEDtNTH.i3»TQP»XCH>Q£L#NQT) THrNX 



BEGIN PIMIX ♦ CNT2],MIxF;X 
PC[NT2l.tl8«15 3#STS);X 

NT3 t NT3*> ^ 



:t imm 






IF NDTCNTg AND NT3) Z NOT THEnX 
BEGIN PIMIX *■ |:NT23,MIxF;X 

, I F VQ | NU.M >,JT^,,.,.THEN» 



iiiiiif liiiiiiiiiif i:*;*l:.t,e ec^ t n n ♦ 2 3 3 » % 



JOBNUM «. JQBNUM-2;X 
5EC0N0CTR ♦ OiX 
PRYQRXPia.I?<l«[fF3«- 0^ 



teilifillliiliiiil^^ 



:|<iii: 



isiiiiiililifs^ 

STARTLnr.(PlKIX>Q)l 



460329^5 
ft8CJ329bO 
4aQ32960 



0513J1 
Obl3<3 



48032979 
48033000 
48Q340QQ 



051911 
0519M 

Q^aiin 



48035000 
48036000 
46037000 



0521* 3 
0524»0 
0524t2 



48038000 
48039000 
48040000 



O525U 
0525«3 
052513 



48041000 
48042000 
48043000 



052610 
0527«2 
5 2911 



48044000 
48045000 



053013 
053l»l 
0532* 3 



48046000 T 0532' 3 
48046099 T 0533«0 
48047000 T Q533«0 



48046000 
46049000 
48 050000 



48051000 
48052000 
4 8053000 



0533*3 
053510 

0537 » 



0537 «0 
05 39«1 
054H2 



46054000 
48054200 

aeosAflOn 



054l«2 
0544«l 
0544*3 



48054600 
48054800 
480 '^,500 Q 



0546 «0 
054913 
0549«3 



48055200 
48056000 
48057000 



48058000 

48059000 

4 80600 



055210 
055213 
QiS3il 



0553«1 
0554*0 
Q555«0 



48061000 
46062000 
48063000 



0556»0 
0556«1 
0557*1 



48O6'»00O 
48065000 
46066000 



48067000 
48068000 
4IIQ690QQ 



055913 
056i»2 
5 6310 



0563*3 
0364 « 2 
O^A<SM 



48070000 
48071000 
48074000 



0565*1 
0567*0 
568 *3 



48075000 
48076000 
4p077nOfl 



0S69f2 
0572«0 
057213 



48078000 
48079000 
48q79|00,, 



0573*3 
057510 
05 75 > 3 



vjittiipMiifi 



057713 
057812 
057Bi2 



• t 



>1 



H{XIT); 
END'* 



F.NDtX 



48080300 
48081000 
a 8 8 2 00 



$ SET OMIT 



IMOT(STATISTICS) 

DO DO F(INI) UNTit (PcRRR) OR RRRMECHJ^READYX 
UNTIL STATU■St^^T8X 



48062999 
46064000 
48084100 



058i:o 
05ei»i 

56 1 . II 



T 05a3«2 
t 0583 « 2 
t 0S84«g 



T0(iLt;4.TOm,E AND ^QT 5TATU5MASK; 
lNDEPENDENTRUNNtR(PC . ST ATUS )^ 0^00 ); 

a n TO ^a THINrlT^n[:l;* _„________ 



48084200 T 0586« 3 
48084300 T 0588«1 
4 806 44 00 T ii8 9»2 



P2fAKE« 

$ SET OMIT 



TOSLE«-TOGLe OR HP2MASK; 
N0T<NtWL06QlNa) 



48085000 T 0590»0 
46085099 T 059111 
46 08 6 000 T 059l»l 



$ SET tiMIT " 
PRQCSWIT: 
P2PRcCESSt t% 



NOT(NtWLOGGlivG) 

P{i6); 



48086099 y 059i;3 
48067000 T 059l«3 
46095000 T 059280 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
M 
31 
]2 
33 
34 
36 
36 
37 
38 
39 
40 
41 
42 
•3 
44 
45 
46 
47 

ta 

49 
SO 
61 

a 

S3 
54 

ss 

56 



if P(PiMiX*P2MiX# .FiMiX^*.* ,P2MiX/STN) 

9EGIN 
Pf»RTfP2MIX«B1»IP2)i 



H THEN* 



48096000 T 0592'0 
46097000 T 0594»0 
48097 gOO T 0594*9 



059513 
O595I3 
0597L 



ENOi 

T0GIE«-TQGIE 
Pl P R Ct:£SS > i% 



AND NOT HP2MA5K; 



4809 7 300 T 
48098000 T 
4809900 



8099000 T 059784 



PCPRTCPIMIX*83*STS#0#STF);X 

qO to P(ONEQHONE}i% 

r,n Tfl MFMQRYPARlTYi 1IL_ 



JlJL 



-tmt- 



*8t 00000 T 
46101000 T 
46102000 T 



0596 «0 
OdOO t i 

060013 



P(NQP*NUP3; 

GO TO normalerrqr; 

SHORT'"QMMUMCftTF; 



% 

% 



2% 

4% 

-61L 



XWF 



48l02l00 T 
48103000 T 



46 1Q 4 QQ T QbOg' 1 



0601* 1 
0601J3 



PRQGRAMHELEASEJ % 8 

CONTINUlTYBITi % 10 

TMTgRRUPTCQNFnHTWQW PtNQP^J % 



A2. 



48105000 T 
46106000 T 
4 610700 T 



0602»3 
0603«1 
060 3 n 



GO TO initiate; * 16 
MAKEPf^ESENTCANALYSlS); % 18 
RE T URNM NTt^PHTCP lMix^B ]; 



46106000 T 
48109000 T 

^aiiooon T 



0604>3 
0605«1 
0606 81 



GO TO COMlNiTi 
IQBUSYI « 
S SET OMiT « NOTtNEXLQGGiNG) 



46111000 T 
48117000 T 
46 117 Q99 T 



0606«2 
0609>0 
60980 



NTI ♦• UNlT[NT2«-CHANNEUty]3; 
UNITCNT2] 4. NTl&0Ll385l5];x 

. STAR TI. O(NT^};x 



46117200 T 
48118000 T 
4fin9 Q0g T 



060980 
O6IO83 

061380 



GO TO EUTErtNALiX 
P2BUSYn 
S SET OMIT a NOTCNEWLOGGING) 



46120000 T 
48121000 T 
4a 121099 T 



06138 3 
061411 
061411 



SAVEMIX(PIMIX); 
PlMlX * P2Mlxn 
P2MIX » "i;* 



48121200 T 
48122000 T 
48123000 T 



061481 
061583 
061 682 



OLOIDLETI^E ♦ QLOIOLETlME-CLOCK-PCRTR)iX 

GO TO EjTERNAt;* 
S SET QMIT « Hflf{SHAREDlSK) , 



48124000 T 

48125000 T 
4 6t 25 Q99 T 



061712 
061981 
06 19* 3 



INQUEST8 J 
$ SET OMIT a NOT(NtWUOGGlNG) 
S SET OMIT g NOT DATACQM 



46125500 T 
46125509 T 

I il Ml illill i i!l l f! ir^-iimtl!^irf^w-fltt «, I . ■! . 1 . ■II I I! . , ■ .11-" ' ... i l! • : ' ■ i 



llilliiiiii 



061983 
061983 

0419U. 






iifFliP^Sl 

A.C'lii«ili!piiiii#ipiii ■^mm^fi.FMm.mmmHmmr Mmmup r , .i.gn.oreo » 



0619J3 
061913 
062080 



* POP OMIT 

GO TO external;* 

KEYB0AR0REQUEST8 i% 



46126431 T 
48127000 T 
48128000 T 



062181 
062181 

062183 









mmKM 



i»m» 



wmimA::immH 




062210 



JJ 



m • 



>r 



s 

6 
7 
8 
9 
10 



12 
13 

14 
15 



16 
17 

ie 

>9 
20 
21 
22 
23 
24 
26 
26 
27 
28 



29 
30 

31 "" 

32 " 
33 
M 
35 
36 
37 ~ 
38 
39 
40 
41 
(2 
43" 



46 

«7 

•8 

49 

50 

51 

S2 

53 

54 

55 j 

56>;: 



INOEPLNUENTHUNNERCPC ,KLYIN)#1,16CJ)# 

GO Tu extlhnal;* 

MFMCRYHARITYS U . 



JLi^l- 



48132000 
48133000 
461-14000 



T€RMINATE(P1MIX);% 
TERMINALMESi>AGEC32);X 
MHRMAI ERROWttI . 



0623:3 
0625!? 

n6g6to 



XWF 
XWF 



IF PIMX = C THEN* 

BLGIN PC(?lCO*bTS);X 
_____^ PUNICiW 



% INVALID AQDRFi?^ 



■■•....''■■• end;*' ■ ' ■ ■ 

IF ONEOHTwdai tnz^ 

REfilN Pf ^FOf CNTltCPlMU-l )XMQX) + ?3<STS),? 



HKTLP1MIXM3 3*-MCPRT[P1MIX*6]]/ 
PRTCPlHIX^a]«--[PHTLPlMlX*l5]]; 
HHT [PlM U ^3]«-I^F0rNTt3^ 



PRT £# 1 M I X * 4 3 ♦•Nf C NT 1 + 13 ; 



iK 



PCDuP/CbP) = 9 CR P(XCh) = U THEi\ 
ERR0HFlXERCCQNE0hTWU=9) + n> 
TFRMllNATFCPli'^IX)! . 



. i^»'T 1 .• ♦■ P ; 

TEa«lNALMESSA6E<Nn)> 
nlFFrQM'l;NT<t»P; 



pC0,STF,PhiUPiwIX,fl]^STb,MKS,,\T4,DIB , LDP, XCH ,COC ) ; 

GO TO ii^tiate; 



ENO.^ 



NUMBtR OF ACCIOENTAU ENTRIES » 0^5 45135230 

NUMBER OF ERRORS OEtEpTEO « 000. COMPILATION TH^E » 



PR! SIZE=438 BASE ADCREbS«0657 CORE REQs2328 DiSK REQ=3072O 



2100 SEnONns. 



48135G00 
48116000 
4R 13^000 



0$26»0 
062613 
n»2?*3 



48138000 
4813^000 
461,40000 



0628J0 

0628*3 
06 30 to 



48141000 
4ei41l00 
<tB14 1g0n 



0630»3 
0630»3 
0631 t2 



4814130U 
4 81414 00 
4P14ia00 



063580 
0638«1 
0ft4l»0 



48141600 
48141700 
48142000 



48142100 
4ei«2200 
4 81425 00 



064310 
06 45 « 2 
064S»3 



4814 3000 
4iB 143500 

48144000 



064553 
0647J3 
06':>OIO 



48145000 
48146000 
48161000 



O650«3 
06Stll 

06*1^10 



0652*2 
065651 
065653 



SIZE* 065r WORDS 



• t 



